 |
tmac.bits - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
tmac.bits (1089B) |
|
--- |
|
1 .ds Bf b \" default format; use i for icons and faces |
|
2 .ds Bn /tmp/btroff\n($$ \" temporary file, reused on each macro c… |
|
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 .. |
