tmac/X.tmac

   1 .\" -*- nroff -*-
   2 .\"
   3 .\" X.tmac
   4 .\"
   5 .nr _C \n(.C
   6 .cp 0
   7 .ftr CW CR
   8 .ftr C CR
   9 .ftr CO CI
  10 .ftr CX CBI
  11 .ftr H HR
  12 .ftr HO HI
  13 .ftr HX HBI
  14 .ftr NX NBI
  15 .char \[ru] \D'l .5m 0'
  16 .char \[ul] \v'.25m'\D'l .5m 0'\v'-.25m'
  17 .char \[br] \v'.25m'\D'l 0 -1m'\v'.75m'
  18 .char \[rn] \v'-.75m'\D'l .5m 0'\v'.75m'
  19 .char \[or] \h'.1m'\Z'\D'l 0 -.675m''\h'.1m'
  20 .char ~ \v'-.55m'\s[\En(.s/2u]\v'.2m'\[ti]\v'-.2m'\s0\v'.55m'
  21 .char ^ \v'-.55m'\s[\En(.s/2u]\v'.3m'\[ha]\v'-.3m'\s0\v'.55m'
  22 .fchar \[va] \o'\[ua]\[da]'
  23 .fchar \[em] \v'-.25m'\h'.05m'\D'l .9m 0'\h'0.05m'\v'.25m'
  24 .fchar \[en] \-
  25 .fchar \[fi] fi
  26 .fchar \[fl] fl
  27 .fchar \[ff] ff
  28 .fchar \[Fi] f\[fi]
  29 .fchar \[Fl] f\[fl]
  30 .fchar \[ci] \v'-.25m'\h'.05m'\D'c .5m'\h'.05m'\v'.25m'
  31 .fchar \[sq] \h'.05m'\D'l .5m 0'\D'l 0 -.5m'\D'l -.5m 0'\D'l 0 .5m'\h'.55m'
  32 .fchar \[ga] \Z'\v'-.7m'\D'l .22m .18m''\h'.33m'
  33 .fchar \[dg] \Z'\h'.25m'\v'.15m'\D'l 0 -.8m'\v'.2m'\h'-.195m'\
  34 \D'l .39m 0''\h'.5m'
  35 .fchar \[dd] \Z'\h'.25m'\v'.15m'\D'l 0 -.8m'\v'.2m'\h'-.195m'\
  36 \D'l .39m 0'\v'.4m'\D'l -.39m 0''\h'.5m'
  37 .fchar \[lq] ``
  38 .fchar \[rq] ''
  39 .fchar \[Bq] ,,
  40 .fchar \[OE] O\h'-.25m'E
  41 .fchar \[oe] o\h'-.14m'e
  42 .fchar \[ah] \v'-.55m'\s[\En[.s]/2u]v\s0\v'.55m'
  43 .fchar \[ao] \v'-.55m'\s[\En[.s]*6u/10u]\D'c .25m'\s0\v'.55m'
  44 .fchar \[ho] \s[\En[.s]/2u]\v'.4m'c\v'-.4m'\s0
  45 .fchar \[lh] \[lA]
  46 .fchar \[rh] \[rA]
  47 .fchar \[bq] ,
  48 .fchar \[aq] '
  49 .fchar \[IJ] IJ
  50 .fchar \[ij] ij
  51 .fchar \[fo] <
  52 .fchar \[fc] >
  53 .fchar \[OK] \s[\En[.s]*6u/10u]\[rs]\s[0]/
  54 .
  55 .fchar \[<<] <\h'-.3m'<
  56 .fchar \[>>] >\h'-.3m'>
  57 .fchar \[|=] \v'.1m'\Z'\[mi]'\v'-.2m'\[ap]\v'.1m'
  58 .fchar \[nc] \v'.1m'\Z'\h'.2m'\F[T]\f[R]/'\v'-.1m'\[sp]
  59 .fchar \[ne] \v'.07m'\Z'\h'.2m'\F[T]\f[R]/'\v'-.07m'\[==]
  60 .fchar \[-h] \F[T]\f[I]\v'-.58m'\Z'\h'.1m'\D'l .3m 0''\v'.58m'h
  61 .fchar \[hbar] \[-h]
  62 .
  63 .de X-achar
  64 .  \" Note that character definitions are always interpreted with
  65 .  \" compatibility mode off.
  66 .  fchar \\$1 \
  67 \\$3\
  68 \k[acc]\
  69 \h'(u;-\w'\\$2'-\w'\\$3'/2+\\En[skw]+(\w'x'*0)-\\En[skw])'\
  70 \v'(u;\w'x'*0+\\En[rst]+(\w'\\$3'*0)-\\En[rst])'\
  71 \\$2\
  72 \v'(u;\w'x'*0-\\En[rst]+(\w'\\$3'*0)+\\En[rst])'\
  73 \h'|\\En[acc]u'
  74 .  hcode \\$1\\$4
  75 ..
  76 .
  77 .X-achar \['C] \'    C c
  78 .X-achar \['c] \'    c c
  79 .X-achar \[:Y] \[ad] Y y
  80 .
  81 .fchar \[S ,] \o'S\[ac]'
  82 .hcode \[S ,]s
  83 .fchar \[s ,] \o's\[ac]'
  84 .hcode \[s ,]s
  85 .
  86 .de X-frac
  87 .  schar \[\\$1\\$2] \
  88 \v'-.28m'\s[\\En[.s]*6u/10u]\\$1\s0\v'.28m'\
  89 \h'-.1m'\[f/]\h'-.1m'\
  90 \s[\\En[.s]*6u/10u]\\$2
  91 ..
  92 .
  93 .de X-frac-mono
  94 .  fschar \\$1 \[\\$2\\$3] \
  95 \Z'\v'-.28m'\s[\\En[.s]*5u/10u]\\$2\s0\v'.28m''\
  96 \Z'\h'0.25m'\[f/]'\
  97 \Z'\h'.35m'\s[\\En[.s]*5u/10u]\\$3\s0'\
  98 \h'\w'M'u'
  99 ..
 100 .
 101 .X-frac 1 8
 102 .X-frac 3 8
 103 .X-frac 5 8
 104 .X-frac 7 8
 105 .
 106 .X-frac-mono CR 1 8
 107 .X-frac-mono CR 3 8
 108 .X-frac-mono CR 5 8
 109 .X-frac-mono CR 7 8
 110 .X-frac-mono CI 1 8
 111 .X-frac-mono CI 3 8
 112 .X-frac-mono CI 5 8
 113 .X-frac-mono CI 7 8
 114 .X-frac-mono CB 1 8
 115 .X-frac-mono CB 3 8
 116 .X-frac-mono CB 5 8
 117 .X-frac-mono CB 7 8
 118 .X-frac-mono CBI 1 8
 119 .X-frac-mono CBI 3 8
 120 .X-frac-mono CBI 5 8
 121 .X-frac-mono CBI 7 8
 122 .
 123 .if '\*[.T]'X100' \
 124 .  char \[radicalex] \h'-\w'\[sr]'u'\[radicalex]\h'\w'\[sr]'u'
 125 .fchar \[sqrtex] \[radicalex]
 126 .
 127 .cp \n[_C]
 128 .
 129 .do ie '\[char97]'a' \
 130 .  do mso latin1.tmac
 131 .el \
 132 .  do mso cp1047.tmac
 133 .
 134 .\" make sure that no blank lines creep in at the end of this file.