Return to chars.me CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / me

Annotation of 43BSD/usr.lib/me/chars.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)chars.me    2.2     8/29/80
                      3: .\"    %beginstrip%
                      4: .\"    *** special characters ***
                      5: .\" this file uses temp strings of the form #x.
                      6: .if n \
                      7: \{\
                      8: .      ds #[ \f1
                      9: .      ds #] \fP
                     10: .      ds #h 0
                     11: .      ds #v 0.8m
                     12: .      ds #f 0.3m
                     13: .\}
                     14: .if t \
                     15: \{\
                     16: .      ds #[ \&
                     17: .      ds #] \&
                     18: .      ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
                     19: .      ds #v 0.6m
                     20: .      ds #f 0
                     21: .\}
                     22: .\"                    \" accents
                     23: .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#]
                     24: .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#]
                     25: .\"                    \" umlaut
                     26: .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m+\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m+\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
                     27: .\"                    \" circumflex and tilde
                     28: .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#]
                     29: .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#]
                     30: .\"                    \" cedilla and czech
                     31: .ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#]
                     32: .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\n_u'\*(#]
                     33: .\"                    \" Norwegian A or angstrom
                     34: .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
                     35: .\"                    \" there exists, for all
                     36: .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'\*(#]
                     37: .ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
                     38: .if t \
                     39: \{\
                     40: .      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'
                     41: .      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'
                     42: .\}
                     43: .if \n($T \
                     44: \{\
                     45: .      ds ' \*(#[\h'-1'\(aa\*(#]
                     46: .      ds ` \*(#[\h'-1'\(ga\*(#]
                     47: .      ds : \&
                     48: .      ds ^ \*(#[\h'-1'^\*(#]
                     49: .      ds ~ \*(#[\h'-1'~\*(#]
                     50: .      ds , \*(#[\h'-1',\*(#]
                     51: .      ds v \&
                     52: .      ds o \&
                     53: .      ds qe EXISTS
                     54: .      ds qa FORALL
                     55: .\}
                     56: .rm #[
                     57: .rm #]
                     58: .rm #h
                     59: .rm #v
                     60: .rm #f
                     61: .nr c. \n(_0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.