Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1
%
2
% Encoding vector and redefinition of findfont for the ISO Latin1 standard.
3
% The 18 characters missing from ROM based fonts on older printers are noted
4
% below.
5
%
6
 
7
/ISOLatin1Encoding [
8
	/.notdef
9
	/.notdef
10
	/.notdef
11
	/.notdef
12
	/.notdef
13
	/.notdef
14
	/.notdef
15
	/.notdef
16
	/.notdef
17
	/.notdef
18
	/.notdef
19
	/.notdef
20
	/.notdef
21
	/.notdef
22
	/.notdef
23
	/.notdef
24
	/.notdef
25
	/.notdef
26
	/.notdef
27
	/.notdef
28
	/.notdef
29
	/.notdef
30
	/.notdef
31
	/.notdef
32
	/.notdef
33
	/.notdef
34
	/.notdef
35
	/.notdef
36
	/.notdef
37
	/.notdef
38
	/.notdef
39
	/.notdef
40
	/space
41
	/exclam
42
	/quotedbl
43
	/numbersign
44
	/dollar
45
	/percent
46
	/ampersand
47
	/quoteright
48
	/parenleft
49
	/parenright
50
	/asterisk
51
	/plus
52
	/comma
53
	/minus
54
	/period
55
	/slash
56
	/zero
57
	/one
58
	/two
59
	/three
60
	/four
61
	/five
62
	/six
63
	/seven
64
	/eight
65
	/nine
66
	/colon
67
	/semicolon
68
	/less
69
	/equal
70
	/greater
71
	/question
72
	/at
73
	/A
74
	/B
75
	/C
76
	/D
77
	/E
78
	/F
79
	/G
80
	/H
81
	/I
82
	/J
83
	/K
84
	/L
85
	/M
86
	/N
87
	/O
88
	/P
89
	/Q
90
	/R
91
	/S
92
	/T
93
	/U
94
	/V
95
	/W
96
	/X
97
	/Y
98
	/Z
99
	/bracketleft
100
	/backslash
101
	/bracketright
102
	/asciicircum
103
	/underscore
104
	/quoteleft
105
	/a
106
	/b
107
	/c
108
	/d
109
	/e
110
	/f
111
	/g
112
	/h
113
	/i
114
	/j
115
	/k
116
	/l
117
	/m
118
	/n
119
	/o
120
	/p
121
	/q
122
	/r
123
	/s
124
	/t
125
	/u
126
	/v
127
	/w
128
	/x
129
	/y
130
	/z
131
	/braceleft
132
	/bar
133
	/braceright
134
	/asciitilde
135
	/.notdef
136
	/.notdef
137
	/.notdef
138
	/.notdef
139
	/.notdef
140
	/.notdef
141
	/.notdef
142
	/.notdef
143
	/.notdef
144
	/.notdef
145
	/.notdef
146
	/.notdef
147
	/.notdef
148
	/.notdef
149
	/.notdef
150
	/.notdef
151
	/.notdef
152
	/dotlessi
153
	/grave
154
	/acute
155
	/circumflex
156
	/tilde
157
	/macron
158
	/breve
159
	/dotaccent
160
	/dieresis
161
	/.notdef
162
	/ring
163
	/cedilla
164
	/.notdef
165
	/hungarumlaut
166
	/ogonek
167
	/caron
168
	/space
169
	/exclamdown
170
	/cent
171
	/sterling
172
	/currency
173
	/yen
174
	/brokenbar		% missing
175
	/section
176
	/dieresis
177
	/copyright
178
	/ordfeminine
179
	/guillemotleft
180
	/logicalnot
181
	/hyphen
182
	/registered
183
	/macron
184
	/degree			% missing
185
	/plusminus		% missing
186
	/twosuperior		% missing
187
	/threesuperior		% missing
188
	/acute
189
	/mu			% missing
190
	/paragraph
191
	/periodcentered
192
	/cedilla
193
	/onesuperior		% missing
194
	/ordmasculine
195
	/guillemotright
196
	/onequarter		% missing
197
	/onehalf		% missing
198
	/threequarters		% missing
199
	/questiondown
200
	/Agrave
201
	/Aacute
202
	/Acircumflex
203
	/Atilde
204
	/Adieresis
205
	/Aring
206
	/AE
207
	/Ccedilla
208
	/Egrave
209
	/Eacute
210
	/Ecircumflex
211
	/Edieresis
212
	/Igrave
213
	/Iacute
214
	/Icircumflex
215
	/Idieresis
216
	/Eth			% missing
217
	/Ntilde
218
	/Ograve
219
	/Oacute
220
	/Ocircumflex
221
	/Otilde
222
	/Odieresis
223
	/multiply		% missing
224
	/Oslash
225
	/Ugrave
226
	/Uacute
227
	/Ucircumflex
228
	/Udieresis
229
	/Yacute			% missing
230
	/Thorn			% missing
231
	/germandbls
232
	/agrave
233
	/aacute
234
	/acircumflex
235
	/atilde
236
	/adieresis
237
	/aring
238
	/ae
239
	/ccedilla
240
	/egrave
241
	/eacute
242
	/ecircumflex
243
	/edieresis
244
	/igrave
245
	/iacute
246
	/icircumflex
247
	/idieresis
248
	/eth			% missing
249
	/ntilde
250
	/ograve
251
	/oacute
252
	/ocircumflex
253
	/otilde
254
	/odieresis
255
	/divide			% missing
256
	/oslash
257
	/ugrave
258
	/uacute
259
	/ucircumflex
260
	/udieresis
261
	/yacute			% missing
262
	/thorn			% missing
263
	/ydieresis
264
] def
265
 
266
/NewFontDirectory FontDirectory maxlength dict def
267
 
268
%
269
% Apparently no guarantee findfont is defined in systemdict so the obvious
270
%
271
%	systemdict /findfont get exec
272
%
273
% can generate an error. So far the only exception is a VT600 (version 48.0).
274
%
275
 
276
userdict /@RealFindfont known not {
277
	userdict begin
278
		/@RealFindfont systemdict begin /findfont load end def
279
	end
280
} if
281
 
282
/findfont {
283
	dup NewFontDirectory exch known not {
284
		dup
285
		%dup systemdict /findfont get exec	% not always in systemdict
286
		dup userdict /@RealFindfont get exec
287
		dup /Encoding get StandardEncoding eq {
288
			dup length dict begin
289
				{1 index /FID ne {def}{pop pop} ifelse} forall
290
				/Encoding ISOLatin1Encoding def
291
				currentdict
292
			end
293
			/DummyFontName exch definefont
294
		} if
295
		NewFontDirectory 3 1 roll put
296
	} if
297
	NewFontDirectory exch get
298
} bind def
299