![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to shift.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / eqn|
Return to shift.c CVS log | Up to [Research Unix] / researchv8dc / cmd / eqn |
1.1 root 1: #include "e.h"
2: #include "e.def"
3:
4: subsup(p1, p2, p3)
5: int p1, p2, p3;
6: {
7: if (p2 != 0 && p3 != 0)
8: shift2(p1, p2, p3);
9: else if (p2 != 0)
10: bshiftb(p1, SUB, p2);
11: else if (p3 != 0)
12: bshiftb(p1, SUP, p3);
13: }
14:
15: bshiftb(p1, dir, p2)
16: int p1, dir, p2;
17: {
18: int subps;
19: float shval, d1, h1, b1, h2, b2;
20: char *sh1, *sh2;
21:
22: yyval = p1;
23: h1 = eht[p1];
24: b1 = ebase[p1];
25: h2 = eht[p2];
26: b2 = ebase[p2];
27: subps = ps;
28: ps += deltaps;
29: sh1 = sh2 = "";
30: if (dir == SUB) {
31: /* base .2m below bottom of main box */
32: shval = b1 + EM(0.2, ps);
33: ebase[yyval] = shval + b2;
34: eht[yyval] = max(h1-b1+shval+b2, h2);
35: if (rfont[p1] == ITAL && lfont[p2] == ROM)
36: sh1 = "\\|";
37: } else { /* superscript */
38: /* 4/10 up main box */
39: d1 = EM(0.2, subps);
40: ebase[yyval] = b1;
41: shval = -(0.4 * (h1-b1)) - b2;
42: if (0.4*(h1-b1) + h2 < h1-b1) /* raise little super */
43: shval = -(h1-b1) + h2-b2 - d1;
44: eht[yyval] = h1 + max(0, h2 - 0.6*(h1-b1));
45: if (rfont[p1] == ITAL)
46: sh1 = "\\|";
47: }
48: dprintf(".\tS%d <- %d shift %g %d; b=%g, h=%g, ps=%d, subps=%d\n",
49: yyval, p1, shval, p2, ebase[yyval], eht[yyval], ps, subps);
50: sh2 = "\\^";
51: printf(".as %d \\v'%gm'%s%s\\*(%d%s%s\\v'%gm'\n",
52: yyval, REL(shval,ps), DPS(ps,subps), sh1, p2,
53: DPS(subps,ps), sh2, REL(-shval,ps));
54: rfont[p1] = 0;
55: sfree(p2);
56: }
57:
58: shift2(p1, p2, p3)
59: int p1, p2, p3;
60: {
61: int subps;
62: float h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh;
63: int treg;
64:
65: treg = salloc();
66: yyval = p1;
67: subps = ps; /* sub and sup at this size */
68: ps += deltaps; /* outer size */
69: h1 = eht[p1]; b1 = ebase[p1];
70: h2 = eht[p2]; b2 = ebase[p2];
71: h3 = eht[p3]; b3 = ebase[p3];
72: subsh = EM(0.2, ps);
73: if (b1 > b2 + subsh) /* move little sub down */
74: subsh += b1;
75: eht[yyval] = max(subsh+b2-b1+h1, h2);
76: supsh = -0.4*(h1-b1) - b3;
77: d2 = EM(0.2, subps);
78: if (h3 < 0.6*(h1-b1))
79: supsh = -(h1-b1) + (h3-b3) - d2;
80: ebase[yyval] = subsh + b2 - b1;
81: eht[yyval] = h1 + subsh+b2-b1 + max(0, h3-0.6*(h1-b1));
82: dprintf(".\tS%d <- %d sub %d sup %d, ps=%d, subps=%d, h=%g, b=%g\n",
83: yyval, p1, p2, p3, ps, subps, eht[yyval], ebase[yyval]);
84: /* if (rfont[p1] == ITAL && lfont[p2] == ROM) */
85: /* if (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, subps, p2);
90: printf(".ds %d \\^\\*(%d\n", p3, p3);
91: nrwid(p3, subps, p3);
92: printf(".nr %d \\n(%d\n", treg, p3);
93: printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
94: printf(".as %d \\v'%gm'%s\\*(%d\\h'-\\n(%du'\\v'%gm'\\\n",
95: p1, REL(subsh,ps), DPS(ps,subps), p2, p2, REL(-subsh+supsh,subps));
96: printf("\\*(%d\\h'-\\n(%du+\\n(%du'%s\\v'%gm'\\^\n",
97: p3, p3, treg, DPS(subps,ps), REL(-supsh,ps));
98: if (rfont[p2] == ITAL)
99: rfont[yyval] = 0; /* lie */
100: sfree(p2); sfree(p3); sfree(treg);
101: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.