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