tmac/psold.tmac

   1 .\"@ psold.tmac
   2 .\"@ In newer PostScript printers, text fonts contain all ISO Latin-1
   3 .\"@ characters.  The font description files that comes with groff match
   4 .\"@ these fonts.  The text fonts in older PostScript printers are missing
   5 .\"@ some of these characters.  This file prevents those characters from
   6 .\"@ being used.  This will allow the PostScript output to be printed on
   7 .\"@ such old printers.
   8 .\"
   9 .\" Adapted to S-roff by Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
  10 .
  11 .nr _C \n(.C
  12 .
  13 .cp 0
  14 .\" Define an accented character.
  15 .de ps-achar
  16 .\" Note that character definitions are always interpreted with
  17 .\" compatibility mode off.
  18 .char \\$1 \\$3\
  19 \k[acc]\
  20 \h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\
  21 \v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\
  22 \\$2\
  23 \v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\
  24 \h'|\\\\n[acc]u'
  25 .ie '\\$3'\(.i' .hcode \\$1i
  26 .el .hcode \\$1\\$3
  27 ..
  28 .ps-achar \['y] \(aa y
  29 .ps-achar \['Y] \(aa Y
  30 .char \[12] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
  31 \(f/\s[\\n(.s*6u/10u]2\s0
  32 .char \[14] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
  33 \(f/\s[\\n(.s*6u/10u]4\s0
  34 .char \[34] \v'-.7m\s[\\n(.s*6u/10u]+.7m'3\v'-.7m\s0+.7m'\
  35 \(f/\s[\\n(.s*6u/10u]4\s0
  36 .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
  37 .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
  38 .char \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
  39 .char \[bb] |
  40 .char \[de] \fS\(de
  41 .char \[-D] \Z'\v'-.1m'-'D
  42 .char \[TP] \
  43 I\h'-.25m'\v'-.33m'\s'\En(.s*6u/10u'\v'.33m'D\v'-.33m'\s0\v'.33m'
  44 .char \[Sd] \Z'\v'-.3m'\h'.2m'-'\(pd
  45 .char \[Tp] \zlp
  46 .tr \[char166]\[bb]
  47 .tr \[char176]\[de]
  48 .tr \[char177]\[+-]
  49 .tr \[char178]\[S2]
  50 .tr \[char179]\[S3]
  51 .tr \[char181]\[mc]
  52 .tr \[char185]\[S1]
  53 .tr \[char188]\[14]
  54 .tr \[char189]\[12]
  55 .tr \[char190]\[34]
  56 .tr \[char208]\[-D]
  57 .tr \[char215]\[mu]
  58 .tr \[char221]\['Y]
  59 .tr \[char222]\[TP]
  60 .tr \[char240]\[Sd]
  61 .tr \[char247]\[di]
  62 .tr \[char253]\['y]
  63 .tr \[char254]\[Tp]
  64 .
  65 .cp \n(_C
  66 .
  67 .\" s-ts-mode