set flags=() noglob length=() fonts=() fontf=() macp=(/usr/lib/tmac/tmac.vcat)
echo -F takes following font name.
set argv=(-1 $2.r -2 $2.i -3 $2.b $argv[3-])
echo $1 takes following font name.
if (! -r /usr/lib/fontinfo/$2) then
if (! -r /usr/lib/fontinfo/$2.r) then
echo ${2}: font not found.
echo .nr p $fnum >> $fontf
cat /usr/lib/fontinfo/$2 >> $fontf
set flags = ($flags $argv[1])
troff -t $flags $macp $fontf $* | \
/usr/lib/vsort $length | /usr/ucb/vpr -t $fonts