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