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 }