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

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

diff --git a/usr/src/old/eqn/common_source/shift.c b/usr/src/old/eqn/common_source/shift.c
new file mode 100644 (file)
index 0000000..86afb2c
--- /dev/null
+++ b/usr/src/old/eqn/common_source/shift.c
@@ -0,0 +1,105 @@
+/*     shift.c 4.1     83/02/11        */
+
+# include "e.h"
+#include "e.def"
+
+bshiftb(p1, dir, p2) int p1, dir, p2; {
+       int shval, diffps, effps, effps2, d1, h1, b1, h2, b2;
+       char *sh1, *sh2;
+
+       yyval = p1;
+       h1 = eht[p1];
+       b1 = ebase[p1];
+       h2 = eht[p2];
+       b2 = ebase[p2];
+       effps = EFFPS(ps);
+       effps2 = EFFPS(ps+deltaps);
+       diffps = deltaps;
+       sh1 = sh2 = "";
+       if( dir == SUB ) {
+               /* top 1/2m above bottom of main box */
+               d1 = VERT( (effps2*6)/2 );
+               shval = - d1 + h2 - b2;
+               if( d1+b1 > h2 ) /* move little sub down */
+                       shval = b1-b2;
+               ebase[yyval] = b1 + max(0, h2-b1-d1);
+               eht[yyval] = h1 + max(0, h2-b1-d1);
+               if (rfont[p1] == ITAL && lfont[p2] == ROM)
+                       sh1 = "\\|";
+               if (rfont[p2] == ITAL)
+                       sh2 = "\\|";
+       } else {        /* superscript */
+               /* 4/10 up main box */
+               d1 = VERT( (effps*6*2)/10 );
+               ebase[yyval] = b1;
+               shval = -VERT( (4 * (h1-b1)) / 10 ) - b2;
+               if( VERT(4*(h1-b1)/10) + h2 < h1-b1 )   /* raise little super */
+                       shval = -(h1-b1) + h2-b2 - d1;
+               eht[yyval] = h1 + max(0, h2-VERT((6*(h1-b1))/10));
+               if (rfont[p1] == ITAL)
+                       sh1 = "\\|";
+               if (rfont[p2] == ITAL)
+                       sh2 = "\\|";
+       }
+       if(dbg)printf(".\tb:b shift b: S%d <- S%d vert %d S%d vert %d; b=%d, h=%d\n", 
+               yyval, p1, shval, p2, -shval, ebase[yyval], eht[yyval]);
+       printf(".as %d \\v'%du'\\s-%d%s\\*(%d\\s+%d%s\\v'%du'\n", 
+               yyval, shval, diffps, sh1, p2, diffps, sh2, -shval);
+       ps += deltaps;
+       if (rfont[p2] == ITAL)
+               rfont[p1] = 0;
+       else
+               rfont[p1] = rfont[p2];
+       ofree(p2);
+}
+
+shift(p1) int p1; {
+       ps -= deltaps;
+       yyval = p1;
+       if(dbg)printf(".\tshift: %d;ps=%d\n", yyval, ps);
+}
+
+shift2(p1, p2, p3) int p1, p2, p3; {
+       int effps, effps2, h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh;
+       int treg;
+       treg = oalloc();
+       yyval = p1;
+       if(dbg)printf(".\tshift2 s%d <- %d %d %d\n", yyval, p1, p2, p3);
+       effps = EFFPS(ps+deltaps);
+       eht[p3] = h3 = VERT( (eht[p3] * effps) / EFFPS(ps) );
+       ps += deltaps;
+       effps2 = EFFPS(ps+deltaps);
+       h1 = eht[p1]; b1 = ebase[p1];
+       h2 = eht[p2]; b2 = ebase[p2];
+       b3 = ebase[p3];
+       d1 = VERT( (effps2*6)/2 );
+       subsh = -d1+h2-b2;
+       if( d1+b1 > h2 ) /* move little sub down */
+               subsh = b1-b2;
+       supsh = -VERT( (4*(h1-b1))/10 ) - b3;
+       d2 = VERT( (effps*6*2)/10 );
+       if( VERT(4*(h1-b1)/10)+h3 < h1-b1 )
+               supsh = -(h1-b1) + (h3-b3) - d2;
+       eht[yyval] = h1 + max(0, h3-VERT( (6*(h1-b1))/10 )) + max(0, h2-b1-d1);
+       ebase[yyval] = b1+max(0, h2-b1-d1);
+       if (rfont[p1] == ITAL && lfont[p2] == ROM)
+               printf(".ds %d \\|\\*(%d\n", p2, p2);
+       if (rfont[p2] == ITAL)
+               printf(".as %d \\|\n", p2);
+       nrwid(p2, effps, p2);
+       if (rfont[p1] == ITAL && lfont[p3] == ROM)
+               printf(".ds %d \\|\\|\\*(%d\n", p3, p3);
+       else
+               printf(".ds %d \\|\\*(%d\n", p3, p3);
+       nrwid(p3, effps, p3);
+       printf(".nr %d \\n(%d\n", treg, p3);
+       printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
+       printf(".as %d \\v'%du'\\s%d\\*(%d\\h'-\\n(%du'\\v'%du'\\\n", 
+               p1, subsh, effps, p2, p2, -subsh+supsh);
+       printf("\\s%d\\*(%d\\h'-\\n(%du+\\n(%du'\\s%d\\v'%du'\n", 
+               effps, p3, p3, treg, effps2, -supsh);
+       ps += deltaps;
+       if (rfont[p2] == ITAL)
+               rfont[yyval] = 0;       /* lie */
+       ofree(p2); ofree(p3); ofree(treg);
+}