| rsc | 13f7391 | 2004-05-15 23:45:13 +0000 | [diff] [blame] | 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 | .. |
