| 2 |
- |
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 |
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 |
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 |
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 |
}
|