aboutsummaryrefslogtreecommitdiff
path: root/src/cmd/postscript/psfiles/aps.ps
blob: 9ba0d309541e9d766ef756dd6ab3eb9b97885ed9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
%
% Tune things up so Linotronic output looks more like the APS-5. Pull this file
% into dpost output using the -C option. To get the best looking output run dpost
% with the -e2 option and use special font files that look like the APS tables but
% have character codes (ie. the fourth column in the width tables) appropriate for
% PostScript fonts. Widths in these tables must be for APS fonts!
%
% Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
% Johnathan Shopiro.
%

/newdict /Courier findfont length dict def
/Courier findfont {
	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
newdict /StrokeWidth 65 put
/Courier newdict definefont pop

/newdict /Courier-Oblique findfont length dict def
/Courier-Oblique findfont {
	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
newdict /StrokeWidth 65 put
/Courier-Oblique newdict definefont pop

%
% Scaled down versions of the Helvetica font family.
%

/newdict /Helvetica findfont length dict def
/Helvetica findfont {
	1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Helvetica newdict definefont pop

/newdict /Helvetica-Oblique findfont length dict def
/Helvetica-Oblique findfont {
	1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Helvetica-Oblique newdict definefont pop

/newdict /Helvetica-Bold findfont length dict def
/Helvetica-Bold findfont {
	1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Helvetica-Bold newdict definefont pop

/newdict /Helvetica-BoldOblique findfont length dict def
/Helvetica-BoldOblique findfont {
	1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Helvetica-BoldOblique newdict definefont pop

%
% Scaled up versions of the Times font family.
%

/newdict /Times-Roman findfont length dict def
/Times-Roman findfont {
	1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Times-Roman newdict definefont pop

/newdict /Times-Italic findfont length dict def
/Times-Italic findfont {
	1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Times-Italic newdict definefont pop

/newdict /Times-Bold findfont length dict def
/Times-Bold findfont {
	1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Times-Bold newdict definefont pop

/newdict /Times-BoldItalic findfont length dict def
/Times-BoldItalic findfont {
	1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if

	1 index /FID ne
		{newdict 3 1 roll put}
		{pop pop}
	ifelse
} forall
/Times-BoldItalic newdict definefont pop