/* use number '1', '2', '3' for roman, italic, bold */
if (ch1
== 'r' || ch1
== 'R')
else if (ch1
== 'i' || ch1
== 'I')
else if (ch1
== 'b' || ch1
== 'B')
if(dbg
)printf(".\tsetfont %c\n", ft
);
font(p1
, p2
) int p1
, p2
; {
/* old font in p1, new in ft */
lfont
[yyval
] = rfont
[yyval
] = ft
==ITAL
? ITAL
: ROM
;
if(dbg
)printf(".\tb:fb: S%d <- \\f%c S%d \\f%c b=%d,h=%d,lf=%c,rf=%c\n",
yyval
, ft
, p2
, p1
, ebase
[yyval
], eht
[yyval
], lfont
[yyval
], rfont
[yyval
]);
printf(".ds %d \\f%c\\*(%d\\f%c\n",
printf(".ds %d \\*(%d\\h'-\\n(%du+%du'\\*(%d\n", p
, p
, p
, sh
, p
);
if(dbg
)printf(".\tfat %d, sh=%d\n", p
, sh
);
printf(".ft %c\n", gfont
);