diff options
-rw-r--r-- | Resource/Init/gs_type1.ps | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Resource/Init/gs_type1.ps b/Resource/Init/gs_type1.ps index d696a1539..f17a3f11b 100644 --- a/Resource/Init/gs_type1.ps +++ b/Resource/Init/gs_type1.ps @@ -75,9 +75,10 @@ % 16 bytes is arbitrary, but should be large enough to hold any "uniXXXX" style name //ReverseAdobeGlyphList //AdobeGlyphList 3 -1 roll % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) - dup - { % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) gname cstring - exch dup % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) cstring gname gname + [ 1 index {pop} forall ] % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) [ glyph names ] + { % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) gname + 1 index 1 index get % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) cstring gname + exch dup 4 index exch .knownget { //true} { % scratch(string) RAGL(dict) AGL(dict) CharStrings(dict) cstring gname @@ -86,7 +87,7 @@ { % if we couldn't derive the code point from the AGL, we might derive it % from a formatted "uniXXXX" name. - dup <00000000000000000000000000000000> cvs dup flush (uni) anchorsearch + dup (0000000000000000) cvs dup (uni) anchorsearch { % as luck would have it, we can just replace the "uni" with "16#" % to get something we can convert to a number |