| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- .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 /usr/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 \}
- ..
|
