boverb(p1
, p2
) int p1
, p2
; {
if(dbg
)printf(".\tb:bob: S%d <- S%d over S%d; b=%d, h=%d\n",
printf(".nr %d \\n(%d\n", treg
, p1
);
printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2
, treg
, treg
, p2
);
printf(".ds %d \\v'%du'\\h'\\n(%du-\\n(%du/2u'\\*(%d\\\n",
yyval
, eht
[p2
]-ebase
[p2
]-d
, treg
, p2
, p2
);
printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%du'\\*(%d\\\n",
p2
, p1
, -eht
[p2
]+ebase
[p2
]-ebase
[p1
], p1
);
printf("\\h'-\\n(%du-\\n(%du-2u/2u'\\v'%du'\\l'\\n(%du'\\v'%du'\n",
treg
, p1
, ebase
[p1
], treg
, d
);
lfont
[yyval
] = rfont
[yyval
] = 0;