1
0

aps.ps 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
  1. %
  2. % Tune things up so Linotronic output looks more like the APS-5. Pull this file
  3. % into dpost output using the -C option. To get the best looking output run dpost
  4. % with the -e2 option and use special font files that look like the APS tables but
  5. % have character codes (ie. the fourth column in the width tables) appropriate for
  6. % PostScript fonts. Widths in these tables must be for APS fonts!
  7. %
  8. % Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
  9. % Johnathan Shopiro.
  10. %
  11. /newdict /Courier findfont length dict def
  12. /Courier findfont {
  13. 1 index /FID ne
  14. {newdict 3 1 roll put}
  15. {pop pop}
  16. ifelse
  17. } forall
  18. newdict /StrokeWidth 65 put
  19. /Courier newdict definefont pop
  20. /newdict /Courier-Oblique findfont length dict def
  21. /Courier-Oblique findfont {
  22. 1 index /FID ne
  23. {newdict 3 1 roll put}
  24. {pop pop}
  25. ifelse
  26. } forall
  27. newdict /StrokeWidth 65 put
  28. /Courier-Oblique newdict definefont pop
  29. %
  30. % Scaled down versions of the Helvetica font family.
  31. %
  32. /newdict /Helvetica findfont length dict def
  33. /Helvetica findfont {
  34. 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  35. 1 index /FID ne
  36. {newdict 3 1 roll put}
  37. {pop pop}
  38. ifelse
  39. } forall
  40. /Helvetica newdict definefont pop
  41. /newdict /Helvetica-Oblique findfont length dict def
  42. /Helvetica-Oblique findfont {
  43. 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  44. 1 index /FID ne
  45. {newdict 3 1 roll put}
  46. {pop pop}
  47. ifelse
  48. } forall
  49. /Helvetica-Oblique newdict definefont pop
  50. /newdict /Helvetica-Bold findfont length dict def
  51. /Helvetica-Bold findfont {
  52. 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  53. 1 index /FID ne
  54. {newdict 3 1 roll put}
  55. {pop pop}
  56. ifelse
  57. } forall
  58. /Helvetica-Bold newdict definefont pop
  59. /newdict /Helvetica-BoldOblique findfont length dict def
  60. /Helvetica-BoldOblique findfont {
  61. 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
  62. 1 index /FID ne
  63. {newdict 3 1 roll put}
  64. {pop pop}
  65. ifelse
  66. } forall
  67. /Helvetica-BoldOblique newdict definefont pop
  68. %
  69. % Scaled up versions of the Times font family.
  70. %
  71. /newdict /Times-Roman findfont length dict def
  72. /Times-Roman findfont {
  73. 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  74. 1 index /FID ne
  75. {newdict 3 1 roll put}
  76. {pop pop}
  77. ifelse
  78. } forall
  79. /Times-Roman newdict definefont pop
  80. /newdict /Times-Italic findfont length dict def
  81. /Times-Italic findfont {
  82. 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  83. 1 index /FID ne
  84. {newdict 3 1 roll put}
  85. {pop pop}
  86. ifelse
  87. } forall
  88. /Times-Italic newdict definefont pop
  89. /newdict /Times-Bold findfont length dict def
  90. /Times-Bold findfont {
  91. 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  92. 1 index /FID ne
  93. {newdict 3 1 roll put}
  94. {pop pop}
  95. ifelse
  96. } forall
  97. /Times-Bold newdict definefont pop
  98. /newdict /Times-BoldItalic findfont length dict def
  99. /Times-BoldItalic findfont {
  100. 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
  101. 1 index /FID ne
  102. {newdict 3 1 roll put}
  103. {pop pop}
  104. ifelse
  105. } forall
  106. /Times-BoldItalic newdict definefont pop