tmac/psold.tmac

   1 .\" psold.tmac
   2 .\"
   3 .\" In the newer PostScript printers, the 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 both
   8 .\" old and new printers.  The effect of this file can be undone by
   9 .\" psnew.tmac.
  10 .nr _C \n(.C
  11 .cp 0
  12 .\" Define an accented character.
  13 .de ps-achar
  14 .\" Note that character definitions are always interpreted with
  15 .\" compatibility mode off.
  16 .char \\$1 \\$3\
  17 \k[acc]\
  18 \h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\
  19 \v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\
  20 \\$2\
  21 \v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\
  22 \h'|\\\\n[acc]u'
  23 .ie '\\$3'\(.i' .hcode \\$1i
  24 .el .hcode \\$1\\$3
  25 ..
  26 .ps-achar \['y] \(aa y
  27 .ps-achar \['Y] \(aa Y
  28 .char \[12] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
  29 \(f/\s[\\n(.s*6u/10u]2\s0
  30 .char \[14] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
  31 \(f/\s[\\n(.s*6u/10u]4\s0
  32 .char \[34] \v'-.7m\s[\\n(.s*6u/10u]+.7m'3\v'-.7m\s0+.7m'\
  33 \(f/\s[\\n(.s*6u/10u]4\s0
  34 .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
  35 .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
  36 .char \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
  37 .char \[bb] |
  38 .char \[de] \fS\(de
  39 .char \[-D] \Z'\v'-.1m'-'D
  40 .char \[TP] \
  41 I\h'-.25m'\v'-.33m'\s'\En(.s*6u/10u'\v'.33m'D\v'-.33m'\s0\v'.33m'
  42 .char \[Sd] \Z'\v'-.3m'\h'.2m'-'\(pd
  43 .char \[Tp] \zlp
  44 .tr \[char166]\[bb]
  45 .tr \[char176]\[de]
  46 .tr \[char177]\[+-]
  47 .tr \[char178]\[S2]
  48 .tr \[char179]\[S3]
  49 .tr \[char181]\[*m]
  50 .tr \[char185]\[S1]
  51 .tr \[char188]\[14]
  52 .tr \[char189]\[12]
  53 .tr \[char190]\[34]
  54 .tr \[char208]\[-D]
  55 .tr \[char215]\[mu]
  56 .tr \[char221]\['Y]
  57 .tr \[char222]\[TP]
  58 .tr \[char240]\[Sd]
  59 .tr \[char247]\[di]
  60 .tr \[char253]\['y]
  61 .tr \[char254]\[Tp]
  62 .cp \n(_C