fromto(p1
, p2
, p3
) int p1
, p2
, p3
; {
lfont
[yyval
] = rfont
[yyval
] = 0;
h1
= eht
[yyval
] = eht
[p1
];
printf(".nr %d \\n(%d\n", yyval
, p1
);
printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2
, yyval
, yyval
, p2
);
printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p3
, yyval
, yyval
, p3
);
printf(".ds %d ", yyval
); /* bottom of middle box */
printf("\\v'%du'\\h'\\n(%du-\\n(%du/2u'\\s%d\\*(%d\\s%d",
eht
[p2
]-ebase
[p2
]+b1
, yyval
, p2
, pss
, p2
, EFFPS(ps
));
printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%du'\\\n",
yyval
, p2
, -(eht
[p2
]-ebase
[p2
]+b1
));
printf("\\h'\\n(%du-\\n(%du/2u'\\*(%d\\h'\\n(%du-\\n(%du+2u/2u'\\\n",
yyval
, p1
, p1
, yyval
, p1
);
printf("\\v'%du'\\h'-\\n(%du-\\n(%du/2u'\\s%d\\*(%d\\s%d\\h'\\n(%du-\\n(%du/2u'\\v'%du'\\\n",
-(h1
-b1
+ebase
[p3
]), yyval
, p3
, pss
, p3
, EFFPS(ps
), yyval
, p3
, (h1
-b1
+ebase
[p3
]));
if(dbg
)printf(".\tfrom to: S%d <- %d f %d t %d; h=%d b=%d\n",
yyval
, p1
, p2
, p3
, eht
[yyval
], ebase
[yyval
]);