Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | # mkpsenc.tcl -- |
2 | # | |
3 | # Creates Postscript encoding vector for given encoding | |
4 | # | |
5 | ||
6 | proc ::tk::CreatePostscriptEncoding {encoding} { | |
7 | # now check for known. Even if it is known, it can be other | |
8 | # than we need. GhostScript seems to be happy with such approach | |
9 | set result "/CurrentEncoding \[\n" | |
10 | for {set i 0} {$i<256} {incr i 8} { | |
11 | for {set j 0} {$j<8} {incr j} { | |
12 | set enc [encoding convertfrom $encoding [format %c [expr {$i+$j}]]] | |
13 | if {[catch {format %04X [scan $enc %c]} hexcode]} {set hexcode {}} | |
14 | if [info exists ::tk::psglyphs($hexcode)] { | |
15 | append result "/$::tk::psglyphs($hexcode)" | |
16 | } else { | |
17 | append result "/space" | |
18 | } | |
19 | } | |
20 | append result "\n" | |
21 | } | |
22 | append result "\] def\n" | |
23 | return $result | |
24 | } | |
25 | ||
26 | # List of adobe glyph names. Converted from glyphlist.txt, downloaded | |
27 | # from Adobe | |
28 | ||
29 | namespace eval ::tk { | |
30 | array set psglyphs { | |
31 | 0020 space | |
32 | 0021 exclam | |
33 | 0022 quotedbl | |
34 | 0023 numbersign | |
35 | 0024 dollar | |
36 | 0025 percent | |
37 | 0026 ampersand | |
38 | 0027 quotesingle | |
39 | 0028 parenleft | |
40 | 0029 parenright | |
41 | 002A asterisk | |
42 | 002B plus | |
43 | 002C comma | |
44 | 002D hyphen | |
45 | 002E period | |
46 | 002F slash | |
47 | 0030 zero | |
48 | 0031 one | |
49 | 0032 two | |
50 | 0033 three | |
51 | 0034 four | |
52 | 0035 five | |
53 | 0036 six | |
54 | 0037 seven | |
55 | 0038 eight | |
56 | 0039 nine | |
57 | 003A colon | |
58 | 003B semicolon | |
59 | 003C less | |
60 | 003D equal | |
61 | 003E greater | |
62 | 003F question | |
63 | 0040 at | |
64 | 0041 A | |
65 | 0042 B | |
66 | 0043 C | |
67 | 0044 D | |
68 | 0045 E | |
69 | 0046 F | |
70 | 0047 G | |
71 | 0048 H | |
72 | 0049 I | |
73 | 004A J | |
74 | 004B K | |
75 | 004C L | |
76 | 004D M | |
77 | 004E N | |
78 | 004F O | |
79 | 0050 P | |
80 | 0051 Q | |
81 | 0052 R | |
82 | 0053 S | |
83 | 0054 T | |
84 | 0055 U | |
85 | 0056 V | |
86 | 0057 W | |
87 | 0058 X | |
88 | 0059 Y | |
89 | 005A Z | |
90 | 005B bracketleft | |
91 | 005C backslash | |
92 | 005D bracketright | |
93 | 005E asciicircum | |
94 | 005F underscore | |
95 | 0060 grave | |
96 | 0061 a | |
97 | 0062 b | |
98 | 0063 c | |
99 | 0064 d | |
100 | 0065 e | |
101 | 0066 f | |
102 | 0067 g | |
103 | 0068 h | |
104 | 0069 i | |
105 | 006A j | |
106 | 006B k | |
107 | 006C l | |
108 | 006D m | |
109 | 006E n | |
110 | 006F o | |
111 | 0070 p | |
112 | 0071 q | |
113 | 0072 r | |
114 | 0073 s | |
115 | 0074 t | |
116 | 0075 u | |
117 | 0076 v | |
118 | 0077 w | |
119 | 0078 x | |
120 | 0079 y | |
121 | 007A z | |
122 | 007B braceleft | |
123 | 007C bar | |
124 | 007D braceright | |
125 | 007E asciitilde | |
126 | 00A0 space | |
127 | 00A1 exclamdown | |
128 | 00A2 cent | |
129 | 00A3 sterling | |
130 | 00A4 currency | |
131 | 00A5 yen | |
132 | 00A6 brokenbar | |
133 | 00A7 section | |
134 | 00A8 dieresis | |
135 | 00A9 copyright | |
136 | 00AA ordfeminine | |
137 | 00AB guillemotleft | |
138 | 00AC logicalnot | |
139 | 00AD hyphen | |
140 | 00AE registered | |
141 | 00AF macron | |
142 | 00B0 degree | |
143 | 00B1 plusminus | |
144 | 00B2 twosuperior | |
145 | 00B3 threesuperior | |
146 | 00B4 acute | |
147 | 00B5 mu | |
148 | 00B6 paragraph | |
149 | 00B7 periodcentered | |
150 | 00B8 cedilla | |
151 | 00B9 onesuperior | |
152 | 00BA ordmasculine | |
153 | 00BB guillemotright | |
154 | 00BC onequarter | |
155 | 00BD onehalf | |
156 | 00BE threequarters | |
157 | 00BF questiondown | |
158 | 00C0 Agrave | |
159 | 00C1 Aacute | |
160 | 00C2 Acircumflex | |
161 | 00C3 Atilde | |
162 | 00C4 Adieresis | |
163 | 00C5 Aring | |
164 | 00C6 AE | |
165 | 00C7 Ccedilla | |
166 | 00C8 Egrave | |
167 | 00C9 Eacute | |
168 | 00CA Ecircumflex | |
169 | 00CB Edieresis | |
170 | 00CC Igrave | |
171 | 00CD Iacute | |
172 | 00CE Icircumflex | |
173 | 00CF Idieresis | |
174 | 00D0 Eth | |
175 | 00D1 Ntilde | |
176 | 00D2 Ograve | |
177 | 00D3 Oacute | |
178 | 00D4 Ocircumflex | |
179 | 00D5 Otilde | |
180 | 00D6 Odieresis | |
181 | 00D7 multiply | |
182 | 00D8 Oslash | |
183 | 00D9 Ugrave | |
184 | 00DA Uacute | |
185 | 00DB Ucircumflex | |
186 | 00DC Udieresis | |
187 | 00DD Yacute | |
188 | 00DE Thorn | |
189 | 00DF germandbls | |
190 | 00E0 agrave | |
191 | 00E1 aacute | |
192 | 00E2 acircumflex | |
193 | 00E3 atilde | |
194 | 00E4 adieresis | |
195 | 00E5 aring | |
196 | 00E6 ae | |
197 | 00E7 ccedilla | |
198 | 00E8 egrave | |
199 | 00E9 eacute | |
200 | 00EA ecircumflex | |
201 | 00EB edieresis | |
202 | 00EC igrave | |
203 | 00ED iacute | |
204 | 00EE icircumflex | |
205 | 00EF idieresis | |
206 | 00F0 eth | |
207 | 00F1 ntilde | |
208 | 00F2 ograve | |
209 | 00F3 oacute | |
210 | 00F4 ocircumflex | |
211 | 00F5 otilde | |
212 | 00F6 odieresis | |
213 | 00F7 divide | |
214 | 00F8 oslash | |
215 | 00F9 ugrave | |
216 | 00FA uacute | |
217 | 00FB ucircumflex | |
218 | 00FC udieresis | |
219 | 00FD yacute | |
220 | 00FE thorn | |
221 | 00FF ydieresis | |
222 | 0100 Amacron | |
223 | 0101 amacron | |
224 | 0102 Abreve | |
225 | 0103 abreve | |
226 | 0104 Aogonek | |
227 | 0105 aogonek | |
228 | 0106 Cacute | |
229 | 0107 cacute | |
230 | 0108 Ccircumflex | |
231 | 0109 ccircumflex | |
232 | 010A Cdotaccent | |
233 | 010B cdotaccent | |
234 | 010C Ccaron | |
235 | 010D ccaron | |
236 | 010E Dcaron | |
237 | 010F dcaron | |
238 | 0110 Dcroat | |
239 | 0111 dcroat | |
240 | 0112 Emacron | |
241 | 0113 emacron | |
242 | 0114 Ebreve | |
243 | 0115 ebreve | |
244 | 0116 Edotaccent | |
245 | 0117 edotaccent | |
246 | 0118 Eogonek | |
247 | 0119 eogonek | |
248 | 011A Ecaron | |
249 | 011B ecaron | |
250 | 011C Gcircumflex | |
251 | 011D gcircumflex | |
252 | 011E Gbreve | |
253 | 011F gbreve | |
254 | 0120 Gdotaccent | |
255 | 0121 gdotaccent | |
256 | 0122 Gcommaaccent | |
257 | 0123 gcommaaccent | |
258 | 0124 Hcircumflex | |
259 | 0125 hcircumflex | |
260 | 0126 Hbar | |
261 | 0127 hbar | |
262 | 0128 Itilde | |
263 | 0129 itilde | |
264 | 012A Imacron | |
265 | 012B imacron | |
266 | 012C Ibreve | |
267 | 012D ibreve | |
268 | 012E Iogonek | |
269 | 012F iogonek | |
270 | 0130 Idotaccent | |
271 | 0131 dotlessi | |
272 | 0132 IJ | |
273 | 0133 ij | |
274 | 0134 Jcircumflex | |
275 | 0135 jcircumflex | |
276 | 0136 Kcommaaccent | |
277 | 0137 kcommaaccent | |
278 | 0138 kgreenlandic | |
279 | 0139 Lacute | |
280 | 013A lacute | |
281 | 013B Lcommaaccent | |
282 | 013C lcommaaccent | |
283 | 013D Lcaron | |
284 | 013E lcaron | |
285 | 013F Ldot | |
286 | 0140 ldot | |
287 | 0141 Lslash | |
288 | 0142 lslash | |
289 | 0143 Nacute | |
290 | 0144 nacute | |
291 | 0145 Ncommaaccent | |
292 | 0146 ncommaaccent | |
293 | 0147 Ncaron | |
294 | 0148 ncaron | |
295 | 0149 napostrophe | |
296 | 014A Eng | |
297 | 014B eng | |
298 | 014C Omacron | |
299 | 014D omacron | |
300 | 014E Obreve | |
301 | 014F obreve | |
302 | 0150 Ohungarumlaut | |
303 | 0151 ohungarumlaut | |
304 | 0152 OE | |
305 | 0153 oe | |
306 | 0154 Racute | |
307 | 0155 racute | |
308 | 0156 Rcommaaccent | |
309 | 0157 rcommaaccent | |
310 | 0158 Rcaron | |
311 | 0159 rcaron | |
312 | 015A Sacute | |
313 | 015B sacute | |
314 | 015C Scircumflex | |
315 | 015D scircumflex | |
316 | 015E Scedilla | |
317 | 015F scedilla | |
318 | 0160 Scaron | |
319 | 0161 scaron | |
320 | 0162 Tcommaaccent | |
321 | 0163 tcommaaccent | |
322 | 0164 Tcaron | |
323 | 0165 tcaron | |
324 | 0166 Tbar | |
325 | 0167 tbar | |
326 | 0168 Utilde | |
327 | 0169 utilde | |
328 | 016A Umacron | |
329 | 016B umacron | |
330 | 016C Ubreve | |
331 | 016D ubreve | |
332 | 016E Uring | |
333 | 016F uring | |
334 | 0170 Uhungarumlaut | |
335 | 0171 uhungarumlaut | |
336 | 0172 Uogonek | |
337 | 0173 uogonek | |
338 | 0174 Wcircumflex | |
339 | 0175 wcircumflex | |
340 | 0176 Ycircumflex | |
341 | 0177 ycircumflex | |
342 | 0178 Ydieresis | |
343 | 0179 Zacute | |
344 | 017A zacute | |
345 | 017B Zdotaccent | |
346 | 017C zdotaccent | |
347 | 017D Zcaron | |
348 | 017E zcaron | |
349 | 017F longs | |
350 | 0192 florin | |
351 | 01A0 Ohorn | |
352 | 01A1 ohorn | |
353 | 01AF Uhorn | |
354 | 01B0 uhorn | |
355 | 01E6 Gcaron | |
356 | 01E7 gcaron | |
357 | 01FA Aringacute | |
358 | 01FB aringacute | |
359 | 01FC AEacute | |
360 | 01FD aeacute | |
361 | 01FE Oslashacute | |
362 | 01FF oslashacute | |
363 | 0218 Scommaaccent | |
364 | 0219 scommaaccent | |
365 | 021A Tcommaaccent | |
366 | 021B tcommaaccent | |
367 | 02BC afii57929 | |
368 | 02BD afii64937 | |
369 | 02C6 circumflex | |
370 | 02C7 caron | |
371 | 02C9 macron | |
372 | 02D8 breve | |
373 | 02D9 dotaccent | |
374 | 02DA ring | |
375 | 02DB ogonek | |
376 | 02DC tilde | |
377 | 02DD hungarumlaut | |
378 | 0300 gravecomb | |
379 | 0301 acutecomb | |
380 | 0303 tildecomb | |
381 | 0309 hookabovecomb | |
382 | 0323 dotbelowcomb | |
383 | 0384 tonos | |
384 | 0385 dieresistonos | |
385 | 0386 Alphatonos | |
386 | 0387 anoteleia | |
387 | 0388 Epsilontonos | |
388 | 0389 Etatonos | |
389 | 038A Iotatonos | |
390 | 038C Omicrontonos | |
391 | 038E Upsilontonos | |
392 | 038F Omegatonos | |
393 | 0390 iotadieresistonos | |
394 | 0391 Alpha | |
395 | 0392 Beta | |
396 | 0393 Gamma | |
397 | 0394 Delta | |
398 | 0395 Epsilon | |
399 | 0396 Zeta | |
400 | 0397 Eta | |
401 | 0398 Theta | |
402 | 0399 Iota | |
403 | 039A Kappa | |
404 | 039B Lambda | |
405 | 039C Mu | |
406 | 039D Nu | |
407 | 039E Xi | |
408 | 039F Omicron | |
409 | 03A0 Pi | |
410 | 03A1 Rho | |
411 | 03A3 Sigma | |
412 | 03A4 Tau | |
413 | 03A5 Upsilon | |
414 | 03A6 Phi | |
415 | 03A7 Chi | |
416 | 03A8 Psi | |
417 | 03A9 Omega | |
418 | 03AA Iotadieresis | |
419 | 03AB Upsilondieresis | |
420 | 03AC alphatonos | |
421 | 03AD epsilontonos | |
422 | 03AE etatonos | |
423 | 03AF iotatonos | |
424 | 03B0 upsilondieresistonos | |
425 | 03B1 alpha | |
426 | 03B2 beta | |
427 | 03B3 gamma | |
428 | 03B4 delta | |
429 | 03B5 epsilon | |
430 | 03B6 zeta | |
431 | 03B7 eta | |
432 | 03B8 theta | |
433 | 03B9 iota | |
434 | 03BA kappa | |
435 | 03BB lambda | |
436 | 03BC mu | |
437 | 03BD nu | |
438 | 03BE xi | |
439 | 03BF omicron | |
440 | 03C0 pi | |
441 | 03C1 rho | |
442 | 03C2 sigma1 | |
443 | 03C3 sigma | |
444 | 03C4 tau | |
445 | 03C5 upsilon | |
446 | 03C6 phi | |
447 | 03C7 chi | |
448 | 03C8 psi | |
449 | 03C9 omega | |
450 | 03CA iotadieresis | |
451 | 03CB upsilondieresis | |
452 | 03CC omicrontonos | |
453 | 03CD upsilontonos | |
454 | 03CE omegatonos | |
455 | 03D1 theta1 | |
456 | 03D2 Upsilon1 | |
457 | 03D5 phi1 | |
458 | 03D6 omega1 | |
459 | 0401 afii10023 | |
460 | 0402 afii10051 | |
461 | 0403 afii10052 | |
462 | 0404 afii10053 | |
463 | 0405 afii10054 | |
464 | 0406 afii10055 | |
465 | 0407 afii10056 | |
466 | 0408 afii10057 | |
467 | 0409 afii10058 | |
468 | 040A afii10059 | |
469 | 040B afii10060 | |
470 | 040C afii10061 | |
471 | 040E afii10062 | |
472 | 040F afii10145 | |
473 | 0410 afii10017 | |
474 | 0411 afii10018 | |
475 | 0412 afii10019 | |
476 | 0413 afii10020 | |
477 | 0414 afii10021 | |
478 | 0415 afii10022 | |
479 | 0416 afii10024 | |
480 | 0417 afii10025 | |
481 | 0418 afii10026 | |
482 | 0419 afii10027 | |
483 | 041A afii10028 | |
484 | 041B afii10029 | |
485 | 041C afii10030 | |
486 | 041D afii10031 | |
487 | 041E afii10032 | |
488 | 041F afii10033 | |
489 | 0420 afii10034 | |
490 | 0421 afii10035 | |
491 | 0422 afii10036 | |
492 | 0423 afii10037 | |
493 | 0424 afii10038 | |
494 | 0425 afii10039 | |
495 | 0426 afii10040 | |
496 | 0427 afii10041 | |
497 | 0428 afii10042 | |
498 | 0429 afii10043 | |
499 | 042A afii10044 | |
500 | 042B afii10045 | |
501 | 042C afii10046 | |
502 | 042D afii10047 | |
503 | 042E afii10048 | |
504 | 042F afii10049 | |
505 | 0430 afii10065 | |
506 | 0431 afii10066 | |
507 | 0432 afii10067 | |
508 | 0433 afii10068 | |
509 | 0434 afii10069 | |
510 | 0435 afii10070 | |
511 | 0436 afii10072 | |
512 | 0437 afii10073 | |
513 | 0438 afii10074 | |
514 | 0439 afii10075 | |
515 | 043A afii10076 | |
516 | 043B afii10077 | |
517 | 043C afii10078 | |
518 | 043D afii10079 | |
519 | 043E afii10080 | |
520 | 043F afii10081 | |
521 | 0440 afii10082 | |
522 | 0441 afii10083 | |
523 | 0442 afii10084 | |
524 | 0443 afii10085 | |
525 | 0444 afii10086 | |
526 | 0445 afii10087 | |
527 | 0446 afii10088 | |
528 | 0447 afii10089 | |
529 | 0448 afii10090 | |
530 | 0449 afii10091 | |
531 | 044A afii10092 | |
532 | 044B afii10093 | |
533 | 044C afii10094 | |
534 | 044D afii10095 | |
535 | 044E afii10096 | |
536 | 044F afii10097 | |
537 | 0451 afii10071 | |
538 | 0452 afii10099 | |
539 | 0453 afii10100 | |
540 | 0454 afii10101 | |
541 | 0455 afii10102 | |
542 | 0456 afii10103 | |
543 | 0457 afii10104 | |
544 | 0458 afii10105 | |
545 | 0459 afii10106 | |
546 | 045A afii10107 | |
547 | 045B afii10108 | |
548 | 045C afii10109 | |
549 | 045E afii10110 | |
550 | 045F afii10193 | |
551 | 0462 afii10146 | |
552 | 0463 afii10194 | |
553 | 0472 afii10147 | |
554 | 0473 afii10195 | |
555 | 0474 afii10148 | |
556 | 0475 afii10196 | |
557 | 0490 afii10050 | |
558 | 0491 afii10098 | |
559 | 04D9 afii10846 | |
560 | 05B0 afii57799 | |
561 | 05B1 afii57801 | |
562 | 05B2 afii57800 | |
563 | 05B3 afii57802 | |
564 | 05B4 afii57793 | |
565 | 05B5 afii57794 | |
566 | 05B6 afii57795 | |
567 | 05B7 afii57798 | |
568 | 05B8 afii57797 | |
569 | 05B9 afii57806 | |
570 | 05BB afii57796 | |
571 | 05BC afii57807 | |
572 | 05BD afii57839 | |
573 | 05BE afii57645 | |
574 | 05BF afii57841 | |
575 | 05C0 afii57842 | |
576 | 05C1 afii57804 | |
577 | 05C2 afii57803 | |
578 | 05C3 afii57658 | |
579 | 05D0 afii57664 | |
580 | 05D1 afii57665 | |
581 | 05D2 afii57666 | |
582 | 05D3 afii57667 | |
583 | 05D4 afii57668 | |
584 | 05D5 afii57669 | |
585 | 05D6 afii57670 | |
586 | 05D7 afii57671 | |
587 | 05D8 afii57672 | |
588 | 05D9 afii57673 | |
589 | 05DA afii57674 | |
590 | 05DB afii57675 | |
591 | 05DC afii57676 | |
592 | 05DD afii57677 | |
593 | 05DE afii57678 | |
594 | 05DF afii57679 | |
595 | 05E0 afii57680 | |
596 | 05E1 afii57681 | |
597 | 05E2 afii57682 | |
598 | 05E3 afii57683 | |
599 | 05E4 afii57684 | |
600 | 05E5 afii57685 | |
601 | 05E6 afii57686 | |
602 | 05E7 afii57687 | |
603 | 05E8 afii57688 | |
604 | 05E9 afii57689 | |
605 | 05EA afii57690 | |
606 | 05F0 afii57716 | |
607 | 05F1 afii57717 | |
608 | 05F2 afii57718 | |
609 | 060C afii57388 | |
610 | 061B afii57403 | |
611 | 061F afii57407 | |
612 | 0621 afii57409 | |
613 | 0622 afii57410 | |
614 | 0623 afii57411 | |
615 | 0624 afii57412 | |
616 | 0625 afii57413 | |
617 | 0626 afii57414 | |
618 | 0627 afii57415 | |
619 | 0628 afii57416 | |
620 | 0629 afii57417 | |
621 | 062A afii57418 | |
622 | 062B afii57419 | |
623 | 062C afii57420 | |
624 | 062D afii57421 | |
625 | 062E afii57422 | |
626 | 062F afii57423 | |
627 | 0630 afii57424 | |
628 | 0631 afii57425 | |
629 | 0632 afii57426 | |
630 | 0633 afii57427 | |
631 | 0634 afii57428 | |
632 | 0635 afii57429 | |
633 | 0636 afii57430 | |
634 | 0637 afii57431 | |
635 | 0638 afii57432 | |
636 | 0639 afii57433 | |
637 | 063A afii57434 | |
638 | 0640 afii57440 | |
639 | 0641 afii57441 | |
640 | 0642 afii57442 | |
641 | 0643 afii57443 | |
642 | 0644 afii57444 | |
643 | 0645 afii57445 | |
644 | 0646 afii57446 | |
645 | 0647 afii57470 | |
646 | 0648 afii57448 | |
647 | 0649 afii57449 | |
648 | 064A afii57450 | |
649 | 064B afii57451 | |
650 | 064C afii57452 | |
651 | 064D afii57453 | |
652 | 064E afii57454 | |
653 | 064F afii57455 | |
654 | 0650 afii57456 | |
655 | 0651 afii57457 | |
656 | 0652 afii57458 | |
657 | 0660 afii57392 | |
658 | 0661 afii57393 | |
659 | 0662 afii57394 | |
660 | 0663 afii57395 | |
661 | 0664 afii57396 | |
662 | 0665 afii57397 | |
663 | 0666 afii57398 | |
664 | 0667 afii57399 | |
665 | 0668 afii57400 | |
666 | 0669 afii57401 | |
667 | 066A afii57381 | |
668 | 066D afii63167 | |
669 | 0679 afii57511 | |
670 | 067E afii57506 | |
671 | 0686 afii57507 | |
672 | 0688 afii57512 | |
673 | 0691 afii57513 | |
674 | 0698 afii57508 | |
675 | 06A4 afii57505 | |
676 | 06AF afii57509 | |
677 | 06BA afii57514 | |
678 | 06D2 afii57519 | |
679 | 06D5 afii57534 | |
680 | 1E80 Wgrave | |
681 | 1E81 wgrave | |
682 | 1E82 Wacute | |
683 | 1E83 wacute | |
684 | 1E84 Wdieresis | |
685 | 1E85 wdieresis | |
686 | 1EF2 Ygrave | |
687 | 1EF3 ygrave | |
688 | 200C afii61664 | |
689 | 200D afii301 | |
690 | 200E afii299 | |
691 | 200F afii300 | |
692 | 2012 figuredash | |
693 | 2013 endash | |
694 | 2014 emdash | |
695 | 2015 afii00208 | |
696 | 2017 underscoredbl | |
697 | 2018 quoteleft | |
698 | 2019 quoteright | |
699 | 201A quotesinglbase | |
700 | 201B quotereversed | |
701 | 201C quotedblleft | |
702 | 201D quotedblright | |
703 | 201E quotedblbase | |
704 | 2020 dagger | |
705 | 2021 daggerdbl | |
706 | 2022 bullet | |
707 | 2024 onedotenleader | |
708 | 2025 twodotenleader | |
709 | 2026 ellipsis | |
710 | 202C afii61573 | |
711 | 202D afii61574 | |
712 | 202E afii61575 | |
713 | 2030 perthousand | |
714 | 2032 minute | |
715 | 2033 second | |
716 | 2039 guilsinglleft | |
717 | 203A guilsinglright | |
718 | 203C exclamdbl | |
719 | 2044 fraction | |
720 | 2070 zerosuperior | |
721 | 2074 foursuperior | |
722 | 2075 fivesuperior | |
723 | 2076 sixsuperior | |
724 | 2077 sevensuperior | |
725 | 2078 eightsuperior | |
726 | 2079 ninesuperior | |
727 | 207D parenleftsuperior | |
728 | 207E parenrightsuperior | |
729 | 207F nsuperior | |
730 | 2080 zeroinferior | |
731 | 2081 oneinferior | |
732 | 2082 twoinferior | |
733 | 2083 threeinferior | |
734 | 2084 fourinferior | |
735 | 2085 fiveinferior | |
736 | 2086 sixinferior | |
737 | 2087 seveninferior | |
738 | 2088 eightinferior | |
739 | 2089 nineinferior | |
740 | 208D parenleftinferior | |
741 | 208E parenrightinferior | |
742 | 20A1 colonmonetary | |
743 | 20A3 franc | |
744 | 20A4 lira | |
745 | 20A7 peseta | |
746 | 20AA afii57636 | |
747 | 20AB dong | |
748 | 20AC Euro | |
749 | 2105 afii61248 | |
750 | 2111 Ifraktur | |
751 | 2113 afii61289 | |
752 | 2116 afii61352 | |
753 | 2118 weierstrass | |
754 | 211C Rfraktur | |
755 | 211E prescription | |
756 | 2122 trademark | |
757 | 2126 Omega | |
758 | 212E estimated | |
759 | 2135 aleph | |
760 | 2153 onethird | |
761 | 2154 twothirds | |
762 | 215B oneeighth | |
763 | 215C threeeighths | |
764 | 215D fiveeighths | |
765 | 215E seveneighths | |
766 | 2190 arrowleft | |
767 | 2191 arrowup | |
768 | 2192 arrowright | |
769 | 2193 arrowdown | |
770 | 2194 arrowboth | |
771 | 2195 arrowupdn | |
772 | 21A8 arrowupdnbse | |
773 | 21B5 carriagereturn | |
774 | 21D0 arrowdblleft | |
775 | 21D1 arrowdblup | |
776 | 21D2 arrowdblright | |
777 | 21D3 arrowdbldown | |
778 | 21D4 arrowdblboth | |
779 | 2200 universal | |
780 | 2202 partialdiff | |
781 | 2203 existential | |
782 | 2205 emptyset | |
783 | 2206 Delta | |
784 | 2207 gradient | |
785 | 2208 element | |
786 | 2209 notelement | |
787 | 220B suchthat | |
788 | 220F product | |
789 | 2211 summation | |
790 | 2212 minus | |
791 | 2215 fraction | |
792 | 2217 asteriskmath | |
793 | 2219 periodcentered | |
794 | 221A radical | |
795 | 221D proportional | |
796 | 221E infinity | |
797 | 221F orthogonal | |
798 | 2220 angle | |
799 | 2227 logicaland | |
800 | 2228 logicalor | |
801 | 2229 intersection | |
802 | 222A union | |
803 | 222B integral | |
804 | 2234 therefore | |
805 | 223C similar | |
806 | 2245 congruent | |
807 | 2248 approxequal | |
808 | 2260 notequal | |
809 | 2261 equivalence | |
810 | 2264 lessequal | |
811 | 2265 greaterequal | |
812 | 2282 propersubset | |
813 | 2283 propersuperset | |
814 | 2284 notsubset | |
815 | 2286 reflexsubset | |
816 | 2287 reflexsuperset | |
817 | 2295 circleplus | |
818 | 2297 circlemultiply | |
819 | 22A5 perpendicular | |
820 | 22C5 dotmath | |
821 | 2302 house | |
822 | 2310 revlogicalnot | |
823 | 2320 integraltp | |
824 | 2321 integralbt | |
825 | 2329 angleleft | |
826 | 232A angleright | |
827 | 2500 SF100000 | |
828 | 2502 SF110000 | |
829 | 250C SF010000 | |
830 | 2510 SF030000 | |
831 | 2514 SF020000 | |
832 | 2518 SF040000 | |
833 | 251C SF080000 | |
834 | 2524 SF090000 | |
835 | 252C SF060000 | |
836 | 2534 SF070000 | |
837 | 253C SF050000 | |
838 | 2550 SF430000 | |
839 | 2551 SF240000 | |
840 | 2552 SF510000 | |
841 | 2553 SF520000 | |
842 | 2554 SF390000 | |
843 | 2555 SF220000 | |
844 | 2556 SF210000 | |
845 | 2557 SF250000 | |
846 | 2558 SF500000 | |
847 | 2559 SF490000 | |
848 | 255A SF380000 | |
849 | 255B SF280000 | |
850 | 255C SF270000 | |
851 | 255D SF260000 | |
852 | 255E SF360000 | |
853 | 255F SF370000 | |
854 | 2560 SF420000 | |
855 | 2561 SF190000 | |
856 | 2562 SF200000 | |
857 | 2563 SF230000 | |
858 | 2564 SF470000 | |
859 | 2565 SF480000 | |
860 | 2566 SF410000 | |
861 | 2567 SF450000 | |
862 | 2568 SF460000 | |
863 | 2569 SF400000 | |
864 | 256A SF540000 | |
865 | 256B SF530000 | |
866 | 256C SF440000 | |
867 | 2580 upblock | |
868 | 2584 dnblock | |
869 | 2588 block | |
870 | 258C lfblock | |
871 | 2590 rtblock | |
872 | 2591 ltshade | |
873 | 2592 shade | |
874 | 2593 dkshade | |
875 | 25A0 filledbox | |
876 | 25A1 H22073 | |
877 | 25AA H18543 | |
878 | 25AB H18551 | |
879 | 25AC filledrect | |
880 | 25B2 triagup | |
881 | 25BA triagrt | |
882 | 25BC triagdn | |
883 | 25C4 triaglf | |
884 | 25CA lozenge | |
885 | 25CB circle | |
886 | 25CF H18533 | |
887 | 25D8 invbullet | |
888 | 25D9 invcircle | |
889 | 25E6 openbullet | |
890 | 263A smileface | |
891 | 263B invsmileface | |
892 | 263C sun | |
893 | 2640 female | |
894 | 2642 male | |
895 | 2660 spade | |
896 | 2663 club | |
897 | 2665 heart | |
898 | 2666 diamond | |
899 | 266A musicalnote | |
900 | 266B musicalnotedbl | |
901 | F6BE dotlessj | |
902 | F6BF LL | |
903 | F6C0 ll | |
904 | F6C1 Scedilla | |
905 | F6C2 scedilla | |
906 | F6C3 commaaccent | |
907 | F6C4 afii10063 | |
908 | F6C5 afii10064 | |
909 | F6C6 afii10192 | |
910 | F6C7 afii10831 | |
911 | F6C8 afii10832 | |
912 | F6C9 Acute | |
913 | F6CA Caron | |
914 | F6CB Dieresis | |
915 | F6CC DieresisAcute | |
916 | F6CD DieresisGrave | |
917 | F6CE Grave | |
918 | F6CF Hungarumlaut | |
919 | F6D0 Macron | |
920 | F6D1 cyrBreve | |
921 | F6D2 cyrFlex | |
922 | F6D3 dblGrave | |
923 | F6D4 cyrbreve | |
924 | F6D5 cyrflex | |
925 | F6D6 dblgrave | |
926 | F6D7 dieresisacute | |
927 | F6D8 dieresisgrave | |
928 | F6D9 copyrightserif | |
929 | F6DA registerserif | |
930 | F6DB trademarkserif | |
931 | F6DC onefitted | |
932 | F6DD rupiah | |
933 | F6DE threequartersemdash | |
934 | F6DF centinferior | |
935 | F6E0 centsuperior | |
936 | F6E1 commainferior | |
937 | F6E2 commasuperior | |
938 | F6E3 dollarinferior | |
939 | F6E4 dollarsuperior | |
940 | F6E5 hypheninferior | |
941 | F6E6 hyphensuperior | |
942 | F6E7 periodinferior | |
943 | F6E8 periodsuperior | |
944 | F6E9 asuperior | |
945 | F6EA bsuperior | |
946 | F6EB dsuperior | |
947 | F6EC esuperior | |
948 | F6ED isuperior | |
949 | F6EE lsuperior | |
950 | F6EF msuperior | |
951 | F6F0 osuperior | |
952 | F6F1 rsuperior | |
953 | F6F2 ssuperior | |
954 | F6F3 tsuperior | |
955 | F6F4 Brevesmall | |
956 | F6F5 Caronsmall | |
957 | F6F6 Circumflexsmall | |
958 | F6F7 Dotaccentsmall | |
959 | F6F8 Hungarumlautsmall | |
960 | F6F9 Lslashsmall | |
961 | F6FA OEsmall | |
962 | F6FB Ogoneksmall | |
963 | F6FC Ringsmall | |
964 | F6FD Scaronsmall | |
965 | F6FE Tildesmall | |
966 | F6FF Zcaronsmall | |
967 | F721 exclamsmall | |
968 | F724 dollaroldstyle | |
969 | F726 ampersandsmall | |
970 | F730 zerooldstyle | |
971 | F731 oneoldstyle | |
972 | F732 twooldstyle | |
973 | F733 threeoldstyle | |
974 | F734 fouroldstyle | |
975 | F735 fiveoldstyle | |
976 | F736 sixoldstyle | |
977 | F737 sevenoldstyle | |
978 | F738 eightoldstyle | |
979 | F739 nineoldstyle | |
980 | F73F questionsmall | |
981 | F760 Gravesmall | |
982 | F761 Asmall | |
983 | F762 Bsmall | |
984 | F763 Csmall | |
985 | F764 Dsmall | |
986 | F765 Esmall | |
987 | F766 Fsmall | |
988 | F767 Gsmall | |
989 | F768 Hsmall | |
990 | F769 Ismall | |
991 | F76A Jsmall | |
992 | F76B Ksmall | |
993 | F76C Lsmall | |
994 | F76D Msmall | |
995 | F76E Nsmall | |
996 | F76F Osmall | |
997 | F770 Psmall | |
998 | F771 Qsmall | |
999 | F772 Rsmall | |
1000 | F773 Ssmall | |
1001 | F774 Tsmall | |
1002 | F775 Usmall | |
1003 | F776 Vsmall | |
1004 | F777 Wsmall | |
1005 | F778 Xsmall | |
1006 | F779 Ysmall | |
1007 | F77A Zsmall | |
1008 | F7A1 exclamdownsmall | |
1009 | F7A2 centoldstyle | |
1010 | F7A8 Dieresissmall | |
1011 | F7AF Macronsmall | |
1012 | F7B4 Acutesmall | |
1013 | F7B8 Cedillasmall | |
1014 | F7BF questiondownsmall | |
1015 | F7E0 Agravesmall | |
1016 | F7E1 Aacutesmall | |
1017 | F7E2 Acircumflexsmall | |
1018 | F7E3 Atildesmall | |
1019 | F7E4 Adieresissmall | |
1020 | F7E5 Aringsmall | |
1021 | F7E6 AEsmall | |
1022 | F7E7 Ccedillasmall | |
1023 | F7E8 Egravesmall | |
1024 | F7E9 Eacutesmall | |
1025 | F7EA Ecircumflexsmall | |
1026 | F7EB Edieresissmall | |
1027 | F7EC Igravesmall | |
1028 | F7ED Iacutesmall | |
1029 | F7EE Icircumflexsmall | |
1030 | F7EF Idieresissmall | |
1031 | F7F0 Ethsmall | |
1032 | F7F1 Ntildesmall | |
1033 | F7F2 Ogravesmall | |
1034 | F7F3 Oacutesmall | |
1035 | F7F4 Ocircumflexsmall | |
1036 | F7F5 Otildesmall | |
1037 | F7F6 Odieresissmall | |
1038 | F7F8 Oslashsmall | |
1039 | F7F9 Ugravesmall | |
1040 | F7FA Uacutesmall | |
1041 | F7FB Ucircumflexsmall | |
1042 | F7FC Udieresissmall | |
1043 | F7FD Yacutesmall | |
1044 | F7FE Thornsmall | |
1045 | F7FF Ydieresissmall | |
1046 | F8E5 radicalex | |
1047 | F8E6 arrowvertex | |
1048 | F8E7 arrowhorizex | |
1049 | F8E8 registersans | |
1050 | F8E9 copyrightsans | |
1051 | F8EA trademarksans | |
1052 | F8EB parenlefttp | |
1053 | F8EC parenleftex | |
1054 | F8ED parenleftbt | |
1055 | F8EE bracketlefttp | |
1056 | F8EF bracketleftex | |
1057 | F8F0 bracketleftbt | |
1058 | F8F1 bracelefttp | |
1059 | F8F2 braceleftmid | |
1060 | F8F3 braceleftbt | |
1061 | F8F4 braceex | |
1062 | F8F5 integralex | |
1063 | F8F6 parenrighttp | |
1064 | F8F7 parenrightex | |
1065 | F8F8 parenrightbt | |
1066 | F8F9 bracketrighttp | |
1067 | F8FA bracketrightex | |
1068 | F8FB bracketrightbt | |
1069 | F8FC bracerighttp | |
1070 | F8FD bracerightmid | |
1071 | F8FE bracerightbt | |
1072 | FB00 ff | |
1073 | FB01 fi | |
1074 | FB02 fl | |
1075 | FB03 ffi | |
1076 | FB04 ffl | |
1077 | FB1F afii57705 | |
1078 | FB2A afii57694 | |
1079 | FB2B afii57695 | |
1080 | FB35 afii57723 | |
1081 | FB4B afii57700 | |
1082 | } | |
1083 | ||
1084 | # precalculate entire prolog when this file is loaded | |
1085 | # (to speed things up) | |
1086 | set ps_preamable "%%BeginProlog\n" | |
1087 | append ps_preamable [CreatePostscriptEncoding [encoding system]] | |
1088 | append ps_preamable { | |
1089 | 50 dict begin | |
1090 | % This is a standard prolog for Postscript generated by Tk's canvas | |
1091 | % widget. | |
1092 | % RCS: @(#) $Id: mkpsenc.tcl,v 1.3 2002/07/19 14:37:21 drh Exp $ | |
1093 | ||
1094 | % The definitions below just define all of the variables used in | |
1095 | % any of the procedures here. This is needed for obscure reasons | |
1096 | % explained on p. 716 of the Postscript manual (Section H.2.7, | |
1097 | % "Initializing Variables," in the section on Encapsulated Postscript). | |
1098 | ||
1099 | /baseline 0 def | |
1100 | /stipimage 0 def | |
1101 | /height 0 def | |
1102 | /justify 0 def | |
1103 | /lineLength 0 def | |
1104 | /spacing 0 def | |
1105 | /stipple 0 def | |
1106 | /strings 0 def | |
1107 | /xoffset 0 def | |
1108 | /yoffset 0 def | |
1109 | /tmpstip null def | |
1110 | ||
1111 | ||
1112 | /cstringshow { | |
1113 | { | |
1114 | dup type /stringtype eq | |
1115 | { show } { glyphshow } | |
1116 | ifelse | |
1117 | } | |
1118 | forall | |
1119 | } bind def | |
1120 | ||
1121 | ||
1122 | ||
1123 | /cstringwidth { | |
1124 | 0 exch 0 exch | |
1125 | { | |
1126 | dup type /stringtype eq | |
1127 | { stringwidth } { | |
1128 | currentfont /Encoding get exch 1 exch put (\001) stringwidth | |
1129 | } | |
1130 | ifelse | |
1131 | exch 3 1 roll add 3 1 roll add exch | |
1132 | } | |
1133 | forall | |
1134 | } bind def | |
1135 | ||
1136 | % font ISOEncode font | |
1137 | % This procedure changes the encoding of a font from the default | |
1138 | % Postscript encoding to current system encoding. It's typically invoked just | |
1139 | % before invoking "setfont". The body of this procedure comes from | |
1140 | % Section 5.6.1 of the Postscript book. | |
1141 | ||
1142 | /ISOEncode { | |
1143 | dup length dict begin | |
1144 | {1 index /FID ne {def} {pop pop} ifelse} forall | |
1145 | /Encoding CurrentEncoding def | |
1146 | currentdict | |
1147 | end | |
1148 | ||
1149 | % I'm not sure why it's necessary to use "definefont" on this new | |
1150 | % font, but it seems to be important; just use the name "Temporary" | |
1151 | % for the font. | |
1152 | ||
1153 | /Temporary exch definefont | |
1154 | } bind def | |
1155 | ||
1156 | % StrokeClip | |
1157 | % | |
1158 | % This procedure converts the current path into a clip area under | |
1159 | % the assumption of stroking. It's a bit tricky because some Postscript | |
1160 | % interpreters get errors during strokepath for dashed lines. If | |
1161 | % this happens then turn off dashes and try again. | |
1162 | ||
1163 | /StrokeClip { | |
1164 | {strokepath} stopped { | |
1165 | (This Postscript printer gets limitcheck overflows when) = | |
1166 | (stippling dashed lines; lines will be printed solid instead.) = | |
1167 | [] 0 setdash strokepath} if | |
1168 | clip | |
1169 | } bind def | |
1170 | ||
1171 | % desiredSize EvenPixels closestSize | |
1172 | % | |
1173 | % The procedure below is used for stippling. Given the optimal size | |
1174 | % of a dot in a stipple pattern in the current user coordinate system, | |
1175 | % compute the closest size that is an exact multiple of the device's | |
1176 | % pixel size. This allows stipple patterns to be displayed without | |
1177 | % aliasing effects. | |
1178 | ||
1179 | /EvenPixels { | |
1180 | % Compute exact number of device pixels per stipple dot. | |
1181 | dup 0 matrix currentmatrix dtransform | |
1182 | dup mul exch dup mul add sqrt | |
1183 | ||
1184 | % Round to an integer, make sure the number is at least 1, and compute | |
1185 | % user coord distance corresponding to this. | |
1186 | dup round dup 1 lt {pop 1} if | |
1187 | exch div mul | |
1188 | } bind def | |
1189 | ||
1190 | % width height string StippleFill -- | |
1191 | % | |
1192 | % Given a path already set up and a clipping region generated from | |
1193 | % it, this procedure will fill the clipping region with a stipple | |
1194 | % pattern. "String" contains a proper image description of the | |
1195 | % stipple pattern and "width" and "height" give its dimensions. Each | |
1196 | % stipple dot is assumed to be about one unit across in the current | |
1197 | % user coordinate system. This procedure trashes the graphics state. | |
1198 | ||
1199 | /StippleFill { | |
1200 | % The following code is needed to work around a NeWSprint bug. | |
1201 | ||
1202 | /tmpstip 1 index def | |
1203 | ||
1204 | % Change the scaling so that one user unit in user coordinates | |
1205 | % corresponds to the size of one stipple dot. | |
1206 | 1 EvenPixels dup scale | |
1207 | ||
1208 | % Compute the bounding box occupied by the path (which is now | |
1209 | % the clipping region), and round the lower coordinates down | |
1210 | % to the nearest starting point for the stipple pattern. Be | |
1211 | % careful about negative numbers, since the rounding works | |
1212 | % differently on them. | |
1213 | ||
1214 | pathbbox | |
1215 | 4 2 roll | |
1216 | 5 index div dup 0 lt {1 sub} if cvi 5 index mul 4 1 roll | |
1217 | 6 index div dup 0 lt {1 sub} if cvi 6 index mul 3 2 roll | |
1218 | ||
1219 | % Stack now: width height string y1 y2 x1 x2 | |
1220 | % Below is a doubly-nested for loop to iterate across this area | |
1221 | % in units of the stipple pattern size, going up columns then | |
1222 | % across rows, blasting out a stipple-pattern-sized rectangle at | |
1223 | % each position | |
1224 | ||
1225 | 6 index exch { | |
1226 | 2 index 5 index 3 index { | |
1227 | % Stack now: width height string y1 y2 x y | |
1228 | ||
1229 | gsave | |
1230 | 1 index exch translate | |
1231 | 5 index 5 index true matrix tmpstip imagemask | |
1232 | grestore | |
1233 | } for | |
1234 | pop | |
1235 | } for | |
1236 | pop pop pop pop pop | |
1237 | } bind def | |
1238 | ||
1239 | % -- AdjustColor -- | |
1240 | % Given a color value already set for output by the caller, adjusts | |
1241 | % that value to a grayscale or mono value if requested by the CL | |
1242 | % variable. | |
1243 | ||
1244 | /AdjustColor { | |
1245 | CL 2 lt { | |
1246 | currentgray | |
1247 | CL 0 eq { | |
1248 | .5 lt {0} {1} ifelse | |
1249 | } if | |
1250 | setgray | |
1251 | } if | |
1252 | } bind def | |
1253 | ||
1254 | % x y strings spacing xoffset yoffset justify stipple DrawText -- | |
1255 | % This procedure does all of the real work of drawing text. The | |
1256 | % color and font must already have been set by the caller, and the | |
1257 | % following arguments must be on the stack: | |
1258 | % | |
1259 | % x, y - Coordinates at which to draw text. | |
1260 | % strings - An array of strings, one for each line of the text item, | |
1261 | % in order from top to bottom. | |
1262 | % spacing - Spacing between lines. | |
1263 | % xoffset - Horizontal offset for text bbox relative to x and y: 0 for | |
1264 | % nw/w/sw anchor, -0.5 for n/center/s, and -1.0 for ne/e/se. | |
1265 | % yoffset - Vertical offset for text bbox relative to x and y: 0 for | |
1266 | % nw/n/ne anchor, +0.5 for w/center/e, and +1.0 for sw/s/se. | |
1267 | % justify - 0 for left justification, 0.5 for center, 1 for right justify. | |
1268 | % stipple - Boolean value indicating whether or not text is to be | |
1269 | % drawn in stippled fashion. If text is stippled, | |
1270 | % procedure StippleText must have been defined to call | |
1271 | % StippleFill in the right way. | |
1272 | % | |
1273 | % Also, when this procedure is invoked, the color and font must already | |
1274 | % have been set for the text. | |
1275 | ||
1276 | /DrawText { | |
1277 | /stipple exch def | |
1278 | /justify exch def | |
1279 | /yoffset exch def | |
1280 | /xoffset exch def | |
1281 | /spacing exch def | |
1282 | /strings exch def | |
1283 | ||
1284 | % First scan through all of the text to find the widest line. | |
1285 | ||
1286 | /lineLength 0 def | |
1287 | strings { | |
1288 | cstringwidth pop | |
1289 | dup lineLength gt {/lineLength exch def} {pop} ifelse | |
1290 | newpath | |
1291 | } forall | |
1292 | ||
1293 | % Compute the baseline offset and the actual font height. | |
1294 | ||
1295 | 0 0 moveto (TXygqPZ) false charpath | |
1296 | pathbbox dup /baseline exch def | |
1297 | exch pop exch sub /height exch def pop | |
1298 | newpath | |
1299 | ||
1300 | % Translate coordinates first so that the origin is at the upper-left | |
1301 | % corner of the text's bounding box. Remember that x and y for | |
1302 | % positioning are still on the stack. | |
1303 | ||
1304 | translate | |
1305 | lineLength xoffset mul | |
1306 | strings length 1 sub spacing mul height add yoffset mul translate | |
1307 | ||
1308 | % Now use the baseline and justification information to translate so | |
1309 | % that the origin is at the baseline and positioning point for the | |
1310 | % first line of text. | |
1311 | ||
1312 | justify lineLength mul baseline neg translate | |
1313 | ||
1314 | % Iterate over each of the lines to output it. For each line, | |
1315 | % compute its width again so it can be properly justified, then | |
1316 | % display it. | |
1317 | ||
1318 | strings { | |
1319 | dup cstringwidth pop | |
1320 | justify neg mul 0 moveto | |
1321 | stipple { | |
1322 | ||
1323 | ||
1324 | % The text is stippled, so turn it into a path and print | |
1325 | % by calling StippledText, which in turn calls StippleFill. | |
1326 | % Unfortunately, many Postscript interpreters will get | |
1327 | % overflow errors if we try to do the whole string at | |
1328 | % once, so do it a character at a time. | |
1329 | ||
1330 | gsave | |
1331 | /char (X) def | |
1332 | { | |
1333 | dup type /stringtype eq { | |
1334 | % This segment is a string. | |
1335 | { | |
1336 | char 0 3 -1 roll put | |
1337 | currentpoint | |
1338 | gsave | |
1339 | char true charpath clip StippleText | |
1340 | grestore | |
1341 | char stringwidth translate | |
1342 | moveto | |
1343 | } forall | |
1344 | } { | |
1345 | % This segment is glyph name | |
1346 | % Temporary override | |
1347 | currentfont /Encoding get exch 1 exch put | |
1348 | currentpoint | |
1349 | gsave (\001) true charpath clip StippleText | |
1350 | grestore | |
1351 | (\001) stringwidth translate | |
1352 | moveto | |
1353 | } ifelse | |
1354 | } forall | |
1355 | grestore | |
1356 | } {cstringshow} ifelse | |
1357 | 0 spacing neg translate | |
1358 | } forall | |
1359 | } bind def | |
1360 | ||
1361 | %%EndProlog | |
1362 | } | |
1363 | ||
1364 | } | |
1365 | ||
1366 | proc tk::ensure_psenc_is_loaded {} { | |
1367 | } |