aps.ps (3126B)
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 12 /newdict /Courier findfont length dict def 13 /Courier findfont { 14 1 index /FID ne 15 {newdict 3 1 roll put} 16 {pop pop} 17 ifelse 18 } forall 19 newdict /StrokeWidth 65 put 20 /Courier newdict definefont pop 21 22 /newdict /Courier-Oblique findfont length dict def 23 /Courier-Oblique findfont { 24 1 index /FID ne 25 {newdict 3 1 roll put} 26 {pop pop} 27 ifelse 28 } forall 29 newdict /StrokeWidth 65 put 30 /Courier-Oblique newdict definefont pop 31 32 % 33 % Scaled down versions of the Helvetica font family. 34 % 35 36 /newdict /Helvetica findfont length dict def 37 /Helvetica findfont { 38 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if 39 40 1 index /FID ne 41 {newdict 3 1 roll put} 42 {pop pop} 43 ifelse 44 } forall 45 /Helvetica newdict definefont pop 46 47 /newdict /Helvetica-Oblique findfont length dict def 48 /Helvetica-Oblique findfont { 49 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if 50 51 1 index /FID ne 52 {newdict 3 1 roll put} 53 {pop pop} 54 ifelse 55 } forall 56 /Helvetica-Oblique newdict definefont pop 57 58 /newdict /Helvetica-Bold findfont length dict def 59 /Helvetica-Bold findfont { 60 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if 61 62 1 index /FID ne 63 {newdict 3 1 roll put} 64 {pop pop} 65 ifelse 66 } forall 67 /Helvetica-Bold newdict definefont pop 68 69 /newdict /Helvetica-BoldOblique findfont length dict def 70 /Helvetica-BoldOblique findfont { 71 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if 72 73 1 index /FID ne 74 {newdict 3 1 roll put} 75 {pop pop} 76 ifelse 77 } forall 78 /Helvetica-BoldOblique newdict definefont pop 79 80 % 81 % Scaled up versions of the Times font family. 82 % 83 84 /newdict /Times-Roman findfont length dict def 85 /Times-Roman findfont { 86 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if 87 88 1 index /FID ne 89 {newdict 3 1 roll put} 90 {pop pop} 91 ifelse 92 } forall 93 /Times-Roman newdict definefont pop 94 95 /newdict /Times-Italic findfont length dict def 96 /Times-Italic findfont { 97 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if 98 99 1 index /FID ne 100 {newdict 3 1 roll put} 101 {pop pop} 102 ifelse 103 } forall 104 /Times-Italic newdict definefont pop 105 106 /newdict /Times-Bold findfont length dict def 107 /Times-Bold findfont { 108 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if 109 110 1 index /FID ne 111 {newdict 3 1 roll put} 112 {pop pop} 113 ifelse 114 } forall 115 /Times-Bold newdict definefont pop 116 117 /newdict /Times-BoldItalic findfont length dict def 118 /Times-BoldItalic findfont { 119 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if 120 121 1 index /FID ne 122 {newdict 3 1 roll put} 123 {pop pop} 124 ifelse 125 } forall 126 /Times-BoldItalic newdict definefont pop 127