1 #ifndef lint 2 static char *sccsid = "shift.c (CWI) 1.1 85/03/01"; 3 #endif 4 # include "e.h" 5 #include "e.def" 6 7 bshiftb(p1, dir, p2) int p1, dir, p2; { 8 int shval, diffps, effps, effps2, d1, h1, b1, h2, b2; 9 char *sh1, *sh2; 10 11 yyval = p1; 12 h1 = eht[p1]; 13 b1 = ebase[p1]; 14 h2 = eht[p2]; 15 b2 = ebase[p2]; 16 effps = EFFPS(ps); 17 effps2 = EFFPS(ps+deltaps); 18 diffps = deltaps; 19 sh1 = sh2 = ""; 20 if( dir == SUB ) { 21 /* top 1/2m above bottom of main box */ 22 d1 = VERT( EM(0.5, effps2) ); 23 shval = - d1 + h2 - b2; 24 if( d1+b1 > h2 ) /* move little sub down */ 25 shval = b1-b2; 26 ebase[yyval] = b1 + max(0, h2-b1-d1); 27 eht[yyval] = h1 + max(0, h2-b1-d1); 28 if (rfont[p1] == ITAL && lfont[p2] == ROM) 29 sh1 = "\\|"; 30 if (rfont[p2] == ITAL) 31 sh2 = "\\|"; 32 } else { /* superscript */ 33 /* 4/10 up main box */ 34 d1 = VERT( EM(0.2, effps) ); 35 ebase[yyval] = b1; 36 shval = -VERT( (4 * (h1-b1)) / 10 ) - b2; 37 if( VERT(4*(h1-b1)/10) + h2 < h1-b1 ) /* raise little super */ 38 shval = -(h1-b1) + h2-b2 - d1; 39 eht[yyval] = h1 + max(0, h2-VERT((6*(h1-b1))/10)); 40 if (rfont[p1] == ITAL) 41 sh1 = "\\|"; 42 if (rfont[p2] == ITAL) 43 sh2 = "\\|"; 44 } 45 if(dbg)printf(".\tb:b shift b: S%d <- S%d vert %d S%d vert %d; b=%d, h=%d\n", 46 yyval, p1, shval, p2, -shval, ebase[yyval], eht[yyval]); 47 printf(".as %d \\v'%du'\\s-%d%s\\*(%d\\s+%d%s\\v'%du'\n", 48 yyval, shval, diffps, sh1, p2, diffps, sh2, -shval); 49 ps += deltaps; 50 if (rfont[p2] == ITAL) 51 rfont[p1] = 0; 52 else 53 rfont[p1] = rfont[p2]; 54 ofree(p2); 55 } 56 57 shift(p1) int p1; { 58 ps -= deltaps; 59 yyval = p1; 60 if(dbg)printf(".\tshift: %d;ps=%d\n", yyval, ps); 61 } 62 63 shift2(p1, p2, p3) int p1, p2, p3; { 64 int effps, effps2, h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh; 65 int treg; 66 treg = oalloc(); 67 yyval = p1; 68 if(dbg)printf(".\tshift2 s%d <- %d %d %d\n", yyval, p1, p2, p3); 69 effps = EFFPS(ps+deltaps); 70 eht[p3] = h3 = VERT( (eht[p3] * effps) / EFFPS(ps) ); 71 ps += deltaps; 72 effps2 = EFFPS(ps+deltaps); 73 h1 = eht[p1]; b1 = ebase[p1]; 74 h2 = eht[p2]; b2 = ebase[p2]; 75 b3 = ebase[p3]; 76 d1 = VERT( EM(0.5, effps2) ); 77 subsh = -d1+h2-b2; 78 if( d1+b1 > h2 ) /* move little sub down */ 79 subsh = b1-b2; 80 supsh = -VERT( (4*(h1-b1))/10 ) - b3; 81 d2 = VERT( EM(0.2, effps) ); 82 if( VERT(4*(h1-b1)/10)+h3 < h1-b1 ) 83 supsh = -(h1-b1) + (h3-b3) - d2; 84 eht[yyval] = h1 + max(0, h3-VERT( (6*(h1-b1))/10 )) + max(0, h2-b1-d1); 85 ebase[yyval] = b1+max(0, h2-b1-d1); 86 if (rfont[p1] == ITAL && lfont[p2] == ROM) 87 printf(".ds %d \\|\\*(%d\n", p2, p2); 88 if (rfont[p2] == ITAL) 89 printf(".as %d \\|\n", p2); 90 nrwid(p2, effps, p2); 91 if (rfont[p1] == ITAL && lfont[p3] == ROM) 92 printf(".ds %d \\|\\|\\*(%d\n", p3, p3); 93 else 94 printf(".ds %d \\|\\*(%d\n", p3, p3); 95 nrwid(p3, effps, p3); 96 printf(".nr %d \\n(%d\n", treg, p3); 97 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2); 98 printf(".as %d \\v'%du'\\s%d\\*(%d\\h'-\\n(%du'\\v'%du'\\\n", 99 p1, subsh, effps, p2, p2, -subsh+supsh); 100 printf("\\s%d\\*(%d\\h'-\\n(%du+\\n(%du'\\s%d\\v'%du'\n", 101 effps, p3, p3, treg, effps2, -supsh); 102 ps += deltaps; 103 if (rfont[p2] == ITAL) 104 rfont[yyval] = 0; /* lie */ 105 ofree(p2); ofree(p3); ofree(treg); 106 } 107