contrib/groff/tmac/psold.tmac

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