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