tchars.me - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tchars.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 available.
            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+\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
           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'|\\n_u'\*(#]
           27 .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
           28 .ds qe \*(#[\v'0.5m'\z\(em\v'-0.65m'\z\(em\v'-0.65m'\z\(em\v'0.8m'\h'0.3m'|\h'-0.3m'\*(#]
           29 .ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
           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.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
           33 .        ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
           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