|
12345678 |
- /Encoding 256 array def 0 1 118{dup 3 string cvs fsds exch 3 exch putinterval Encoding exch fsds cvn put}for 119 1 255 {Encoding exch /.notdef put} for
- /CharProcs 256 dict def CharProcs begin /.notdef{pop}def 0 1 108{Encoding exch get {mdot}!}for 109 1 118{Encoding exch get {pop}!}for end
- /BuildChar{/char exch def /fontdict exch def fscc char get dup /inum exch def fontdict fontdict /Encoding get char get fswd inum get aload pop fsbb inum get aload pop setcachedevice exch /CharProcs get exch 2 copy known not{pop /.notdef}if get exec}!
- currentdict
- end
- /AnotoFont exch definefont pop
- /AnotoFont ffi fst
-
|