Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

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