taps.ps - plan9port - [fork] Plan 9 from user space
(HTM) git clone git://src.adamsgaard.dk/plan9port
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
taps.ps (3126B)
---
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