| rsc | 13f7391 | 2004-05-15 23:45:13 +0000 | [diff] [blame] | 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 | |
