date and time created 83/02/11 18:28:46 by shannon

SCCS-vsn: old/eqn/common_source/size.c 4.1

diff --git a/usr/src/old/eqn/common_source/size.c b/usr/src/old/eqn/common_source/size.c
new file mode 100644 (file)
index 0000000..f3caadb
--- /dev/null
+++ b/usr/src/old/eqn/common_source/size.c
@@ -0,0 +1,48 @@
+/*     size.c  4.1     83/02/11        */
+
+# include "e.h"
+
+setsize(p)     /* set size as found in p */
+char *p;
+{
+       if (*p == '+')
+               ps += atoi(p+1);
+       else if (*p == '-')
+               ps -= atoi(p+1);
+       else
+               ps = atoi(p);
+       if(dbg)printf(".\tsetsize %s; ps = %d\n", p, ps);
+}
+
+size(p1, p2) int p1, p2; {
+               /* old size in p1, new in ps */
+       int effps, effp1;
+
+       yyval = p2;
+       if(dbg)printf(".\tb:sb: S%d <- \\s%d S%d \\s%d; b=%d, h=%d\n", 
+               yyval, ps, p2, p1, ebase[yyval], eht[yyval]);
+       effps = EFFPS(ps);
+       effp1 = EFFPS(p1);
+       printf(".ds %d \\s%d\\*(%d\\s%d\n", 
+               yyval, effps, p2, effp1);
+       ps = p1;
+}
+
+globsize() {
+       char temp[20];
+
+       getstr(temp, 20);
+       if (temp[0] == '+')
+               gsize += atoi(temp+1);
+       else if (temp[0] == '-')
+               gsize -= atoi(temp+1);
+       else
+               gsize = atoi(temp);
+       yyval = eqnreg = 0;
+       setps(gsize);
+       ps = gsize;
+       if (gsize >= 12)        /* sub and sup size change */
+               deltaps = gsize / 4;
+       else
+               deltaps = gsize / 3;
+}