tmac/dvi.tmac

   1 .\" dvi.tmac
   2 .\"
   3 .nr _C \n(.C
   4 .cp 0
   5 .ftr CR CW
   6 .ftr C CW
   7 .ftr CO CWI
   8 .ftr CI CWI
   9 .ftr TT CW
  10 .ftr HR H
  11 .\" This uses the dvi-char_1 string in font CW, dvi-char_0 otherwise.
  12 .char _ \R'dvi-char_ \\n(.f=\f(CW\\n(.f\fP'\\*[dvi-char_\\n[dvi-char_]]
  13 .char \[ul] \R'dvi-char_ \w'M'=\w'i''\\*[dvi-char_\\n[dvi-char_]]
  14 .\" Normally use a rule.
  15 .\" This is designed so that \(ul, \(rn and \(br form corners.
  16 .ds dvi-char_0 \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
  17 .\" In font CW use a real _ character.
  18 .ds dvi-char_1 _
  19 .if !c\[radicalex] .char \[radicalex] \D'R .5m -.04m'\v'.04m'
  20 .if !c\[br] .char \[br] \Z'\v'.25m'\D'R .04m -1m''
  21 .if !c\[ru] .char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
  22 .if !c\[rn] .char \[rn] \Z'\v'-.77m'\D'R .54m .04m''\h'.5m'
  23 .if !c\[co] .char \[co] \
  24 \z\s-2\(ci\s0\
  25 \h'\w'\s-2\(ci\s0'u-\w'\s-4C\s0'u/2u'\
  26 \s-4C\s0\
  27 \h'\w'\s-2\(ci\s0'u-\w'\s-4C\s0'u/2u'
  28 .if !c\[rg] .char \[rg] \
  29 \z\s-2\(ci\s0\
  30 \h'\w'\s-2\(ci\s0'u-\w'\s-4R\s0'u/2u'\
  31 \s-4R\s0\
  32 \h'\w'\s-2\(ci\s0'u-\w'\s-4R\s0'u/2u'
  33 .if !c\[fm] .char \[fm] \v'-.35m'\s[\\n(.s*7u/10u]\[prime]\s0\v'.35m'
  34 .if !c\[de] .char \[de] \h'.05m'\v'-.54m'\D'c .3m'\v'.54m'\h'.05m'
  35 .if !c\[ct] .char \[ct] \o'c/'
  36 .if !c\[sq] .char \[sq] \Z'\h'.05m'\D'R .4m -.04m'\v'.04m'\h'-.04m'\
  37 \D'R .04m -.4m'\v'.04m'\D'R -.4m -.04m'\D'R .04m .4m''\h'.5m'
  38 .\"char \[sq] \h'.05m'\D'l .4m 0'\D'l 0 -.4m'\D'l -.4m 0'\D'l 0 .4m'\h'.45m'
  39 .if !c\[!=] .char \[!=] \[slashnot]\(eq
  40 .if !c\[tm] .char \[tm] \v'-.3m'\s[\\n(.s/2u]TM\s0\v'.3m'
  41 .if !c\[aq] .char \[aq] '
  42 .if !c\[bq] .char \[bq] ,
  43 .if !c\[Bq] .char \[Bq] ,\h'\w'\(rq'u-(2u*\w"'"u)',
  44 .if !c\[ho] .char \[ho] \s[\En[.s]/2u]\v'.4m'c\v'-.4m'\s0
  45 .if !c\[-D] .char \[-D] \Z'\v'-.1m'\h'.05m'-'D
  46 .if !c\[Sd] .char \[Sd] \Z'\v'-.3m'\h'.35m'-'\(pd
  47 .if !c\[TP] .char \[TP] I\h'-.25m'\v'-.33m'\s[\En[.s]*6u/10u]\v'.33m'D\
  48 \v'-.33m'\s0\v'.33m'
  49 .if !c\[Tp] .char \[Tp] \zlp
  50 .if !c\[nb] .char \[nb] \[slashnot]\(sb
  51 .cflags 8 \(an
  52 .if !c\[an] .char \[an] \h'-.167m'\(mi\h'-.167m'
  53 .\" Define some fractions.
  54 .de dvi-frac
  55 .if !c\[\\$1\\$2] .char \[\\$1\\$2] \
  56 \v'-.25m'\s[\\\\n(.s*7u/10u]\\$1\s0\v'.25m'\h'-.2m'\
  57 /\h'-.2m'\v'.25m'\s[\\\\n(.s*7u/10u]\\$2\s0\v'-.25m'
  58 ..
  59 .dvi-frac 1 2
  60 .dvi-frac 3 4
  61 .dvi-frac 1 4
  62 .dvi-frac 1 8
  63 .dvi-frac 3 8
  64 .dvi-frac 5 8
  65 .dvi-frac 7 8
  66 .\" support for ISO Latin-1
  67 .if !c\[S1] .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
  68 .if !c\[S2] .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
  69 .if !c\[S3] .char \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
  70 .if !c\[Of] .char \[Of] \v'-.2m'\s'\En(.s*6u/10u'\o'_a'\s0\v'.2m'
  71 .if !c\[Om] .char \[Om] \v'-.2m'\s'\En(.s*6u/10u'\o'_o'\s0\v'.2m'
  72 .if !c\[Fo] .char \[Fo] <<
  73 .if !c\[Fc] .char \[Fc] >>
  74 .if !c\[bb] .char \[bb] |
  75 .if !c\[Ye] .char \[Ye] \o'-Y'
  76 .if !c\[Cs] .char \[Cs] \o'\[mu]o'
  77 .de dvi-achar
  78 .\" Note that character definitions are always interpreted with
  79 .\" compatibility mode off.
  80 .if !c\\$1 \{\
  81 .char \\$1 \\$3\
  82 \k[acc]\
  83 \h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\
  84 \v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\
  85 \\$2\
  86 \v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\
  87 \h'|\\\\n[acc]u'
  88 .\}
  89 .hcode \\$1\\$4
  90 ..
  91 .dvi-achar \(`A \` A a
  92 .dvi-achar \('A \' A a
  93 .dvi-achar \(^A ^ A a
  94 .dvi-achar \(~A ~ A a
  95 .dvi-achar \(:A \(ad A a
  96 .dvi-achar \(oA \(ao A a
  97 .dvi-achar \(`E \` E e
  98 .dvi-achar \('E \' E e
  99 .dvi-achar \(^E ^ E e
 100 .dvi-achar \(:E \(ad E e
 101 .dvi-achar \(`I \` I i
 102 .dvi-achar \('I \' I i
 103 .dvi-achar \(^I ^ I i
 104 .dvi-achar \(:I \(ad I i
 105 .dvi-achar \(~N ~ N n
 106 .dvi-achar \(`O \` O o
 107 .dvi-achar \('O \' O o
 108 .dvi-achar \(^O ^ O o
 109 .dvi-achar \(~O ~ O o
 110 .dvi-achar \(:O \(ad O o
 111 .dvi-achar \(`U \` U u
 112 .dvi-achar \('U \' U u
 113 .dvi-achar \(^U ^ U u
 114 .dvi-achar \(:U \(ad U u
 115 .dvi-achar \('Y \' Y y
 116 .dvi-achar \(`a \` a a
 117 .dvi-achar \('a \' a a
 118 .dvi-achar \(^a ^ a a
 119 .dvi-achar \(~a ~ a a
 120 .dvi-achar \(:a \(ad a a
 121 .dvi-achar \(oa \(ao a a
 122 .dvi-achar \(`e \` e e
 123 .dvi-achar \('e \' e e
 124 .dvi-achar \(^e ^ e e
 125 .dvi-achar \(:e \(ad e e
 126 .dvi-achar \(`i \` \(.i i
 127 .dvi-achar \('i \' \(.i i
 128 .dvi-achar \(^i ^ \(.i i
 129 .dvi-achar \(:i \(ad \(.i i
 130 .dvi-achar \(~n ~ n n
 131 .dvi-achar \(`o \` o o
 132 .dvi-achar \('o \' o o
 133 .dvi-achar \(^o ^ o o
 134 .dvi-achar \(~o ~ o o
 135 .dvi-achar \(:o \(ad o o
 136 .dvi-achar \(`u \` u u
 137 .dvi-achar \('u \' u u
 138 .dvi-achar \(^u ^ u u
 139 .dvi-achar \(:u \(ad u u
 140 .dvi-achar \('y \' y y
 141 .dvi-achar \(:y \(ad y y
 142 .if !c\(,C .char \(,C \o'\(acC'
 143 .hcode \(,Cc
 144 .if !c\(,c .char \(,c \o'\(acc'
 145 .hcode \(,cc
 146 .cp \n(_C
 147 .do mso latin1.tmac