1*3e12c5d1SDavid du Colombier #include "e.h"
2*3e12c5d1SDavid du Colombier
boverb(int p1,int p2)3*3e12c5d1SDavid du Colombier void boverb(int p1, int p2)
4*3e12c5d1SDavid du Colombier {
5*3e12c5d1SDavid du Colombier int treg;
6*3e12c5d1SDavid du Colombier double h, b, d, d1, d2;
7*3e12c5d1SDavid du Colombier extern double Overgap, Overwid, Overline;
8*3e12c5d1SDavid du Colombier
9*3e12c5d1SDavid du Colombier treg = salloc();
10*3e12c5d1SDavid du Colombier yyval = p1;
11*3e12c5d1SDavid du Colombier d = EM(Overgap, ps);
12*3e12c5d1SDavid du Colombier h = eht[p1] + eht[p2] + d;
13*3e12c5d1SDavid du Colombier b = eht[p2] - d;
14*3e12c5d1SDavid du Colombier dprintf(".\tS%d <- %d over %d; b=%g, h=%g\n",
15*3e12c5d1SDavid du Colombier yyval, p1, p2, b, h);
16*3e12c5d1SDavid du Colombier nrwid(p1, ps, p1);
17*3e12c5d1SDavid du Colombier nrwid(p2, ps, p2);
18*3e12c5d1SDavid du Colombier printf(".nr %d \\n(%d\n", treg, p1);
19*3e12c5d1SDavid du Colombier printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
20*3e12c5d1SDavid du Colombier printf(".nr %d \\n(%d+%gm\n", treg, treg, Overwid);
21*3e12c5d1SDavid du Colombier d2 = eht[p2]-ebase[p2]-d; /* denom */
22*3e12c5d1SDavid du Colombier printf(".ds %d \\v'%gm'\\h'\\n(%du-\\n(%du/2u'\\*(%d\\v'%gm'\\\n",
23*3e12c5d1SDavid du Colombier yyval, REL(d2,ps), treg, p2, p2, REL(-d2,ps));
24*3e12c5d1SDavid du Colombier d1 = 2 * d + ebase[p1]; /* num */
25*3e12c5d1SDavid du Colombier printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%gm'\\*(%d\\v'%gm'\\\n",
26*3e12c5d1SDavid du Colombier p2, p1, REL(-d1,ps), p1, REL(d1,ps));
27*3e12c5d1SDavid du Colombier printf("\\h'-\\n(%du-\\n(%du/2u+%gm'\\v'%gm'\\l'\\n(%du-%gm'\\h'%gm'\\v'%gm'\n",
28*3e12c5d1SDavid du Colombier treg, p1, Overline, REL(-d,ps),
29*3e12c5d1SDavid du Colombier treg, 2*Overline, Overline, REL(d,ps));
30*3e12c5d1SDavid du Colombier ebase[yyval] = b;
31*3e12c5d1SDavid du Colombier eht[yyval] = h;
32*3e12c5d1SDavid du Colombier lfont[yyval] = rfont[yyval] = 0;
33*3e12c5d1SDavid du Colombier sfree(p2);
34*3e12c5d1SDavid du Colombier sfree(treg);
35*3e12c5d1SDavid du Colombier }
36