| 2 |
- |
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 |
|