 |
chars.me - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
chars.me (1474B) |
|
--- |
|
1 .nr _0 \n(c. |
|
2 .\" @(#)chars.me 2.2 8/29/80 |
|
3 .\" This version has had comments stripped; an unstripped version is ava… |
|
4 .if n \ |
|
5 \{\ |
|
6 . ds #[ \f1 |
|
7 . ds #] \fP |
|
8 . ds #h 0 |
|
9 . ds #v 0.8m |
|
10 . ds #f 0.3m |
|
11 .\} |
|
12 .if t \ |
|
13 \{\ |
|
14 . ds #[ \& |
|
15 . ds #] \& |
|
16 . ds #h ((1u-(\\\\n(.fu%2u))*0.13m) |
|
17 . ds #v 0.6m |
|
18 . ds #f 0 |
|
19 .\} |
|
20 .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#] |
|
21 .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#] |
|
22 .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m+\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m+\… |
|
23 .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#] |
|
24 .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#] |
|
25 .ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#] |
|
26 .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\… |
|
27 .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h… |
|
28 .ds qe \*(#[\v'0.5m'\z\(em\v'-0.65m'\z\(em\v'-0.65m'\z\(em\v'0.8m'\h'0.3… |
|
29 .ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15… |
|
30 .if t \ |
|
31 \{\ |
|
32 . ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8… |
|
33 . ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'… |
|
34 .\} |
|
35 .if \n($T \ |
|
36 \{\ |
|
37 . ds ' \*(#[\h'-1'\(aa\*(#] |
|
38 . ds ` \*(#[\h'-1'\(ga\*(#] |
|
39 . ds : \& |
|
40 . ds ^ \*(#[\h'-1'^\*(#] |
|
41 . ds ~ \*(#[\h'-1'~\*(#] |
|
42 . ds , \*(#[\h'-1',\*(#] |
|
43 . ds v \& |
|
44 . ds o \& |
|
45 . ds qe EXISTS |
|
46 . ds qa FORALL |
|
47 .\} |
|
48 .rm #[ |
|
49 .rm #] |
|
50 .rm #h |
|
51 .rm #v |
|
52 .rm #f |
|
53 .nr c. \n(_0 |
