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