2 b855148c 2004-05-16 devnull % Tune things up so Linotronic output looks more like the APS-5. Pull this file
3 b855148c 2004-05-16 devnull % into dpost output using the -C option. To get the best looking output run dpost
4 b855148c 2004-05-16 devnull % with the -e2 option and use special font files that look like the APS tables but
5 b855148c 2004-05-16 devnull % have character codes (ie. the fourth column in the width tables) appropriate for
6 b855148c 2004-05-16 devnull % PostScript fonts. Widths in these tables must be for APS fonts!
8 b855148c 2004-05-16 devnull % Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
9 b855148c 2004-05-16 devnull % Johnathan Shopiro.
12 b855148c 2004-05-16 devnull /newdict /Courier findfont length dict def
13 b855148c 2004-05-16 devnull /Courier findfont {
14 b855148c 2004-05-16 devnull 1 index /FID ne
15 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
16 b855148c 2004-05-16 devnull {pop pop}
19 b855148c 2004-05-16 devnull newdict /StrokeWidth 65 put
20 b855148c 2004-05-16 devnull /Courier newdict definefont pop
22 b855148c 2004-05-16 devnull /newdict /Courier-Oblique findfont length dict def
23 b855148c 2004-05-16 devnull /Courier-Oblique findfont {
24 b855148c 2004-05-16 devnull 1 index /FID ne
25 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
26 b855148c 2004-05-16 devnull {pop pop}
29 b855148c 2004-05-16 devnull newdict /StrokeWidth 65 put
30 b855148c 2004-05-16 devnull /Courier-Oblique newdict definefont pop
33 b855148c 2004-05-16 devnull % Scaled down versions of the Helvetica font family.
36 b855148c 2004-05-16 devnull /newdict /Helvetica findfont length dict def
37 b855148c 2004-05-16 devnull /Helvetica findfont {
38 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
40 b855148c 2004-05-16 devnull 1 index /FID ne
41 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
42 b855148c 2004-05-16 devnull {pop pop}
45 b855148c 2004-05-16 devnull /Helvetica newdict definefont pop
47 b855148c 2004-05-16 devnull /newdict /Helvetica-Oblique findfont length dict def
48 b855148c 2004-05-16 devnull /Helvetica-Oblique findfont {
49 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
51 b855148c 2004-05-16 devnull 1 index /FID ne
52 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
53 b855148c 2004-05-16 devnull {pop pop}
56 b855148c 2004-05-16 devnull /Helvetica-Oblique newdict definefont pop
58 b855148c 2004-05-16 devnull /newdict /Helvetica-Bold findfont length dict def
59 b855148c 2004-05-16 devnull /Helvetica-Bold findfont {
60 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
62 b855148c 2004-05-16 devnull 1 index /FID ne
63 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
64 b855148c 2004-05-16 devnull {pop pop}
67 b855148c 2004-05-16 devnull /Helvetica-Bold newdict definefont pop
69 b855148c 2004-05-16 devnull /newdict /Helvetica-BoldOblique findfont length dict def
70 b855148c 2004-05-16 devnull /Helvetica-BoldOblique findfont {
71 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
73 b855148c 2004-05-16 devnull 1 index /FID ne
74 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
75 b855148c 2004-05-16 devnull {pop pop}
78 b855148c 2004-05-16 devnull /Helvetica-BoldOblique newdict definefont pop
81 b855148c 2004-05-16 devnull % Scaled up versions of the Times font family.
84 b855148c 2004-05-16 devnull /newdict /Times-Roman findfont length dict def
85 b855148c 2004-05-16 devnull /Times-Roman findfont {
86 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
88 b855148c 2004-05-16 devnull 1 index /FID ne
89 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
90 b855148c 2004-05-16 devnull {pop pop}
93 b855148c 2004-05-16 devnull /Times-Roman newdict definefont pop
95 b855148c 2004-05-16 devnull /newdict /Times-Italic findfont length dict def
96 b855148c 2004-05-16 devnull /Times-Italic findfont {
97 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
99 b855148c 2004-05-16 devnull 1 index /FID ne
100 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
101 b855148c 2004-05-16 devnull {pop pop}
103 b855148c 2004-05-16 devnull } forall
104 b855148c 2004-05-16 devnull /Times-Italic newdict definefont pop
106 b855148c 2004-05-16 devnull /newdict /Times-Bold findfont length dict def
107 b855148c 2004-05-16 devnull /Times-Bold findfont {
108 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
110 b855148c 2004-05-16 devnull 1 index /FID ne
111 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
112 b855148c 2004-05-16 devnull {pop pop}
114 b855148c 2004-05-16 devnull } forall
115 b855148c 2004-05-16 devnull /Times-Bold newdict definefont pop
117 b855148c 2004-05-16 devnull /newdict /Times-BoldItalic findfont length dict def
118 b855148c 2004-05-16 devnull /Times-BoldItalic findfont {
119 b855148c 2004-05-16 devnull 1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
121 b855148c 2004-05-16 devnull 1 index /FID ne
122 b855148c 2004-05-16 devnull {newdict 3 1 roll put}
123 b855148c 2004-05-16 devnull {pop pop}
125 b855148c 2004-05-16 devnull } forall
126 b855148c 2004-05-16 devnull /Times-BoldItalic newdict definefont pop