118166Sjaap #ifndef lint
2*30727Sjaap static char sccsid[] = "@(#)over.c 2.2 (CWI) 87/04/01";
323924Sjaap #endif lint
418166Sjaap # include "e.h"
518166Sjaap
boverb(p1,p2)623924Sjaap boverb(p1, p2)
723924Sjaap int p1, p2;
823924Sjaap {
923924Sjaap int treg;
10*30727Sjaap float h, b, d, d1, d2, d3;
11*30727Sjaap extern float Overgap, Overwid, Overline;
1218166Sjaap
1323924Sjaap treg = salloc();
1418166Sjaap yyval = p1;
15*30727Sjaap d = EM(Overgap, ps);
1618166Sjaap h = eht[p1] + eht[p2] + d;
1718166Sjaap b = eht[p2] - d;
1823924Sjaap dprintf(".\tS%d <- %d over %d; b=%g, h=%g\n",
1918166Sjaap yyval, p1, p2, b, h);
2018166Sjaap nrwid(p1, ps, p1);
2118166Sjaap nrwid(p2, ps, p2);
2218166Sjaap printf(".nr %d \\n(%d\n", treg, p1);
2318166Sjaap printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
24*30727Sjaap printf(".nr %d \\n(%d+%gm\n", treg, treg, Overwid);
25*30727Sjaap d2 = eht[p2]-ebase[p2]-d; /* denom */
26*30727Sjaap printf(".ds %d \\v'%gm'\\h'\\n(%du-\\n(%du/2u'\\*(%d\\v'%gm'\\\n",
27*30727Sjaap yyval, REL(d2,ps), treg, p2, p2, REL(-d2,ps));
28*30727Sjaap d1 = 2 * d + ebase[p1]; /* num */
29*30727Sjaap printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%gm'\\*(%d\\v'%gm'\\\n",
30*30727Sjaap p2, p1, REL(-d1,ps), p1, REL(d1,ps));
31*30727Sjaap printf("\\h'-\\n(%du-\\n(%du/2u+%gm'\\v'%gm'\\l'\\n(%du-%gm'\\h'%gm'\\v'%gm'\n",
32*30727Sjaap treg, p1, Overline, REL(-d,ps),
33*30727Sjaap treg, 2*Overline, Overline, REL(d,ps));
3418166Sjaap ebase[yyval] = b;
3518166Sjaap eht[yyval] = h;
3618166Sjaap lfont[yyval] = rfont[yyval] = 0;
3723924Sjaap sfree(p2);
3823924Sjaap sfree(treg);
3918166Sjaap }
40