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!
8 % Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
12 /newdict /Courier findfont length dict def
15 {newdict 3 1 roll put}
19 newdict /StrokeWidth 65 put
20 /Courier newdict definefont pop
22 /newdict /Courier-Oblique findfont length dict def
23 /Courier-Oblique findfont {
25 {newdict 3 1 roll put}
29 newdict /StrokeWidth 65 put
30 /Courier-Oblique newdict definefont pop
33 % Scaled down versions of the Helvetica font family.
36 /newdict /Helvetica findfont length dict def
38 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
41 {newdict 3 1 roll put}
45 /Helvetica newdict definefont pop
47 /newdict /Helvetica-Oblique findfont length dict def
48 /Helvetica-Oblique findfont {
49 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
52 {newdict 3 1 roll put}
56 /Helvetica-Oblique newdict definefont pop
58 /newdict /Helvetica-Bold findfont length dict def
59 /Helvetica-Bold findfont {
60 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
63 {newdict 3 1 roll put}
67 /Helvetica-Bold newdict definefont pop
69 /newdict /Helvetica-BoldOblique findfont length dict def
70 /Helvetica-BoldOblique findfont {
71 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
74 {newdict 3 1 roll put}
78 /Helvetica-BoldOblique newdict definefont pop
81 % Scaled up versions of the Times font family.
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
89 {newdict 3 1 roll put}
93 /Times-Roman newdict definefont pop
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
100 {newdict 3 1 roll put}
104 /Times-Italic newdict definefont pop
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
111 {newdict 3 1 roll put}
115 /Times-Bold newdict definefont pop
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
122 {newdict 3 1 roll put}
126 /Times-BoldItalic newdict definefont pop