shift.c (3402B)
1 #include "e.h" 2 #include "y.tab.h" 3 4 void subsup(int p1, int p2, int p3) 5 { 6 if (p2 != 0 && p3 != 0) 7 shift2(p1, p2, p3); 8 else if (p2 != 0) 9 bshiftb(p1, SUB, p2); 10 else if (p3 != 0) 11 bshiftb(p1, SUP, p3); 12 } 13 14 extern double Subbase, Supshift; 15 extern char *Sub1space, *Sup1space, *Sub2space; 16 extern char *SS1space, *SS2space; 17 18 void bshiftb(int p1, int dir, int p2) 19 { 20 int subps, n; 21 double shval, d1, h1, b1, h2, b2; 22 char *sh1, *sh2; 23 24 yyval = p1; 25 h1 = eht[p1]; 26 b1 = ebase[p1]; 27 h2 = eht[p2]; 28 b2 = ebase[p2]; 29 subps = ps; 30 ps += deltaps; 31 if (dir == SUB) { 32 /* base .2m below bottom of main box */ 33 shval = b1 + EM(Subbase, ps); 34 ebase[yyval] = shval + b2; 35 eht[yyval] = max(h1-b1+shval+b2, h2); 36 if (rfont[p1] == ITAL && lfont[p2] == ROM) 37 n = 2; /* Sub1space */ 38 else 39 n = max(2, class[rclass[p1]][lclass[p2]]); 40 sh1 = pad(n); 41 rclass[p1] = OTHER; /* OTHER leaves too much after sup */ 42 } else { /* superscript */ 43 /* 4/10 up main box */ 44 d1 = EM(Subbase, subps); 45 ebase[yyval] = b1; 46 shval = -(Supshift * (h1-b1)) - b2; 47 if (Supshift*(h1-b1) + h2 < h1-b1) /* raise little super */ 48 shval = -(h1-b1) + h2-b2 - d1; 49 eht[yyval] = h1 + max(0, h2 - (1-Supshift)*(h1-b1)); 50 if (rclass[p1] == ILETF) 51 n = 4; 52 else if (rfont[p1] == ITAL) 53 n = 2; /* Sup1space */ 54 else 55 n = max(1, class[rclass[p1]][lclass[p2]]); 56 sh1 = pad(n); 57 rclass[p1] = rclass[p2]; /* OTHER leaves too much after sup */ 58 } 59 dprintf(".\tS%d <- %d shift %g %d; b=%g, h=%g, ps=%d, subps=%d\n", 60 (int)yyval, p1, shval, p2, ebase[yyval], eht[yyval], ps, subps); 61 sh2 = Sub2space; /* was Sub2space; */ 62 printf(".as %d \\v'%gm'%s%s\\*(%d%s%s\\v'%gm'\n", 63 (int)yyval, REL(shval,ps), DPS(ps,subps), sh1, p2, 64 DPS(subps,ps), sh2, REL(-shval,ps)); 65 rfont[p1] = 0; 66 sfree(p2); 67 } 68 69 void shift2(int p1, int p2, int p3) 70 { 71 int subps; 72 double h1, h2, h3, b1, b2, b3, subsh, d2, supsh; 73 int treg; 74 char *sh2; 75 76 treg = salloc(); 77 yyval = p1; 78 subps = ps; /* sub and sup at this size */ 79 ps += deltaps; /* outer size */ 80 h1 = eht[p1]; b1 = ebase[p1]; 81 h2 = eht[p2]; b2 = ebase[p2]; 82 h3 = eht[p3]; b3 = ebase[p3]; 83 subsh = EM(Subbase, ps); 84 if (b1 > b2 + subsh) /* move little sub down */ 85 subsh += b1; 86 eht[yyval] = max(subsh+b2-b1+h1, h2); 87 supsh = -Supshift*(h1-b1) - b3; 88 d2 = EM(Subbase, subps); 89 if (h3 < (1-Supshift)*(h1-b1)) 90 supsh = -(h1-b1) + (h3-b3) - d2; 91 ebase[yyval] = subsh + b2 - b1; 92 eht[yyval] = h1 + subsh+b2-b1 + max(0, h3-(1-Supshift)*(h1-b1)); 93 dprintf(".\tS%d <- %d sub %d sup %d, ps=%d, subps=%d, h=%g, b=%g\n", 94 (int)yyval, p1, p2, p3, ps, subps, eht[yyval], ebase[yyval]); 95 if (rclass[p1] == ILETF) 96 sh2 = "\\|\\|"; 97 else 98 sh2 = SS2space; 99 /*n = max(class[rclass[p1]][lclass[p2]], class[rclass[p1]][lclass[p3]]); 100 /*sh2 = pad(max(2, n)); 101 */ 102 printf(".ds %d %s\\*(%d\n", p2, SS1space, p2); 103 nrwid(p2, subps, p2); 104 printf(".ds %d %s\\*(%d\n", p3, sh2, p3); 105 nrwid(p3, subps, p3); 106 printf(".nr %d \\n(%d\n", treg, p3); 107 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2); 108 printf(".as %d %s\\v'%gm'\\*(%d\\v'%gm'\\h'-\\n(%du'\\\n", 109 p1, DPS(ps,subps), REL(subsh,subps), p2, REL(-subsh,subps), p2); 110 printf("\\v'%gm'\\*(%d\\v'%gm'\\h'-\\n(%du+\\n(%du'%s%s\n", 111 REL(supsh,subps), p3, REL(-supsh,subps), p3, treg, DPS(subps,ps), Sub2space); 112 if (rfont[p2] == ITAL) 113 rfont[yyval] = 0; /* lie */ 114 rclass[yyval] = rclass[p3]; /* was OTHER */ 115 sfree(p2); sfree(p3); sfree(treg); 116 }