1*11013Sshannon /* over.c 4.1 83/02/11 */ 2*11013Sshannon 3*11013Sshannon # include "e.h" 4*11013Sshannon 5*11013Sshannon boverb(p1, p2) int p1, p2; { 6*11013Sshannon int h, b, treg, d; 7*11013Sshannon 8*11013Sshannon treg = oalloc(); 9*11013Sshannon yyval = p1; 10*11013Sshannon d = VERT((ps*6*3) / 10); /* 0.3m */ 11*11013Sshannon h = eht[p1] + eht[p2] + d; 12*11013Sshannon b = eht[p2] - d; 13*11013Sshannon if(dbg)printf(".\tb:bob: S%d <- S%d over S%d; b=%d, h=%d\n", 14*11013Sshannon yyval, p1, p2, b, h); 15*11013Sshannon nrwid(p1, ps, p1); 16*11013Sshannon nrwid(p2, ps, p2); 17*11013Sshannon printf(".nr %d \\n(%d\n", treg, p1); 18*11013Sshannon printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2); 19*11013Sshannon printf(".nr %d \\n(%d+\\s%d.5m\\s0\n", treg, treg, EFFPS(ps)); 20*11013Sshannon printf(".ds %d \\v'%du'\\h'\\n(%du-\\n(%du/2u'\\*(%d\\\n", 21*11013Sshannon yyval, eht[p2]-ebase[p2]-d, treg, p2, p2); 22*11013Sshannon printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%du'\\*(%d\\\n", 23*11013Sshannon p2, p1, -(eht[p2]-ebase[p2]+d+ebase[p1]), p1); 24*11013Sshannon printf("\\h'-\\n(%du-\\n(%du/2u+.1m'\\v'%du'\\l'\\n(%du-.2m'\\h'.1m'\\v'%du'\n", 25*11013Sshannon treg, p1, ebase[p1]+d, treg, d); 26*11013Sshannon ebase[yyval] = b; 27*11013Sshannon eht[yyval] = h; 28*11013Sshannon lfont[yyval] = rfont[yyval] = 0; 29*11013Sshannon ofree(p2); 30*11013Sshannon ofree(treg); 31*11013Sshannon } 32