1 13f7391e 2004-05-15 devnull .ds Bf b		\" default format; use i for icons and faces
 2 13f7391e 2004-05-15 devnull .ds Bn /tmp/btroff\n($$	\" temporary file, reused on each macro call
 3 13f7391e 2004-05-15 devnull .ds Bp /usr/lib/btroff	\" bitmap filter
 4 13f7391e 2004-05-15 devnull .de BM
 5 13f7391e 2004-05-15 devnull .if \\n(.$=1 .ds Bf \\$1
 6 13f7391e 2004-05-15 devnull .if \\n(.$=2 \{.	\" copy request, perhaps diverted
 7 13f7391e 2004-05-15 devnull .ie '\\n(.z'' .Bm \\$1 \\$2
 8 13f7391e 2004-05-15 devnull .el \!.BM \\$1 \\$2\}
 9 13f7391e 2004-05-15 devnull .if \\n(.$=4 \{.	\" size request, numerator only
10 13f7391e 2004-05-15 devnull .nr Bz \\$2
11 13f7391e 2004-05-15 devnull .sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
12 13f7391e 2004-05-15 devnull 	print ".nr \\$3 " $1; \
13 13f7391e 2004-05-15 devnull 	print ".nr \\$4 " $2; \
14 13f7391e 2004-05-15 devnull 	exit }' >\\*(Bn
15 13f7391e 2004-05-15 devnull .so \\*(Bn
16 13f7391e 2004-05-15 devnull .sy /bin/rm -f \\*(Bn \}
17 13f7391e 2004-05-15 devnull .if \\n(.$=5 \{.	\" size request, numerator and denominator
18 13f7391e 2004-05-15 devnull .nr Bz \\$2
19 13f7391e 2004-05-15 devnull .sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
20 13f7391e 2004-05-15 devnull 	print ".nr \\$4 " $1 "/\\$3"; \
21 13f7391e 2004-05-15 devnull 	print ".nr \\$5 " $2 "/\\$3"; \
22 13f7391e 2004-05-15 devnull 	exit }' >\\*(Bn
23 13f7391e 2004-05-15 devnull .so \\*(Bn
24 13f7391e 2004-05-15 devnull .sy /bin/rm -f \\*(Bn \}
25 13f7391e 2004-05-15 devnull ..
26 13f7391e 2004-05-15 devnull .de Bm			\" copy request, for real
27 13f7391e 2004-05-15 devnull .if \\n(.P>0 \{.	\" maybe
28 13f7391e 2004-05-15 devnull .fl
29 13f7391e 2004-05-15 devnull .ie '\\$2'0' \{.	\" ask driver to read the bits
30 13f7391e 2004-05-15 devnull .br
31 13f7391e 2004-05-15 devnull \\X'Bitmap \\$1'
32 13f7391e 2004-05-15 devnull .sp -1 \}
33 13f7391e 2004-05-15 devnull .el \{.			\" use the Bitmap font
34 13f7391e 2004-05-15 devnull .sy \\*(Bp -\\*(Bf -d\\$2 \\$1 >\\*(Bn
35 13f7391e 2004-05-15 devnull .fp 9 BM Bitmap
36 13f7391e 2004-05-15 devnull .ft 9
37 13f7391e 2004-05-15 devnull .ps \\$2
38 13f7391e 2004-05-15 devnull .cf \\*(Bn	\" next line is for pm to consume
39 13f7391e 2004-05-15 devnull \!n0 1
40 13f7391e 2004-05-15 devnull .ft
41 13f7391e 2004-05-15 devnull .ps
42 13f7391e 2004-05-15 devnull .sy /bin/rm -f \\*(Bn \}
43 13f7391e 2004-05-15 devnull .fl \}
44 13f7391e 2004-05-15 devnull ..