dvi/tmac.dvi

   1 .nr _C \n(.C
   2 .cp 0
   3 .ftr CR CW
   4 .ftr C CW
   5 .ftr TT CW
   6 .ftr HR H
   7 .\" We need short names for \[prime] and \[slashnot].
   8 .tr \[FM]\[prime]
   9 .tr \[!/]\[slashnot]
  10 .\" Do it like this to avoid rounding problems.
  11 .char \[ul] \v'.23m'\D'R .5m .04m'\v'-.04m'\v'-.23m'
  12 .char _ \v'.23m'\D'R .5m .04m'\v'-.04m'\v'-.23m'
  13 .char \[rn] \D'R .5m -.04m'\v'.04m'
  14 .char \[br] \Z'\v'.25m'\D'R .04m -1m''
  15 .char \[ru] \v'-.02m'\D'R .5m .04m'\v'-.04m'\v'.02m'
  16 .char \[co] \z\(ci\h'\w'\(ci'u-\w'c'u/2u'c\h'\w'\(ci'u-\w'c'u/2u'
  17 .char \[rg] \z\(ci\h'\w'\(ci'u-\w'r'u/2u'r\h'\w'\(ci'u-\w'r'u/2u'
  18 .char \[fm] \v'-.35m'\s[\\n(.s*7u/10u]\(FM\s0\v'.35m'
  19 .char \[de] \h'.05m'\v'-.54m'\D'c .3m'\v'.54m'\h'.05m'
  20 .char \[ct] \o'c/'
  21 .char \[sq] \Z'\h'.05m'\D'R .4m -.04m'\v'.04m'\h'-.04m'\
  22 \D'R .04m -.4m'\v'.04m'\D'R -.4m -.04m'\D'R .04m .4m''\h'.5m'
  23 .\"char \[sq] \h'.05m'\D'l .4m 0'\D'l 0 -.4m'\D'l -.4m 0'\D'l 0 .4m'\h'.45m'
  24 .char \[!=] \(!/\(eq
  25 .char \[tm] \v'-.3m'\s[\\n(.s/2u]TM\s0\v'.3m'
  26 .\" Define some fractions.
  27 .de dvi-frac
  28 .char \[\\$1\\$2] \v'-.25m'\s[\\\\n(.s*7u/10u]\\$1\s0\v'.25m'\h'-.2m'\
  29 /\h'-.2m'\v'.25m'\s[\\\\n(.s*7u/10u]\\$2\s0\v'-.25m'
  30 ..
  31 .dvi-frac 1 2
  32 .dvi-frac 3 4
  33 .dvi-frac 1 4
  34 .dvi-frac 1 8
  35 .dvi-frac 3 8
  36 .dvi-frac 5 8
  37 .dvi-frac 7 8
  38 .cp \n(_C