|
|
1.1 root 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:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.