home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s053 / 28.ddi / reloc.2 / $POSTSCRIPT / aps.ps next >
Encoding:
Text File  |  1990-12-08  |  3.1 KB  |  129 lines
  1. %ident    "@(#)////usr/lib/lp/postscript/aps.ps.sl 1.1 4.0 12/08/90 27249 AT&T-USL"
  2. %
  3. % Tune things up so Linotronic output looks more like the APS-5. Pull this file
  4. % into dpost output using the -C option. To get the best looking output run dpost
  5. % with the -e2 option and use special font files that look like the APS tables but
  6. % have character codes (ie. the fourth column in the width tables) appropriate for
  7. % PostScript fonts. Widths in these tables must be for APS fonts!
  8. %
  9. % Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
  10. % Johnathan Shopiro.
  11. %
  12.  
  13. /newdict /Courier findfont length dict def
  14. /Courier findfont {
  15.     1 index /FID ne
  16.         {newdict 3 1 roll put}
  17.         {pop pop}
  18.     ifelse
  19. } forall
  20. newdict /StrokeWidth 65 put
  21. /Courier newdict definefont pop
  22.  
  23. /newdict /Courier-Oblique findfont length dict def
  24. /Courier-Oblique findfont {
  25.     1 index /FID ne
  26.         {newdict 3 1 roll put}
  27.         {pop pop}
  28.     ifelse
  29. } forall
  30. newdict /StrokeWidth 65 put
  31. /Courier-Oblique newdict definefont pop
  32.  
  33. %
  34. % Scaled down versions of the Helvetica font family.
  35. %
  36.  
  37. /newdict /Helvetica findfont length dict def
  38. /Helvetica findfont {
  39.     1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  40.  
  41.     1 index /FID ne
  42.         {newdict 3 1 roll put}
  43.         {pop pop}
  44.     ifelse
  45. } forall
  46. /Helvetica newdict definefont pop
  47.  
  48. /newdict /Helvetica-Oblique findfont length dict def
  49. /Helvetica-Oblique findfont {
  50.     1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  51.  
  52.     1 index /FID ne
  53.         {newdict 3 1 roll put}
  54.         {pop pop}
  55.     ifelse
  56. } forall
  57. /Helvetica-Oblique newdict definefont pop
  58.  
  59. /newdict /Helvetica-Bold findfont length dict def
  60. /Helvetica-Bold findfont {
  61.     1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  62.  
  63.     1 index /FID ne
  64.         {newdict 3 1 roll put}
  65.         {pop pop}
  66.     ifelse
  67. } forall
  68. /Helvetica-Bold newdict definefont pop
  69.  
  70. /newdict /Helvetica-BoldOblique findfont length dict def
  71. /Helvetica-BoldOblique findfont {
  72.     1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  73.  
  74.     1 index /FID ne
  75.         {newdict 3 1 roll put}
  76.         {pop pop}
  77.     ifelse
  78. } forall
  79. /Helvetica-BoldOblique newdict definefont pop
  80.  
  81. %
  82. % Scaled up versions of the Times font family.
  83. %
  84.  
  85. /newdict /Times-Roman findfont length dict def
  86. /Times-Roman findfont {
  87.     1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  88.  
  89.     1 index /FID ne
  90.         {newdict 3 1 roll put}
  91.         {pop pop}
  92.     ifelse
  93. } forall
  94. /Times-Roman newdict definefont pop
  95.  
  96. /newdict /Times-Italic findfont length dict def
  97. /Times-Italic findfont {
  98.     1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  99.  
  100.     1 index /FID ne
  101.         {newdict 3 1 roll put}
  102.         {pop pop}
  103.     ifelse
  104. } forall
  105. /Times-Italic newdict definefont pop
  106.  
  107. /newdict /Times-Bold findfont length dict def
  108. /Times-Bold findfont {
  109.     1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  110.  
  111.     1 index /FID ne
  112.         {newdict 3 1 roll put}
  113.         {pop pop}
  114.     ifelse
  115. } forall
  116. /Times-Bold newdict definefont pop
  117.  
  118. /newdict /Times-BoldItalic findfont length dict def
  119. /Times-BoldItalic findfont {
  120.     1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  121.  
  122.     1 index /FID ne
  123.         {newdict 3 1 roll put}
  124.         {pop pop}
  125.     ifelse
  126. } forall
  127. /Times-BoldItalic newdict definefont pop
  128.  
  129.