45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
.ds Bf b \" default format; use i for icons and faces
|
|
.ds Bn /tmp/btroff\n($$ \" temporary file, reused on each macro call
|
|
.ds Bp /sys/lib/btroff \" bitmap filter
|
|
.de BM
|
|
.if \\n(.$=1 .ds Bf \\$1
|
|
.if \\n(.$=2 \{. \" copy request, perhaps diverted
|
|
.ie '\\n(.z'' .Bm \\$1 \\$2
|
|
.el \!.BM \\$1 \\$2\}
|
|
.if \\n(.$=4 \{. \" size request, numerator only
|
|
.nr Bz \\$2
|
|
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
|
|
print ".nr \\$3 " $1; \
|
|
print ".nr \\$4 " $2; \
|
|
exit }' >\\*(Bn
|
|
.so \\*(Bn
|
|
.sy /bin/rm -f \\*(Bn \}
|
|
.if \\n(.$=5 \{. \" size request, numerator and denominator
|
|
.nr Bz \\$2
|
|
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
|
|
print ".nr \\$4 " $1 "/\\$3"; \
|
|
print ".nr \\$5 " $2 "/\\$3"; \
|
|
exit }' >\\*(Bn
|
|
.so \\*(Bn
|
|
.sy /bin/rm -f \\*(Bn \}
|
|
..
|
|
.de Bm \" copy request, for real
|
|
.if \\n(.P>0 \{. \" maybe
|
|
.fl
|
|
.ie '\\$2'0' \{. \" ask driver to read the bits
|
|
.br
|
|
\\X'Bitmap \\$1'
|
|
.sp -1 \}
|
|
.el \{. \" use the Bitmap font
|
|
.sy \\*(Bp -\\*(Bf -d\\$2 \\$1 >\\*(Bn
|
|
.fp 9 BM Bitmap
|
|
.ft 9
|
|
.ps \\$2
|
|
.cf \\*(Bn \" next line is for pm to consume
|
|
\!n0 1
|
|
.ft
|
|
.ps
|
|
.sy /bin/rm -f \\*(Bn \}
|
|
.fl \}
|
|
..
|