.\" dvi.tmac
.\"
.nr _C \n(.C
.cp 0
.ftr CR CW
.ftr C CW
.ftr CO CWI
.ftr CI CWI
.ftr TT CW
.ftr H HR
.special TR TI
.fspecial TI CWI
.fspecial TBI CWI
.fspecial HI CWI
.fspecial HBI CWI
.\" This uses the dvi-char_1 string in font CW pr CWI, dvi-char_0 otherwise.
.char _ \
\R'dvi-char_ ((\\n[.f] == \f[CW]\\n[.f]\f[P]) : \
              (\\n[.f] == \f[CWI]\\n[.f]\f[P]))'\\*[dvi-char_\\n[dvi-char_]]
.char \[ul] \R'dvi-char_ \w'M'==\w'i''\\*[dvi-char_\\n[dvi-char_]]
.\" Normally use a rule.
.\" This is designed so that \(ul, \(rn and \(br form corners.
.ds dvi-char_0 \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
.\" In font CW and CWI use a real _ character.
.ds dvi-char_1 _
.if !c\[radicalex] .char \[radicalex] \D'R .5m -.04m'\v'.04m'
.if !c\[br] .char \[br] \Z'\v'.25m'\D'R .04m -1m''
.if !c\[ru] .char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
.if !c\[rn] .char \[rn] \Z'\v'-.77m'\D'R .54m .04m''\h'.5m'
.if !c\[co] .char \[co] \
\z\s-2\[ci]\s0\
\h'\w'\s-2\[ci]\s0'u-\w'\s-4C\s0'u/2u'\
\s-4C\s0\
\h'\w'\s-2\[ci]\s0'u-\w'\s-4C\s0'u/2u'
.if !c\[rg] .char \[rg] \
\z\s-2\[ci]\s0\
\h'\w'\s-2\[ci]\s0'u-\w'\s-4R\s0'u/2u'\
\s-4R\s0\
\h'\w'\s-2\[ci]\s0'u-\w'\s-4R\s0'u/2u'
.if !c\[fm] .char \[fm] \v'-.35m'\s[\\n[.s]*7u/10u]\[prime]\s0\v'.35m'
.if !c\[de] .char \[de] \h'.05m'\v'-.54m'\D'c .3m'\v'.54m'\h'.05m'
.if !c\[ct] .char \[ct] \o'c/'
.if !c\[sq] .char \[sq] \
\Z'\h'.05m'\D'R .4m -.04m'\v'.04m'\h'-.04m'\
\D'R .04m -.4m'\v'.04m'\D'R -.4m -.04m'\D'R .04m .4m''\h'.5m'
.\"char \[sq] \h'.05m'\D'l .4m 0'\D'l 0 -.4m'\D'l -.4m 0'\D'l 0 .4m'\h'.45m'
.if !c\[!=] .char \[!=] \[slashnot]\[eq]
.if !c\[tm] .char \[tm] \v'-.3m'\s[\\n[.s]/2u]TM\s0\v'.3m'
.if !c\[aq] .char \[aq] '
.if !c\[bq] .char \[bq] ,
.if !c\[Bq] .char \[Bq] ,\h'\w'\[rq]'u-(2u*\w"'"u)',
.if !c\[ho] .char \[ho] \s[\En[.s]/2u]\v'.4m'c\v'-.4m'\s0
.if !c\[-D] .char \[-D] \Z'\v'-.1m'\h'.05m'-'D
.if !c\[Sd] .char \[Sd] \Z'\v'-.3m'\h'.35m'-'\[pd]
.if !c\[TP] .char \[TP] \
I\h'-.25m'\v'-.33m'\s[\En[.s]*6u/10u]\v'.33m'\
D\v'-.33m'\s0\v'.33m'
.if !c\[Tp] .char \[Tp] \zlp
.if !c\[nb] .char \[nb] \[slashnot]\[sb]
.cflags 8 \[an]
.if !c\[an] .char \[an] \h'-.167m'\[mi]\h'-.167m'
.\" Define some fractions.
.de dvi-frac
.  if !c\[\\$1\\$2] \
.    char \[\\$1\\$2] \
\v'-.25m'\s[\\\\n[.s]*7u/10u]\\$1\s0\v'.25m'\h'-.2m'\
/\h'-.2m'\v'.25m'\s[\\\\n[.s]*7u/10u]\\$2\s0\v'-.25m'
..
.dvi-frac 1 2
.dvi-frac 3 4
.dvi-frac 1 4
.dvi-frac 1 8
.dvi-frac 3 8
.dvi-frac 5 8
.dvi-frac 7 8
.\" support for ISO Latin-1
.if !c\[S1] .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
.if !c\[S2] .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
.if !c\[S3] .char \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
.if !c\[Of] .char \[Of] \v'-.2m'\s'\En[.s]*6u/10u'\o'_a'\s0\v'.2m'
.if !c\[Om] .char \[Om] \v'-.2m'\s'\En[.s]*6u/10u'\o'_o'\s0\v'.2m'
.if !c\[Fo] .char \[Fo] <<
.if !c\[Fc] .char \[Fc] >>
.if !c\[bb] .char \[bb] |
.if !c\[Ye] .char \[Ye] \o'-Y'
.if !c\[Cs] .char \[Cs] \o'\[mu]o'
.de dvi-achar
.  \" Note that character definitions are always interpreted with
.  \" compatibility mode off.
.  if !c\\$1 \{\
.    char \\$1 \
\\$3\
\k[acc]\
\h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\
\v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\
\\$2\
\v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\
\h'|\\\\n[acc]u'
.  \}
.  hcode \\$1\\$4
..
.dvi-achar \[`A] \`    A     a
.dvi-achar \['A] \'    A     a
.dvi-achar \[^A] ^     A     a
.dvi-achar \[~A] ~     A     a
.dvi-achar \[:A] \[ad] A     a
.dvi-achar \[oA] \[ao] A     a
.dvi-achar \[`E] \`    E     e
.dvi-achar \['E] \'    E     e
.dvi-achar \[^E] ^     E     e
.dvi-achar \[:E] \[ad] E     e
.dvi-achar \[`I] \`    I     i
.dvi-achar \['I] \'    I     i
.dvi-achar \[^I] ^     I     i
.dvi-achar \[:I] \[ad] I     i
.dvi-achar \[~N] ~     N     n
.dvi-achar \[`O] \`    O     o
.dvi-achar \['O] \'    O     o
.dvi-achar \[^O] ^     O     o
.dvi-achar \[~O] ~     O     o
.dvi-achar \[:O] \[ad] O     o
.dvi-achar \[`U] \`    U     u
.dvi-achar \['U] \'    U     u
.dvi-achar \[^U] ^     U     u
.dvi-achar \[:U] \[ad] U     u
.dvi-achar \['Y] \'    Y     y
.dvi-achar \[`a] \`    a     a
.dvi-achar \['a] \'    a     a
.dvi-achar \[^a] ^     a     a
.dvi-achar \[~a] ~     a     a
.dvi-achar \[:a] \[ad] a     a
.dvi-achar \[oa] \[ao] a     a
.dvi-achar \[`e] \`    e     e
.dvi-achar \['e] \'    e     e
.dvi-achar \[^e] ^     e     e
.dvi-achar \[:e] \[ad] e     e
.dvi-achar \[`i] \`    \[.i] i
.dvi-achar \['i] \'    \[.i] i
.dvi-achar \[^i] ^     \[.i] i
.dvi-achar \[:i] \[ad] \[.i] i
.dvi-achar \[~n] ~     n     n
.dvi-achar \[`o] \`    o     o
.dvi-achar \['o] \'    o     o
.dvi-achar \[^o] ^     o     o
.dvi-achar \[~o] ~     o     o
.dvi-achar \[:o] \[ad] o     o
.dvi-achar \[`u] \`    u     u
.dvi-achar \['u] \'    u     u
.dvi-achar \[^u] ^     u     u
.dvi-achar \[:u] \[ad] u     u
.dvi-achar \['y] \'    y     y
.dvi-achar \[:y] \[ad] y     y
.if !c\[,C] .char \[,C] \o'\[ac]C'
.hcode \[,C]c
.if !c\[,c] .char \[,c] \o'\[ac]c'
.hcode \[,c]c
.cp \n(_C
.do mso latin1.tmac