tmac/Xps.tmac

   1 .\"@ Xps.tmac
   2 .\"
   3 .\" Adapted to S-roff by Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   4 .
   5 .do mso ps.tmac
   6 .nr _C \n(.C
   7 .cp 0
   8 .
   9 .\" Use this macro only to replace characters which do really exist in
  10 .\" the devps font definition files.
  11 .de Xps-char
  12 .  char \\$1 \Z"\X'ps: invis'\\$2\X'ps: endinvis'"\\$1
  13 ..
  14 .
  15 .Xps-char \[bu] \f[S]\[bu]
  16 .Xps-char \[f/] \f[S]\[f/]
  17 .Xps-char \[em] "\v'-.25m'\h'.05m'\D'l .9m 0'\h'.05m'"
  18 .Xps-char \[aq] '
  19 .Xps-char \[bq] ,
  20 .Xps-char \[Bq] ,,
  21 .Xps-char \[lq] ``
  22 .Xps-char \[rq] ''
  23 .Xps-char \[OE] OE
  24 .Xps-char \[oe] oe
  25 .Xps-char \[Fn] \f[S]\[Fn]
  26 .Xps-char \[vS] \o'\[ah]S'
  27 .Xps-char \[vs] \o'\[ah]s'
  28 .Xps-char \[vZ] \o'\[ah]Z'
  29 .Xps-char \[vz] \o'\[ah]z'
  30 .Xps-char \[/L] \o'/L'
  31 .Xps-char \[/l] \o'/l'
  32 .Xps-char \[:Y] \o'\[ad]Y'
  33 .Xps-char \[a"] \[sd]
  34 .Xps-char \[a.] \v'-.6m'.
  35 .Xps-char \[ga] "\Z'\v'-.7m'\D'l .22m .18m''"
  36 .Xps-char \[ab] \v'-.55m'\s[\En[.s]*6u/10u]u\s[0]
  37 .Xps-char \[ah] \v'-.55m'\s[\En[.s]/2u]v\s[0]
  38 .Xps-char \[ao] "\v'-.55m'\s[\En[.s]*6u/10u]\D'c .25m'\s[0]"
  39 .Xps-char \[ho] \s[\En[.s]/2u]\v'.4m'c\s[0]
  40 .Xps-char \[.i] i
  41 .Xps-char \[fo] <
  42 .Xps-char \[fc] >
  43 .Xps-char \[OK] \s[\En[.s]*6u/10u]\[rs]\s[0]/
  44 .Xps-char \[tm] \v'-.3m'\s[\En[.s]*6u/10u]TM\s[0]
  45 .Xps-char \[dd] "\Z'\h'.25m'\v'.15m'\D'l 0 -.8m'\v'.2m'\h'-.195m'\
  46 \D'l .39m 0'\v'.4m'\D'l -.39m 0''"
  47 .Xps-char \[dg] "\Z'\h'.25m'\v'.15m'\D'l 0 -.8m'\v'.2m'\h'-.195m'\
  48 \D'l .39m 0''"
  49 .Xps-char \[en] \-
  50 .Xps-char \[%0] %\s[\En[.s]*6u/10u]\f[I]0
  51 .Xps-char \[lh] \[lA]
  52 .Xps-char \[rh] \[rA]
  53 .
  54 .cp \n[_C]
  55 .
  56 .do ie '\[char97]'a' \
  57 .  do mso latin1.tmac
  58 .el \
  59 .  do mso cp1047.tmac
  60 .
  61 .\" s-ts-mode