Return to chars.me CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac / me

Annotation of cci/usr/src/usr.lib/tmac/me/chars.me, revision 1.1

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

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