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