Home » Personal collection » Acorn hard disk » apps » Printers » 152/!Printers/ps/PSfiles/PSprolog2
152/!Printers/ps/PSfiles/PSprolog2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn hard disk » apps » Printers |
| Filename: | 152/!Printers/ps/PSfiles/PSprolog2 |
| Read OK: | ✔ |
| File size: | 1E80 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
%% Main prologue file for the PostScript printer driver module.
%% Version 4.00 first used with version 4.00 of the module
/PDdict 200 dict def PDdict begin/BD{bind def}bind def/LD{load
def}BD/LW/setlinewidth LD/St/stroke LD/T/translate LD/S/save LD/R/restore
LD/GS/gsave LD/GR/grestore LD/CP/clippath LD/Cl/closepath LD/M/moveto
LD/RM/rmoveto LD/L/lineto LD/B/curveto LD/I/index LD/SW/stringwidth
LD/GCF/currentfont LD/GCM/currentmatrix LD/SCM/setmatrix LD/CCM/concatmatrix
LD/ED{exch def}BD/Copies{/#copies ED showpage}BD/MP{400. div}BD/Fb{65536.
div}BD/WM1 matrix def/WM2 matrix def/IM1 matrix def/UM{Fb 4 1 roll Fb 4 1
roll Fb 4 1 roll Fb 4 1 roll 0. 0. WM1 astore concat}BD/Bx{4 copy 5 1 roll 4
2 roll 5 -1 roll M L L L Cl}BD/Cp{Bx clip newpath}BD/PS{72. 180. div dup
scale newpath Cp[]0. setdash}BD/MC{0. 0. Cp}BD/G{255. div setgray}BD/C{255.
div 3 1 roll 255. div 3 1 roll 255. div 3 1 roll setrgbcolor}BD/Eps 0.1 MP
def/VSt{2 setlinecap 0 setlinejoin 2.000001 setmiterlimit 2. LW 0. Eps
rlineto St}BD/VFl{Cl GS fill GR VSt}BD/Li{M L VSt}BD/Pt{M VSt}BD/Tr{M L L
VFl}BD/Rc{Bx VFl}BD/Pr{6 copy M L L 5 -1 roll 4 -1 roll sub add 4 1 roll
exch sub add exch L VFl}BD/Ln{dup mul exch dup mul add sqrt}BD/Cir{0. 360.
arc}BD/VC{Ln Cir}BD/CS{VC VSt}BD/CF{VC VFl}BD/VA{2 copy Ln 5 1 roll exch
atan 3 1 roll exch atan arc}BD/Ac{VA VSt}BD/Cd{VA VFl}BD/Sc{5 I 5 I M VA
VFl}BD/VE{0. 5 1 roll WM1 astore WM2 GCM exch concat 0. 0. 1. Cir
SCM}BD/ES{VE VSt}BD/EF{VE VFl}BD/Max{2 copy lt{exch}if pop}BD/DM{256. div 6
1 roll 256. div 6 1 roll Fb 256. div 6 1 roll Fb 256. div 6 1 roll Fb 256.
div 6 1 roll Fb 256. div 6 1 roll WM1 astore concat}BD/SDM{256. div 6 1 roll
256. div 6 1 roll Fb 6 1 roll Fb 6 1 roll Fb 6 1 roll Fb 6 1 roll 6 copy WM1
astore concat pop pop 0 0 IM1 astore pop}BD/IT{IM1 itransform}BD/CJ{2 I 0
eq{Fb setmiterlimit}{pop}ifelse setlinecap setlinejoin}BD/WS 4096 string
def/SMat matrix def/SS{div 3 1 roll div exch scale}BD/SM{1. exch div 0. 0.
1. 0. 0. SMat astore pop}BD/RC{WS 0 3 I put dup 1 gt{WS 1 3 I put dup 2
gt{WS 2 3 I put WS 3 3 I put dup 4 gt{WS 4 WS 0 4 getinterval putinterval
dup 8 gt{WS 8 WS 0 8 getinterval putinterval dup 16 gt{WS 16 WS 0 16
getinterval putinterval dup 32 gt{WS 32 WS 0 32 getinterval putinterval dup
64 gt{WS 64 WS 0 64 getinterval putinterval dup 128 gt{WS 128 WS 0 128
getinterval putinterval dup 256 gt{WS 256 WS 0 256 getinterval putinterval
dup 512 gt{WS 512 WS 0 512 getinterval putinterval dup 1024 gt{WS 1024 WS 0
1024 getinterval putinterval dup 2048 gt{WS 2048 WS 0 2048 getinterval
putinterval}if}if}if}if}if}if}if}if}if}if}if}if pop pop}BD/SR{currentfile
token pop dup 0 gt{WS 0 3 -1 roll getinterval currentfile exch readhexstring
pop}{neg currentfile token pop 1 I RC WS 0 3 -1 roll
getinterval}ifelse}BD/S1{true SMat/SR load imagemask}BD 255 2048 RC/FFs WS 0
2048 getinterval 2048 string copy def/SF{/WS2 FFs 0 4 I 7 add 8 idiv 4 I mul
getinterval def true SMat{WS2}imagemask}BD/SN{8 SMat/SR load image}BD/Rem 0
def/D32{currentfile Rem WS length lt{WS 0 Rem getinterval}{WS}ifelse
readhexstring pop/Rem Rem WS length sub def}BD/S32{2 copy mul 3 mul/Rem
exch def 8 SMat/D32 load false 3 colorimage}BD/TS{1. exch div exch 1. exch
div exch scale}BD/Fn{0.016 div exch 0.016 div exch dup/fheight ED 0. 0. 3 -1
roll 0. 0. WM1 astore exch findfont exch makefont setfont}BD/Ul{GS 2 copy Ln
ulpos ulthick 2. div sub 256. div fheight mul exch div dup 2 I neg mul exch
3 I mul RM 2 copy rlineto ulthick 256. div fheight mul LW 0 setlinecap St
GR}BD/AC{3 -1 roll exch sub 3 I length div 4 1 roll sub 1 I length div 3 1
roll}BD/Tx{M 2 I SW AC ashow}BD/JTx{M 7 I dup 4 1 roll SW AC pop exch 4 -1
roll add 3 1 roll add 6 -1 roll awidthshow}BD/UTx{/ulthick ED/ulpos ED M Ul
2 I SW AC ashow}BD/UJTx{M/ulthick ED/ulpos ED Ul pop pop 7 I dup 4 1 roll SW
AC pop exch 4 -1 roll add 3 1 roll add 6 -1 roll
awidthshow}BD/kload{{ceiling}stopped{aload pop}{0}ifelse}BD/kproc{5 I 5 I RM
2 I{exch 256 mul add 2 I exch 2 copy known{WM2 SCM get kload RM WM1
SCM}{pop pop}ifelse}{pop pop}ifelse}BD/KTx{WM1 GCM GCF/FontMatrix get exch
WM2 CCM pop M 2 I SW AC GCF/KernData known{GCF/KernData get true}{null
false}ifelse{kproc}4 -1 roll kshow pop pop pop pop}BD/UKTx{6 2
roll/ulthick ED/ulpos ED 2 copy M 4 2 roll Ul pop pop KTx}BD/jkproc{5 I 5
I RM 1 I 7 I eq{8 I 8 I RM}if 2 I{exch 256 mul add 2 I exch 2 copy
known{WM2 SCM get kload RM WM1 SCM}{pop pop}ifelse}{pop
pop}ifelse}BD/JKTx{WM1 GCM GCF/FontMatrix get exch WM2 CCM pop M 8 -1 roll
dup 4 1 roll SW AC 5 1 roll exch 4 -1 roll add 3 1 roll add GCF/KernData
known{GCF/KernData get true}{null false}ifelse{jkproc}6 -1 roll kshow
7{pop}repeat}BD/UJKTx{2 copy M 6 2 roll/ulthick ED/ulpos ED Ul pop pop
JKTx}BD/cdefs 224 8 mul string def cdefs 127 32 sub 8 mul FFs 0 8
getinterval putinterval/DC{32 sub 8 mul cdefs exch 8 getinterval currentfile
exch readhexstring pop pop}BD/ArcFont dup 6 dict dup begin/FontMatrix[1. 0.
0. 1. 0. -1.]def/FontType 3 def/FontBBox[0. 0. 1. 1.]def/Encoding 256 array
def 0 1 255{Encoding exch/.notdef put}for/BuildChar{xgap ygap setcharwidth 8
8 true 8. 0. 0. 8. 0. 0. WM2 astore 5 -1 roll 32 sub 8 mul cdefs exch 8
getinterval imagemask pop}BD end definefont def/V{GS 2 I div/ygap ED 2 I
div/xgap ED 0. 0. 3 -1 roll 0. 0. WM1 astore ArcFont exch makefont setfont M
show GR}BD/PAR{6 -2 roll pop pop 10 dict begin dup 0 lt/hflip ED abs/h ED
dup 0 lt/wflip ED abs/w ED 256. div/uly ED 256. div/ulx ED 256. div/lry ED
256. div/lrx ED 256. div/lly ED 256. div/llx ED[lrx llx sub w div lry lly
sub w div ulx llx sub h div uly lly sub h div llx lly]concat hflip{0 h T 1
-1 scale}if wflip{w 0 T -1 1 scale}if end}BD/VALACC 14 dict dup begin/acute
1 def/grave 1 def/circumflex 1 def/dieresis 1 def/ring 1 def/tilde 1
def/breve 1 def/caron 1 def/cedilla 1 def/dotaccent 1 def/hungarumlaut 1
def/slash 1 def/macron 1 def/ogonek 1 def end def/CKN{2 copy known{get
type/arraytype ne}{pop pop false}ifelse}def/OKA{2 copy known{pop pop
false}{dup length dup 1 gt{string cvs dup 0 1 getinterval cvn exch 1 1 I
length 1 sub getinterval cvn 3 -1 roll dup 2 I CKN exch 3 I CKN and VALACC 2
I known and{true}{pop pop false}ifelse}{pop pop pop
false}ifelse}ifelse}def/RF{findfont false 3 1 roll _RFE}def/_RFE{dup length
dict begin{1 I/FID ne{def}{pop pop}ifelse}forall dup type/arraytype
eq{/FontMatrix FontMatrix 3 -1 roll 6 array CCM def}{pop}ifelse dup
type/arraytype eq currentdict/Encoding known and{/Encoding exch
def}{pop}ifelse currentdict end definefont pop}def/RFE{findfont
dup/CharStrings known{RFET1}{_RFE}ifelse}def/RFET1{dup length 4 add dict
begin/CBOX{newpath 0 0 M GS ifm SCM false charpath matrix SCM pathbbox
currentpoint GR}BD/CHEI{CBOX pop pop 4 1 roll pop pop pop}BD/SRCH{-1
exch/Encoding load 0 1 2 I length 1 sub{2 copy get 3 I eq{4 -1 roll pop 3
1 roll exit}{pop}ifelse}for pop pop dup -1 ne{1 string dup 0 4 -1 roll put
true}{pop false false}ifelse}BD/MKACC{SRCH 3 -1 roll SRCH 3 -1 roll and{3
dict begin/letter exch def/accent exch def/ifm/FontMatrix load matrix
invertmatrix def GS matrix SCM letter CBOX 6 2 roll accent CBOX pop pop 6 -1
roll 7 I sub 3 -1 roll 4 I sub sub 2 div 7 -1 roll 5 -1 roll sub add 7 1
roll 0 gt{(X)CHEI(x)CHEI 2 copy add 2 div 5 -1 roll le{sub}{pop pop 0}ifelse
5 1 roll pop pop}{pop pop pop 0 3 1 roll}ifelse GR setcharwidth 0 0 M GS ifm
concat letter show GR M GS ifm concat accent show GR end}{pop pop}ifelse
pop}BD dup/CharStrings get 0 4 I{2 I exch OKA{pop pop 1 add}if}forall 3 -1
roll{1 I/FID ne 2 I/CharStrings ne and{def}{pop pop}ifelse}forall 1 I length
add dict exch{2 I 3 1 roll put}forall 2 I{2 copy OKA{[3 1 roll/MKACC cvx]cvx
2 I 3 1 roll put}{pop}ifelse}forall/CharStrings exch def dup type/arraytype
eq{/FontMatrix FontMatrix 3 -1 roll 6 array CCM def}{pop}ifelse/Encoding
exch def currentdict end definefont pop}BD end
00000000 25 25 20 4d 61 69 6e 20 70 72 6f 6c 6f 67 75 65 |%% Main prologue|
00000010 20 66 69 6c 65 20 66 6f 72 20 74 68 65 20 50 6f | file for the Po|
00000020 73 74 53 63 72 69 70 74 20 70 72 69 6e 74 65 72 |stScript printer|
00000030 20 64 72 69 76 65 72 20 6d 6f 64 75 6c 65 2e 0a | driver module..|
00000040 25 25 20 56 65 72 73 69 6f 6e 20 34 2e 30 30 20 |%% Version 4.00 |
00000050 66 69 72 73 74 20 75 73 65 64 20 77 69 74 68 20 |first used with |
00000060 76 65 72 73 69 6f 6e 20 34 2e 30 30 20 6f 66 20 |version 4.00 of |
00000070 74 68 65 20 6d 6f 64 75 6c 65 0a 2f 50 44 64 69 |the module./PDdi|
00000080 63 74 20 32 30 30 20 64 69 63 74 20 64 65 66 20 |ct 200 dict def |
00000090 50 44 64 69 63 74 20 62 65 67 69 6e 2f 42 44 7b |PDdict begin/BD{|
000000a0 62 69 6e 64 20 64 65 66 7d 62 69 6e 64 20 64 65 |bind def}bind de|
000000b0 66 2f 4c 44 7b 6c 6f 61 64 0a 64 65 66 7d 42 44 |f/LD{load.def}BD|
000000c0 2f 4c 57 2f 73 65 74 6c 69 6e 65 77 69 64 74 68 |/LW/setlinewidth|
000000d0 20 4c 44 2f 53 74 2f 73 74 72 6f 6b 65 20 4c 44 | LD/St/stroke LD|
000000e0 2f 54 2f 74 72 61 6e 73 6c 61 74 65 20 4c 44 2f |/T/translate LD/|
000000f0 53 2f 73 61 76 65 20 4c 44 2f 52 2f 72 65 73 74 |S/save LD/R/rest|
00000100 6f 72 65 0a 4c 44 2f 47 53 2f 67 73 61 76 65 20 |ore.LD/GS/gsave |
00000110 4c 44 2f 47 52 2f 67 72 65 73 74 6f 72 65 20 4c |LD/GR/grestore L|
00000120 44 2f 43 50 2f 63 6c 69 70 70 61 74 68 20 4c 44 |D/CP/clippath LD|
00000130 2f 43 6c 2f 63 6c 6f 73 65 70 61 74 68 20 4c 44 |/Cl/closepath LD|
00000140 2f 4d 2f 6d 6f 76 65 74 6f 0a 4c 44 2f 52 4d 2f |/M/moveto.LD/RM/|
00000150 72 6d 6f 76 65 74 6f 20 4c 44 2f 4c 2f 6c 69 6e |rmoveto LD/L/lin|
00000160 65 74 6f 20 4c 44 2f 42 2f 63 75 72 76 65 74 6f |eto LD/B/curveto|
00000170 20 4c 44 2f 49 2f 69 6e 64 65 78 20 4c 44 2f 53 | LD/I/index LD/S|
00000180 57 2f 73 74 72 69 6e 67 77 69 64 74 68 0a 4c 44 |W/stringwidth.LD|
00000190 2f 47 43 46 2f 63 75 72 72 65 6e 74 66 6f 6e 74 |/GCF/currentfont|
000001a0 20 4c 44 2f 47 43 4d 2f 63 75 72 72 65 6e 74 6d | LD/GCM/currentm|
000001b0 61 74 72 69 78 20 4c 44 2f 53 43 4d 2f 73 65 74 |atrix LD/SCM/set|
000001c0 6d 61 74 72 69 78 20 4c 44 2f 43 43 4d 2f 63 6f |matrix LD/CCM/co|
000001d0 6e 63 61 74 6d 61 74 72 69 78 0a 4c 44 2f 45 44 |ncatmatrix.LD/ED|
000001e0 7b 65 78 63 68 20 64 65 66 7d 42 44 2f 43 6f 70 |{exch def}BD/Cop|
000001f0 69 65 73 7b 2f 23 63 6f 70 69 65 73 20 45 44 20 |ies{/#copies ED |
00000200 73 68 6f 77 70 61 67 65 7d 42 44 2f 4d 50 7b 34 |showpage}BD/MP{4|
00000210 30 30 2e 20 64 69 76 7d 42 44 2f 46 62 7b 36 35 |00. div}BD/Fb{65|
00000220 35 33 36 2e 0a 64 69 76 7d 42 44 2f 57 4d 31 20 |536..div}BD/WM1 |
00000230 6d 61 74 72 69 78 20 64 65 66 2f 57 4d 32 20 6d |matrix def/WM2 m|
00000240 61 74 72 69 78 20 64 65 66 2f 49 4d 31 20 6d 61 |atrix def/IM1 ma|
00000250 74 72 69 78 20 64 65 66 2f 55 4d 7b 46 62 20 34 |trix def/UM{Fb 4|
00000260 20 31 20 72 6f 6c 6c 20 46 62 20 34 20 31 0a 72 | 1 roll Fb 4 1.r|
00000270 6f 6c 6c 20 46 62 20 34 20 31 20 72 6f 6c 6c 20 |oll Fb 4 1 roll |
00000280 46 62 20 34 20 31 20 72 6f 6c 6c 20 30 2e 20 30 |Fb 4 1 roll 0. 0|
00000290 2e 20 57 4d 31 20 61 73 74 6f 72 65 20 63 6f 6e |. WM1 astore con|
000002a0 63 61 74 7d 42 44 2f 42 78 7b 34 20 63 6f 70 79 |cat}BD/Bx{4 copy|
000002b0 20 35 20 31 20 72 6f 6c 6c 20 34 0a 32 20 72 6f | 5 1 roll 4.2 ro|
000002c0 6c 6c 20 35 20 2d 31 20 72 6f 6c 6c 20 4d 20 4c |ll 5 -1 roll M L|
000002d0 20 4c 20 4c 20 43 6c 7d 42 44 2f 43 70 7b 42 78 | L L Cl}BD/Cp{Bx|
000002e0 20 63 6c 69 70 20 6e 65 77 70 61 74 68 7d 42 44 | clip newpath}BD|
000002f0 2f 50 53 7b 37 32 2e 20 31 38 30 2e 20 64 69 76 |/PS{72. 180. div|
00000300 20 64 75 70 0a 73 63 61 6c 65 20 6e 65 77 70 61 | dup.scale newpa|
00000310 74 68 20 43 70 5b 5d 30 2e 20 73 65 74 64 61 73 |th Cp[]0. setdas|
00000320 68 7d 42 44 2f 4d 43 7b 30 2e 20 30 2e 20 43 70 |h}BD/MC{0. 0. Cp|
00000330 7d 42 44 2f 47 7b 32 35 35 2e 20 64 69 76 20 73 |}BD/G{255. div s|
00000340 65 74 67 72 61 79 7d 42 44 2f 43 7b 32 35 35 2e |etgray}BD/C{255.|
00000350 0a 64 69 76 20 33 20 31 20 72 6f 6c 6c 20 32 35 |.div 3 1 roll 25|
00000360 35 2e 20 64 69 76 20 33 20 31 20 72 6f 6c 6c 20 |5. div 3 1 roll |
00000370 32 35 35 2e 20 64 69 76 20 33 20 31 20 72 6f 6c |255. div 3 1 rol|
00000380 6c 20 73 65 74 72 67 62 63 6f 6c 6f 72 7d 42 44 |l setrgbcolor}BD|
00000390 2f 45 70 73 20 30 2e 31 20 4d 50 0a 64 65 66 2f |/Eps 0.1 MP.def/|
000003a0 56 53 74 7b 32 20 73 65 74 6c 69 6e 65 63 61 70 |VSt{2 setlinecap|
000003b0 20 30 20 73 65 74 6c 69 6e 65 6a 6f 69 6e 20 32 | 0 setlinejoin 2|
000003c0 2e 30 30 30 30 30 31 20 73 65 74 6d 69 74 65 72 |.000001 setmiter|
000003d0 6c 69 6d 69 74 20 32 2e 20 4c 57 20 30 2e 20 45 |limit 2. LW 0. E|
000003e0 70 73 0a 72 6c 69 6e 65 74 6f 20 53 74 7d 42 44 |ps.rlineto St}BD|
000003f0 2f 56 46 6c 7b 43 6c 20 47 53 20 66 69 6c 6c 20 |/VFl{Cl GS fill |
00000400 47 52 20 56 53 74 7d 42 44 2f 4c 69 7b 4d 20 4c |GR VSt}BD/Li{M L|
00000410 20 56 53 74 7d 42 44 2f 50 74 7b 4d 20 56 53 74 | VSt}BD/Pt{M VSt|
00000420 7d 42 44 2f 54 72 7b 4d 20 4c 20 4c 0a 56 46 6c |}BD/Tr{M L L.VFl|
00000430 7d 42 44 2f 52 63 7b 42 78 20 56 46 6c 7d 42 44 |}BD/Rc{Bx VFl}BD|
00000440 2f 50 72 7b 36 20 63 6f 70 79 20 4d 20 4c 20 4c |/Pr{6 copy M L L|
00000450 20 35 20 2d 31 20 72 6f 6c 6c 20 34 20 2d 31 20 | 5 -1 roll 4 -1 |
00000460 72 6f 6c 6c 20 73 75 62 20 61 64 64 20 34 20 31 |roll sub add 4 1|
00000470 20 72 6f 6c 6c 0a 65 78 63 68 20 73 75 62 20 61 | roll.exch sub a|
00000480 64 64 20 65 78 63 68 20 4c 20 56 46 6c 7d 42 44 |dd exch L VFl}BD|
00000490 2f 4c 6e 7b 64 75 70 20 6d 75 6c 20 65 78 63 68 |/Ln{dup mul exch|
000004a0 20 64 75 70 20 6d 75 6c 20 61 64 64 20 73 71 72 | dup mul add sqr|
000004b0 74 7d 42 44 2f 43 69 72 7b 30 2e 20 33 36 30 2e |t}BD/Cir{0. 360.|
000004c0 0a 61 72 63 7d 42 44 2f 56 43 7b 4c 6e 20 43 69 |.arc}BD/VC{Ln Ci|
000004d0 72 7d 42 44 2f 43 53 7b 56 43 20 56 53 74 7d 42 |r}BD/CS{VC VSt}B|
000004e0 44 2f 43 46 7b 56 43 20 56 46 6c 7d 42 44 2f 56 |D/CF{VC VFl}BD/V|
000004f0 41 7b 32 20 63 6f 70 79 20 4c 6e 20 35 20 31 20 |A{2 copy Ln 5 1 |
00000500 72 6f 6c 6c 20 65 78 63 68 0a 61 74 61 6e 20 33 |roll exch.atan 3|
00000510 20 31 20 72 6f 6c 6c 20 65 78 63 68 20 61 74 61 | 1 roll exch ata|
00000520 6e 20 61 72 63 7d 42 44 2f 41 63 7b 56 41 20 56 |n arc}BD/Ac{VA V|
00000530 53 74 7d 42 44 2f 43 64 7b 56 41 20 56 46 6c 7d |St}BD/Cd{VA VFl}|
00000540 42 44 2f 53 63 7b 35 20 49 20 35 20 49 20 4d 20 |BD/Sc{5 I 5 I M |
00000550 56 41 0a 56 46 6c 7d 42 44 2f 56 45 7b 30 2e 20 |VA.VFl}BD/VE{0. |
00000560 35 20 31 20 72 6f 6c 6c 20 57 4d 31 20 61 73 74 |5 1 roll WM1 ast|
00000570 6f 72 65 20 57 4d 32 20 47 43 4d 20 65 78 63 68 |ore WM2 GCM exch|
00000580 20 63 6f 6e 63 61 74 20 30 2e 20 30 2e 20 31 2e | concat 0. 0. 1.|
00000590 20 43 69 72 0a 53 43 4d 7d 42 44 2f 45 53 7b 56 | Cir.SCM}BD/ES{V|
000005a0 45 20 56 53 74 7d 42 44 2f 45 46 7b 56 45 20 56 |E VSt}BD/EF{VE V|
000005b0 46 6c 7d 42 44 2f 4d 61 78 7b 32 20 63 6f 70 79 |Fl}BD/Max{2 copy|
000005c0 20 6c 74 7b 65 78 63 68 7d 69 66 20 70 6f 70 7d | lt{exch}if pop}|
000005d0 42 44 2f 44 4d 7b 32 35 36 2e 20 64 69 76 20 36 |BD/DM{256. div 6|
000005e0 0a 31 20 72 6f 6c 6c 20 32 35 36 2e 20 64 69 76 |.1 roll 256. div|
000005f0 20 36 20 31 20 72 6f 6c 6c 20 46 62 20 32 35 36 | 6 1 roll Fb 256|
00000600 2e 20 64 69 76 20 36 20 31 20 72 6f 6c 6c 20 46 |. div 6 1 roll F|
00000610 62 20 32 35 36 2e 20 64 69 76 20 36 20 31 20 72 |b 256. div 6 1 r|
00000620 6f 6c 6c 20 46 62 20 32 35 36 2e 0a 64 69 76 20 |oll Fb 256..div |
00000630 36 20 31 20 72 6f 6c 6c 20 46 62 20 32 35 36 2e |6 1 roll Fb 256.|
00000640 20 64 69 76 20 36 20 31 20 72 6f 6c 6c 20 57 4d | div 6 1 roll WM|
00000650 31 20 61 73 74 6f 72 65 20 63 6f 6e 63 61 74 7d |1 astore concat}|
00000660 42 44 2f 53 44 4d 7b 32 35 36 2e 20 64 69 76 20 |BD/SDM{256. div |
00000670 36 20 31 20 72 6f 6c 6c 0a 32 35 36 2e 20 64 69 |6 1 roll.256. di|
00000680 76 20 36 20 31 20 72 6f 6c 6c 20 46 62 20 36 20 |v 6 1 roll Fb 6 |
00000690 31 20 72 6f 6c 6c 20 46 62 20 36 20 31 20 72 6f |1 roll Fb 6 1 ro|
000006a0 6c 6c 20 46 62 20 36 20 31 20 72 6f 6c 6c 20 46 |ll Fb 6 1 roll F|
000006b0 62 20 36 20 31 20 72 6f 6c 6c 20 36 20 63 6f 70 |b 6 1 roll 6 cop|
000006c0 79 20 57 4d 31 0a 61 73 74 6f 72 65 20 63 6f 6e |y WM1.astore con|
000006d0 63 61 74 20 70 6f 70 20 70 6f 70 20 30 20 30 20 |cat pop pop 0 0 |
000006e0 49 4d 31 20 61 73 74 6f 72 65 20 70 6f 70 7d 42 |IM1 astore pop}B|
000006f0 44 2f 49 54 7b 49 4d 31 20 69 74 72 61 6e 73 66 |D/IT{IM1 itransf|
00000700 6f 72 6d 7d 42 44 2f 43 4a 7b 32 20 49 20 30 0a |orm}BD/CJ{2 I 0.|
00000710 65 71 7b 46 62 20 73 65 74 6d 69 74 65 72 6c 69 |eq{Fb setmiterli|
00000720 6d 69 74 7d 7b 70 6f 70 7d 69 66 65 6c 73 65 20 |mit}{pop}ifelse |
00000730 73 65 74 6c 69 6e 65 63 61 70 20 73 65 74 6c 69 |setlinecap setli|
00000740 6e 65 6a 6f 69 6e 7d 42 44 2f 57 53 20 34 30 39 |nejoin}BD/WS 409|
00000750 36 20 73 74 72 69 6e 67 0a 64 65 66 2f 53 4d 61 |6 string.def/SMa|
00000760 74 20 6d 61 74 72 69 78 20 64 65 66 2f 53 53 7b |t matrix def/SS{|
00000770 64 69 76 20 33 20 31 20 72 6f 6c 6c 20 64 69 76 |div 3 1 roll div|
00000780 20 65 78 63 68 20 73 63 61 6c 65 7d 42 44 2f 53 | exch scale}BD/S|
00000790 4d 7b 31 2e 20 65 78 63 68 20 64 69 76 20 30 2e |M{1. exch div 0.|
000007a0 20 30 2e 0a 31 2e 20 30 2e 20 30 2e 20 53 4d 61 | 0..1. 0. 0. SMa|
000007b0 74 20 61 73 74 6f 72 65 20 70 6f 70 7d 42 44 2f |t astore pop}BD/|
000007c0 52 43 7b 57 53 20 30 20 33 20 49 20 70 75 74 20 |RC{WS 0 3 I put |
000007d0 64 75 70 20 31 20 67 74 7b 57 53 20 31 20 33 20 |dup 1 gt{WS 1 3 |
000007e0 49 20 70 75 74 20 64 75 70 20 32 0a 67 74 7b 57 |I put dup 2.gt{W|
000007f0 53 20 32 20 33 20 49 20 70 75 74 20 57 53 20 33 |S 2 3 I put WS 3|
00000800 20 33 20 49 20 70 75 74 20 64 75 70 20 34 20 67 | 3 I put dup 4 g|
00000810 74 7b 57 53 20 34 20 57 53 20 30 20 34 20 67 65 |t{WS 4 WS 0 4 ge|
00000820 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 6e 74 |tinterval putint|
00000830 65 72 76 61 6c 0a 64 75 70 20 38 20 67 74 7b 57 |erval.dup 8 gt{W|
00000840 53 20 38 20 57 53 20 30 20 38 20 67 65 74 69 6e |S 8 WS 0 8 getin|
00000850 74 65 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 |terval putinterv|
00000860 61 6c 20 64 75 70 20 31 36 20 67 74 7b 57 53 20 |al dup 16 gt{WS |
00000870 31 36 20 57 53 20 30 20 31 36 0a 67 65 74 69 6e |16 WS 0 16.getin|
00000880 74 65 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 |terval putinterv|
00000890 61 6c 20 64 75 70 20 33 32 20 67 74 7b 57 53 20 |al dup 32 gt{WS |
000008a0 33 32 20 57 53 20 30 20 33 32 20 67 65 74 69 6e |32 WS 0 32 getin|
000008b0 74 65 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 |terval putinterv|
000008c0 61 6c 20 64 75 70 0a 36 34 20 67 74 7b 57 53 20 |al dup.64 gt{WS |
000008d0 36 34 20 57 53 20 30 20 36 34 20 67 65 74 69 6e |64 WS 0 64 getin|
000008e0 74 65 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 |terval putinterv|
000008f0 61 6c 20 64 75 70 20 31 32 38 20 67 74 7b 57 53 |al dup 128 gt{WS|
00000900 20 31 32 38 20 57 53 20 30 20 31 32 38 0a 67 65 | 128 WS 0 128.ge|
00000910 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 6e 74 |tinterval putint|
00000920 65 72 76 61 6c 20 64 75 70 20 32 35 36 20 67 74 |erval dup 256 gt|
00000930 7b 57 53 20 32 35 36 20 57 53 20 30 20 32 35 36 |{WS 256 WS 0 256|
00000940 20 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 | getinterval put|
00000950 69 6e 74 65 72 76 61 6c 0a 64 75 70 20 35 31 32 |interval.dup 512|
00000960 20 67 74 7b 57 53 20 35 31 32 20 57 53 20 30 20 | gt{WS 512 WS 0 |
00000970 35 31 32 20 67 65 74 69 6e 74 65 72 76 61 6c 20 |512 getinterval |
00000980 70 75 74 69 6e 74 65 72 76 61 6c 20 64 75 70 20 |putinterval dup |
00000990 31 30 32 34 20 67 74 7b 57 53 20 31 30 32 34 20 |1024 gt{WS 1024 |
000009a0 57 53 20 30 0a 31 30 32 34 20 67 65 74 69 6e 74 |WS 0.1024 getint|
000009b0 65 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 61 |erval putinterva|
000009c0 6c 20 64 75 70 20 32 30 34 38 20 67 74 7b 57 53 |l dup 2048 gt{WS|
000009d0 20 32 30 34 38 20 57 53 20 30 20 32 30 34 38 20 | 2048 WS 0 2048 |
000009e0 67 65 74 69 6e 74 65 72 76 61 6c 0a 70 75 74 69 |getinterval.puti|
000009f0 6e 74 65 72 76 61 6c 7d 69 66 7d 69 66 7d 69 66 |nterval}if}if}if|
00000a00 7d 69 66 7d 69 66 7d 69 66 7d 69 66 7d 69 66 7d |}if}if}if}if}if}|
00000a10 69 66 7d 69 66 7d 69 66 7d 69 66 20 70 6f 70 20 |if}if}if}if pop |
00000a20 70 6f 70 7d 42 44 2f 53 52 7b 63 75 72 72 65 6e |pop}BD/SR{curren|
00000a30 74 66 69 6c 65 0a 74 6f 6b 65 6e 20 70 6f 70 20 |tfile.token pop |
00000a40 64 75 70 20 30 20 67 74 7b 57 53 20 30 20 33 20 |dup 0 gt{WS 0 3 |
00000a50 2d 31 20 72 6f 6c 6c 20 67 65 74 69 6e 74 65 72 |-1 roll getinter|
00000a60 76 61 6c 20 63 75 72 72 65 6e 74 66 69 6c 65 20 |val currentfile |
00000a70 65 78 63 68 20 72 65 61 64 68 65 78 73 74 72 69 |exch readhexstri|
00000a80 6e 67 0a 70 6f 70 7d 7b 6e 65 67 20 63 75 72 72 |ng.pop}{neg curr|
00000a90 65 6e 74 66 69 6c 65 20 74 6f 6b 65 6e 20 70 6f |entfile token po|
00000aa0 70 20 31 20 49 20 52 43 20 57 53 20 30 20 33 20 |p 1 I RC WS 0 3 |
00000ab0 2d 31 20 72 6f 6c 6c 0a 67 65 74 69 6e 74 65 72 |-1 roll.getinter|
00000ac0 76 61 6c 7d 69 66 65 6c 73 65 7d 42 44 2f 53 31 |val}ifelse}BD/S1|
00000ad0 7b 74 72 75 65 20 53 4d 61 74 2f 53 52 20 6c 6f |{true SMat/SR lo|
00000ae0 61 64 20 69 6d 61 67 65 6d 61 73 6b 7d 42 44 20 |ad imagemask}BD |
00000af0 32 35 35 20 32 30 34 38 20 52 43 2f 46 46 73 20 |255 2048 RC/FFs |
00000b00 57 53 20 30 0a 32 30 34 38 20 67 65 74 69 6e 74 |WS 0.2048 getint|
00000b10 65 72 76 61 6c 20 32 30 34 38 20 73 74 72 69 6e |erval 2048 strin|
00000b20 67 20 63 6f 70 79 20 64 65 66 2f 53 46 7b 2f 57 |g copy def/SF{/W|
00000b30 53 32 20 46 46 73 20 30 20 34 20 49 20 37 20 61 |S2 FFs 0 4 I 7 a|
00000b40 64 64 20 38 20 69 64 69 76 20 34 20 49 20 6d 75 |dd 8 idiv 4 I mu|
00000b50 6c 0a 67 65 74 69 6e 74 65 72 76 61 6c 20 64 65 |l.getinterval de|
00000b60 66 20 74 72 75 65 20 53 4d 61 74 7b 57 53 32 7d |f true SMat{WS2}|
00000b70 69 6d 61 67 65 6d 61 73 6b 7d 42 44 2f 53 4e 7b |imagemask}BD/SN{|
00000b80 38 20 53 4d 61 74 2f 53 52 20 6c 6f 61 64 20 69 |8 SMat/SR load i|
00000b90 6d 61 67 65 7d 42 44 2f 52 65 6d 20 30 0a 64 65 |mage}BD/Rem 0.de|
00000ba0 66 2f 44 33 32 7b 63 75 72 72 65 6e 74 66 69 6c |f/D32{currentfil|
00000bb0 65 20 52 65 6d 20 57 53 20 6c 65 6e 67 74 68 20 |e Rem WS length |
00000bc0 6c 74 7b 57 53 20 30 20 52 65 6d 20 67 65 74 69 |lt{WS 0 Rem geti|
00000bd0 6e 74 65 72 76 61 6c 7d 7b 57 53 7d 69 66 65 6c |nterval}{WS}ifel|
00000be0 73 65 0a 72 65 61 64 68 65 78 73 74 72 69 6e 67 |se.readhexstring|
00000bf0 20 70 6f 70 2f 52 65 6d 20 52 65 6d 20 57 53 20 | pop/Rem Rem WS |
00000c00 6c 65 6e 67 74 68 20 73 75 62 20 64 65 66 7d 42 |length sub def}B|
00000c10 44 2f 53 33 32 7b 32 20 63 6f 70 79 20 20 6d 75 |D/S32{2 copy mu|
00000c20 6c 20 33 20 6d 75 6c 2f 52 65 6d 0a 65 78 63 68 |l 3 mul/Rem.exch|
00000c30 20 64 65 66 20 38 20 53 4d 61 74 2f 44 33 32 20 | def 8 SMat/D32 |
00000c40 6c 6f 61 64 20 66 61 6c 73 65 20 33 20 63 6f 6c |load false 3 col|
00000c50 6f 72 69 6d 61 67 65 7d 42 44 2f 54 53 7b 31 2e |orimage}BD/TS{1.|
00000c60 20 65 78 63 68 20 64 69 76 20 65 78 63 68 20 31 | exch div exch 1|
00000c70 2e 20 65 78 63 68 0a 64 69 76 20 65 78 63 68 20 |. exch.div exch |
00000c80 73 63 61 6c 65 7d 42 44 2f 46 6e 7b 30 2e 30 31 |scale}BD/Fn{0.01|
00000c90 36 20 64 69 76 20 65 78 63 68 20 30 2e 30 31 36 |6 div exch 0.016|
00000ca0 20 64 69 76 20 65 78 63 68 20 64 75 70 2f 66 68 | div exch dup/fh|
00000cb0 65 69 67 68 74 20 45 44 20 30 2e 20 30 2e 20 33 |eight ED 0. 0. 3|
00000cc0 20 2d 31 0a 72 6f 6c 6c 20 30 2e 20 30 2e 20 57 | -1.roll 0. 0. W|
00000cd0 4d 31 20 61 73 74 6f 72 65 20 65 78 63 68 20 66 |M1 astore exch f|
00000ce0 69 6e 64 66 6f 6e 74 20 65 78 63 68 20 6d 61 6b |indfont exch mak|
00000cf0 65 66 6f 6e 74 20 73 65 74 66 6f 6e 74 7d 42 44 |efont setfont}BD|
00000d00 2f 55 6c 7b 47 53 20 32 20 63 6f 70 79 20 4c 6e |/Ul{GS 2 copy Ln|
00000d10 0a 75 6c 70 6f 73 20 75 6c 74 68 69 63 6b 20 32 |.ulpos ulthick 2|
00000d20 2e 20 64 69 76 20 73 75 62 20 32 35 36 2e 20 64 |. div sub 256. d|
00000d30 69 76 20 66 68 65 69 67 68 74 20 6d 75 6c 20 65 |iv fheight mul e|
00000d40 78 63 68 20 64 69 76 20 64 75 70 20 32 20 49 20 |xch div dup 2 I |
00000d50 6e 65 67 20 6d 75 6c 20 65 78 63 68 0a 33 20 49 |neg mul exch.3 I|
00000d60 20 6d 75 6c 20 52 4d 20 32 20 63 6f 70 79 20 72 | mul RM 2 copy r|
00000d70 6c 69 6e 65 74 6f 20 75 6c 74 68 69 63 6b 20 32 |lineto ulthick 2|
00000d80 35 36 2e 20 64 69 76 20 66 68 65 69 67 68 74 20 |56. div fheight |
00000d90 6d 75 6c 20 4c 57 20 30 20 73 65 74 6c 69 6e 65 |mul LW 0 setline|
00000da0 63 61 70 20 53 74 0a 47 52 7d 42 44 2f 41 43 7b |cap St.GR}BD/AC{|
00000db0 33 20 2d 31 20 72 6f 6c 6c 20 65 78 63 68 20 73 |3 -1 roll exch s|
00000dc0 75 62 20 33 20 49 20 6c 65 6e 67 74 68 20 64 69 |ub 3 I length di|
00000dd0 76 20 34 20 31 20 72 6f 6c 6c 20 73 75 62 20 31 |v 4 1 roll sub 1|
00000de0 20 49 20 6c 65 6e 67 74 68 20 64 69 76 20 33 20 | I length div 3 |
00000df0 31 0a 72 6f 6c 6c 7d 42 44 2f 54 78 7b 4d 20 32 |1.roll}BD/Tx{M 2|
00000e00 20 49 20 53 57 20 41 43 20 61 73 68 6f 77 7d 42 | I SW AC ashow}B|
00000e10 44 2f 4a 54 78 7b 4d 20 37 20 49 20 64 75 70 20 |D/JTx{M 7 I dup |
00000e20 34 20 31 20 72 6f 6c 6c 20 53 57 20 41 43 20 70 |4 1 roll SW AC p|
00000e30 6f 70 20 65 78 63 68 20 34 20 2d 31 0a 72 6f 6c |op exch 4 -1.rol|
00000e40 6c 20 61 64 64 20 33 20 31 20 72 6f 6c 6c 20 61 |l add 3 1 roll a|
00000e50 64 64 20 36 20 2d 31 20 72 6f 6c 6c 20 61 77 69 |dd 6 -1 roll awi|
00000e60 64 74 68 73 68 6f 77 7d 42 44 2f 55 54 78 7b 2f |dthshow}BD/UTx{/|
00000e70 75 6c 74 68 69 63 6b 20 45 44 2f 75 6c 70 6f 73 |ulthick ED/ulpos|
00000e80 20 45 44 20 4d 20 55 6c 0a 32 20 49 20 53 57 20 | ED M Ul.2 I SW |
00000e90 41 43 20 61 73 68 6f 77 7d 42 44 2f 55 4a 54 78 |AC ashow}BD/UJTx|
00000ea0 7b 4d 2f 75 6c 74 68 69 63 6b 20 45 44 2f 75 6c |{M/ulthick ED/ul|
00000eb0 70 6f 73 20 45 44 20 55 6c 20 70 6f 70 20 70 6f |pos ED Ul pop po|
00000ec0 70 20 37 20 49 20 64 75 70 20 34 20 31 20 72 6f |p 7 I dup 4 1 ro|
00000ed0 6c 6c 20 53 57 0a 41 43 20 70 6f 70 20 65 78 63 |ll SW.AC pop exc|
00000ee0 68 20 34 20 2d 31 20 72 6f 6c 6c 20 61 64 64 20 |h 4 -1 roll add |
00000ef0 33 20 31 20 72 6f 6c 6c 20 61 64 64 20 36 20 2d |3 1 roll add 6 -|
00000f00 31 20 72 6f 6c 6c 0a 61 77 69 64 74 68 73 68 6f |1 roll.awidthsho|
00000f10 77 7d 42 44 2f 6b 6c 6f 61 64 7b 7b 63 65 69 6c |w}BD/kload{{ceil|
00000f20 69 6e 67 7d 73 74 6f 70 70 65 64 7b 61 6c 6f 61 |ing}stopped{aloa|
00000f30 64 20 70 6f 70 7d 7b 30 7d 69 66 65 6c 73 65 7d |d pop}{0}ifelse}|
00000f40 42 44 2f 6b 70 72 6f 63 7b 35 20 49 20 35 20 49 |BD/kproc{5 I 5 I|
00000f50 20 52 4d 0a 32 20 49 7b 65 78 63 68 20 32 35 36 | RM.2 I{exch 256|
00000f60 20 6d 75 6c 20 20 61 64 64 20 32 20 49 20 65 78 | mul add 2 I ex|
00000f70 63 68 20 32 20 63 6f 70 79 20 6b 6e 6f 77 6e 7b |ch 2 copy known{|
00000f80 57 4d 32 20 53 43 4d 20 20 67 65 74 20 6b 6c 6f |WM2 SCM get klo|
00000f90 61 64 20 52 4d 20 20 57 4d 31 0a 53 43 4d 7d 7b |ad RM WM1.SCM}{|
00000fa0 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 65 7d 7b |pop pop}ifelse}{|
00000fb0 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 65 7d 42 |pop pop}ifelse}B|
00000fc0 44 2f 4b 54 78 7b 57 4d 31 20 47 43 4d 20 47 43 |D/KTx{WM1 GCM GC|
00000fd0 46 2f 46 6f 6e 74 4d 61 74 72 69 78 20 67 65 74 |F/FontMatrix get|
00000fe0 20 65 78 63 68 0a 57 4d 32 20 43 43 4d 20 70 6f | exch.WM2 CCM po|
00000ff0 70 20 4d 20 32 20 49 20 53 57 20 41 43 20 47 43 |p M 2 I SW AC GC|
00001000 46 2f 4b 65 72 6e 44 61 74 61 20 6b 6e 6f 77 6e |F/KernData known|
00001010 7b 47 43 46 2f 4b 65 72 6e 44 61 74 61 20 67 65 |{GCF/KernData ge|
00001020 74 20 74 72 75 65 7d 7b 6e 75 6c 6c 0a 66 61 6c |t true}{null.fal|
00001030 73 65 7d 69 66 65 6c 73 65 7b 6b 70 72 6f 63 7d |se}ifelse{kproc}|
00001040 34 20 2d 31 20 72 6f 6c 6c 20 20 20 20 6b 73 68 |4 -1 roll ksh|
00001050 6f 77 20 70 6f 70 20 70 6f 70 20 70 6f 70 20 70 |ow pop pop pop p|
00001060 6f 70 7d 42 44 2f 55 4b 54 78 7b 36 20 32 0a 72 |op}BD/UKTx{6 2.r|
00001070 6f 6c 6c 2f 75 6c 74 68 69 63 6b 20 45 44 2f 75 |oll/ulthick ED/u|
00001080 6c 70 6f 73 20 45 44 20 32 20 63 6f 70 79 20 4d |lpos ED 2 copy M|
00001090 20 20 20 34 20 32 20 72 6f 6c 6c 20 55 6c 20 20 | 4 2 roll Ul |
000010a0 70 6f 70 20 70 6f 70 20 4b 54 78 7d 42 44 2f 6a |pop pop KTx}BD/j|
000010b0 6b 70 72 6f 63 7b 35 20 49 20 35 0a 49 20 52 4d |kproc{5 I 5.I RM|
000010c0 20 31 20 49 20 37 20 49 20 65 71 7b 38 20 49 20 | 1 I 7 I eq{8 I |
000010d0 38 20 49 20 52 4d 7d 69 66 20 32 20 49 7b 65 78 |8 I RM}if 2 I{ex|
000010e0 63 68 20 32 35 36 20 6d 75 6c 20 20 61 64 64 20 |ch 256 mul add |
000010f0 32 20 49 20 65 78 63 68 20 32 20 63 6f 70 79 0a |2 I exch 2 copy.|
00001100 6b 6e 6f 77 6e 7b 57 4d 32 20 53 43 4d 20 20 67 |known{WM2 SCM g|
00001110 65 74 20 6b 6c 6f 61 64 20 52 4d 20 20 57 4d 31 |et kload RM WM1|
00001120 20 53 43 4d 7d 7b 70 6f 70 20 70 6f 70 7d 69 66 | SCM}{pop pop}if|
00001130 65 6c 73 65 7d 7b 70 6f 70 0a 70 6f 70 7d 69 66 |else}{pop.pop}if|
00001140 65 6c 73 65 7d 42 44 2f 4a 4b 54 78 7b 57 4d 31 |else}BD/JKTx{WM1|
00001150 20 47 43 4d 20 47 43 46 2f 46 6f 6e 74 4d 61 74 | GCM GCF/FontMat|
00001160 72 69 78 20 67 65 74 20 65 78 63 68 20 57 4d 32 |rix get exch WM2|
00001170 20 43 43 4d 20 70 6f 70 20 4d 20 38 20 2d 31 20 | CCM pop M 8 -1 |
00001180 72 6f 6c 6c 0a 64 75 70 20 34 20 31 20 72 6f 6c |roll.dup 4 1 rol|
00001190 6c 20 53 57 20 41 43 20 35 20 31 20 72 6f 6c 6c |l SW AC 5 1 roll|
000011a0 20 65 78 63 68 20 34 20 2d 31 20 72 6f 6c 6c 20 | exch 4 -1 roll |
000011b0 61 64 64 20 33 20 31 20 72 6f 6c 6c 20 61 64 64 |add 3 1 roll add|
000011c0 20 47 43 46 2f 4b 65 72 6e 44 61 74 61 0a 6b 6e | GCF/KernData.kn|
000011d0 6f 77 6e 7b 47 43 46 2f 4b 65 72 6e 44 61 74 61 |own{GCF/KernData|
000011e0 20 67 65 74 20 74 72 75 65 7d 7b 6e 75 6c 6c 20 | get true}{null |
000011f0 66 61 6c 73 65 7d 69 66 65 6c 73 65 7b 6a 6b 70 |false}ifelse{jkp|
00001200 72 6f 63 7d 36 20 2d 31 20 72 6f 6c 6c 20 20 6b |roc}6 -1 roll k|
00001210 73 68 6f 77 0a 37 7b 70 6f 70 7d 72 65 70 65 61 |show.7{pop}repea|
00001220 74 7d 42 44 2f 55 4a 4b 54 78 7b 32 20 63 6f 70 |t}BD/UJKTx{2 cop|
00001230 79 20 4d 20 36 20 32 20 72 6f 6c 6c 2f 75 6c 74 |y M 6 2 roll/ult|
00001240 68 69 63 6b 20 45 44 2f 75 6c 70 6f 73 20 45 44 |hick ED/ulpos ED|
00001250 20 55 6c 20 70 6f 70 20 70 6f 70 0a 4a 4b 54 78 | Ul pop pop.JKTx|
00001260 7d 42 44 2f 63 64 65 66 73 20 32 32 34 20 38 20 |}BD/cdefs 224 8 |
00001270 6d 75 6c 20 73 74 72 69 6e 67 20 64 65 66 20 63 |mul string def c|
00001280 64 65 66 73 20 31 32 37 20 33 32 20 73 75 62 20 |defs 127 32 sub |
00001290 38 20 6d 75 6c 20 46 46 73 20 30 20 38 0a 67 65 |8 mul FFs 0 8.ge|
000012a0 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 6e 74 |tinterval putint|
000012b0 65 72 76 61 6c 2f 44 43 7b 33 32 20 73 75 62 20 |erval/DC{32 sub |
000012c0 38 20 6d 75 6c 20 63 64 65 66 73 20 65 78 63 68 |8 mul cdefs exch|
000012d0 20 38 20 67 65 74 69 6e 74 65 72 76 61 6c 20 63 | 8 getinterval c|
000012e0 75 72 72 65 6e 74 66 69 6c 65 0a 65 78 63 68 20 |urrentfile.exch |
000012f0 72 65 61 64 68 65 78 73 74 72 69 6e 67 20 70 6f |readhexstring po|
00001300 70 20 70 6f 70 7d 42 44 2f 41 72 63 46 6f 6e 74 |p pop}BD/ArcFont|
00001310 20 64 75 70 20 36 20 64 69 63 74 20 64 75 70 20 | dup 6 dict dup |
00001320 62 65 67 69 6e 2f 46 6f 6e 74 4d 61 74 72 69 78 |begin/FontMatrix|
00001330 5b 31 2e 20 30 2e 0a 30 2e 20 31 2e 20 30 2e 20 |[1. 0..0. 1. 0. |
00001340 2d 31 2e 5d 64 65 66 2f 46 6f 6e 74 54 79 70 65 |-1.]def/FontType|
00001350 20 33 20 64 65 66 2f 46 6f 6e 74 42 42 6f 78 5b | 3 def/FontBBox[|
00001360 30 2e 20 30 2e 20 31 2e 20 31 2e 5d 64 65 66 2f |0. 0. 1. 1.]def/|
00001370 45 6e 63 6f 64 69 6e 67 20 32 35 36 20 61 72 72 |Encoding 256 arr|
00001380 61 79 0a 64 65 66 20 30 20 31 20 32 35 35 7b 45 |ay.def 0 1 255{E|
00001390 6e 63 6f 64 69 6e 67 20 65 78 63 68 2f 2e 6e 6f |ncoding exch/.no|
000013a0 74 64 65 66 20 70 75 74 7d 66 6f 72 2f 42 75 69 |tdef put}for/Bui|
000013b0 6c 64 43 68 61 72 7b 78 67 61 70 20 79 67 61 70 |ldChar{xgap ygap|
000013c0 20 73 65 74 63 68 61 72 77 69 64 74 68 20 38 0a | setcharwidth 8.|
000013d0 38 20 74 72 75 65 20 38 2e 20 30 2e 20 30 2e 20 |8 true 8. 0. 0. |
000013e0 38 2e 20 30 2e 20 30 2e 20 57 4d 32 20 61 73 74 |8. 0. 0. WM2 ast|
000013f0 6f 72 65 20 35 20 2d 31 20 72 6f 6c 6c 20 33 32 |ore 5 -1 roll 32|
00001400 20 73 75 62 20 38 20 6d 75 6c 20 63 64 65 66 73 | sub 8 mul cdefs|
00001410 20 65 78 63 68 20 38 0a 67 65 74 69 6e 74 65 72 | exch 8.getinter|
00001420 76 61 6c 20 69 6d 61 67 65 6d 61 73 6b 20 70 6f |val imagemask po|
00001430 70 7d 42 44 20 65 6e 64 20 64 65 66 69 6e 65 66 |p}BD end definef|
00001440 6f 6e 74 20 64 65 66 2f 56 7b 47 53 20 32 20 49 |ont def/V{GS 2 I|
00001450 20 64 69 76 2f 79 67 61 70 20 45 44 20 32 20 49 | div/ygap ED 2 I|
00001460 0a 64 69 76 2f 78 67 61 70 20 45 44 20 30 2e 20 |.div/xgap ED 0. |
00001470 30 2e 20 33 20 2d 31 20 72 6f 6c 6c 20 30 2e 20 |0. 3 -1 roll 0. |
00001480 30 2e 20 57 4d 31 20 61 73 74 6f 72 65 20 41 72 |0. WM1 astore Ar|
00001490 63 46 6f 6e 74 20 65 78 63 68 20 6d 61 6b 65 66 |cFont exch makef|
000014a0 6f 6e 74 20 73 65 74 66 6f 6e 74 20 4d 0a 73 68 |ont setfont M.sh|
000014b0 6f 77 20 47 52 7d 42 44 2f 50 41 52 7b 36 20 2d |ow GR}BD/PAR{6 -|
000014c0 32 20 72 6f 6c 6c 20 70 6f 70 20 70 6f 70 20 31 |2 roll pop pop 1|
000014d0 30 20 64 69 63 74 20 62 65 67 69 6e 20 64 75 70 |0 dict begin dup|
000014e0 20 30 20 6c 74 2f 68 66 6c 69 70 20 45 44 20 61 | 0 lt/hflip ED a|
000014f0 62 73 2f 68 20 45 44 0a 64 75 70 20 30 20 6c 74 |bs/h ED.dup 0 lt|
00001500 2f 77 66 6c 69 70 20 45 44 20 61 62 73 2f 77 20 |/wflip ED abs/w |
00001510 45 44 20 32 35 36 2e 20 64 69 76 2f 75 6c 79 20 |ED 256. div/uly |
00001520 45 44 20 32 35 36 2e 20 64 69 76 2f 75 6c 78 20 |ED 256. div/ulx |
00001530 45 44 20 32 35 36 2e 20 64 69 76 2f 6c 72 79 20 |ED 256. div/lry |
00001540 45 44 0a 32 35 36 2e 20 64 69 76 2f 6c 72 78 20 |ED.256. div/lrx |
00001550 45 44 20 32 35 36 2e 20 64 69 76 2f 6c 6c 79 20 |ED 256. div/lly |
00001560 45 44 20 32 35 36 2e 20 64 69 76 2f 6c 6c 78 20 |ED 256. div/llx |
00001570 45 44 5b 6c 72 78 20 6c 6c 78 20 73 75 62 20 77 |ED[lrx llx sub w|
00001580 20 64 69 76 20 6c 72 79 20 6c 6c 79 0a 73 75 62 | div lry lly.sub|
00001590 20 77 20 64 69 76 20 75 6c 78 20 6c 6c 78 20 73 | w div ulx llx s|
000015a0 75 62 20 68 20 64 69 76 20 75 6c 79 20 6c 6c 79 |ub h div uly lly|
000015b0 20 73 75 62 20 68 20 64 69 76 20 6c 6c 78 20 6c | sub h div llx l|
000015c0 6c 79 5d 63 6f 6e 63 61 74 20 68 66 6c 69 70 7b |ly]concat hflip{|
000015d0 30 20 68 20 54 20 31 0a 2d 31 20 73 63 61 6c 65 |0 h T 1.-1 scale|
000015e0 7d 69 66 20 77 66 6c 69 70 7b 77 20 30 20 54 20 |}if wflip{w 0 T |
000015f0 2d 31 20 31 20 73 63 61 6c 65 7d 69 66 20 65 6e |-1 1 scale}if en|
00001600 64 7d 42 44 2f 56 41 4c 41 43 43 20 31 34 20 64 |d}BD/VALACC 14 d|
00001610 69 63 74 20 64 75 70 20 62 65 67 69 6e 2f 61 63 |ict dup begin/ac|
00001620 75 74 65 0a 31 20 64 65 66 2f 67 72 61 76 65 20 |ute.1 def/grave |
00001630 31 20 64 65 66 2f 63 69 72 63 75 6d 66 6c 65 78 |1 def/circumflex|
00001640 20 31 20 64 65 66 2f 64 69 65 72 65 73 69 73 20 | 1 def/dieresis |
00001650 31 20 64 65 66 2f 72 69 6e 67 20 31 20 64 65 66 |1 def/ring 1 def|
00001660 2f 74 69 6c 64 65 20 31 0a 64 65 66 2f 62 72 65 |/tilde 1.def/bre|
00001670 76 65 20 31 20 64 65 66 2f 63 61 72 6f 6e 20 31 |ve 1 def/caron 1|
00001680 20 64 65 66 2f 63 65 64 69 6c 6c 61 20 31 20 64 | def/cedilla 1 d|
00001690 65 66 2f 64 6f 74 61 63 63 65 6e 74 20 31 20 64 |ef/dotaccent 1 d|
000016a0 65 66 2f 68 75 6e 67 61 72 75 6d 6c 61 75 74 20 |ef/hungarumlaut |
000016b0 31 0a 64 65 66 2f 73 6c 61 73 68 20 31 20 64 65 |1.def/slash 1 de|
000016c0 66 2f 6d 61 63 72 6f 6e 20 31 20 64 65 66 2f 6f |f/macron 1 def/o|
000016d0 67 6f 6e 65 6b 20 31 20 64 65 66 20 65 6e 64 20 |gonek 1 def end |
000016e0 64 65 66 2f 43 4b 4e 7b 32 20 63 6f 70 79 20 6b |def/CKN{2 copy k|
000016f0 6e 6f 77 6e 7b 67 65 74 0a 74 79 70 65 2f 61 72 |nown{get.type/ar|
00001700 72 61 79 74 79 70 65 20 6e 65 7d 7b 70 6f 70 20 |raytype ne}{pop |
00001710 70 6f 70 20 66 61 6c 73 65 7d 69 66 65 6c 73 65 |pop false}ifelse|
00001720 7d 64 65 66 2f 4f 4b 41 7b 32 20 63 6f 70 79 20 |}def/OKA{2 copy |
00001730 6b 6e 6f 77 6e 7b 70 6f 70 20 70 6f 70 0a 66 61 |known{pop pop.fa|
00001740 6c 73 65 7d 7b 64 75 70 20 6c 65 6e 67 74 68 20 |lse}{dup length |
00001750 64 75 70 20 31 20 67 74 7b 73 74 72 69 6e 67 20 |dup 1 gt{string |
00001760 63 76 73 20 64 75 70 20 30 20 31 20 67 65 74 69 |cvs dup 0 1 geti|
00001770 6e 74 65 72 76 61 6c 20 63 76 6e 20 65 78 63 68 |nterval cvn exch|
00001780 20 31 20 31 20 49 0a 6c 65 6e 67 74 68 20 31 20 | 1 1 I.length 1 |
00001790 73 75 62 20 67 65 74 69 6e 74 65 72 76 61 6c 20 |sub getinterval |
000017a0 63 76 6e 20 33 20 2d 31 20 72 6f 6c 6c 20 64 75 |cvn 3 -1 roll du|
000017b0 70 20 32 20 49 20 43 4b 4e 20 65 78 63 68 20 33 |p 2 I CKN exch 3|
000017c0 20 49 20 43 4b 4e 20 61 6e 64 20 56 41 4c 41 43 | I CKN and VALAC|
000017d0 43 20 32 0a 49 20 6b 6e 6f 77 6e 20 61 6e 64 7b |C 2.I known and{|
000017e0 74 72 75 65 7d 7b 70 6f 70 20 70 6f 70 20 66 61 |true}{pop pop fa|
000017f0 6c 73 65 7d 69 66 65 6c 73 65 7d 7b 70 6f 70 20 |lse}ifelse}{pop |
00001800 70 6f 70 20 70 6f 70 0a 66 61 6c 73 65 7d 69 66 |pop pop.false}if|
00001810 65 6c 73 65 7d 69 66 65 6c 73 65 7d 64 65 66 2f |else}ifelse}def/|
00001820 52 46 7b 66 69 6e 64 66 6f 6e 74 20 66 61 6c 73 |RF{findfont fals|
00001830 65 20 33 20 31 20 72 6f 6c 6c 20 5f 52 46 45 7d |e 3 1 roll _RFE}|
00001840 64 65 66 2f 5f 52 46 45 7b 64 75 70 20 6c 65 6e |def/_RFE{dup len|
00001850 67 74 68 0a 64 69 63 74 20 62 65 67 69 6e 7b 31 |gth.dict begin{1|
00001860 20 49 2f 46 49 44 20 6e 65 7b 64 65 66 7d 7b 70 | I/FID ne{def}{p|
00001870 6f 70 20 70 6f 70 7d 69 66 65 6c 73 65 7d 66 6f |op pop}ifelse}fo|
00001880 72 61 6c 6c 20 64 75 70 20 74 79 70 65 2f 61 72 |rall dup type/ar|
00001890 72 61 79 74 79 70 65 0a 65 71 7b 2f 46 6f 6e 74 |raytype.eq{/Font|
000018a0 4d 61 74 72 69 78 20 46 6f 6e 74 4d 61 74 72 69 |Matrix FontMatri|
000018b0 78 20 33 20 2d 31 20 72 6f 6c 6c 20 36 20 61 72 |x 3 -1 roll 6 ar|
000018c0 72 61 79 20 43 43 4d 20 64 65 66 7d 7b 70 6f 70 |ray CCM def}{pop|
000018d0 7d 69 66 65 6c 73 65 20 64 75 70 0a 74 79 70 65 |}ifelse dup.type|
000018e0 2f 61 72 72 61 79 74 79 70 65 20 65 71 20 20 63 |/arraytype eq c|
000018f0 75 72 72 65 6e 74 64 69 63 74 2f 45 6e 63 6f 64 |urrentdict/Encod|
00001900 69 6e 67 20 6b 6e 6f 77 6e 20 61 6e 64 7b 2f 45 |ing known and{/E|
00001910 6e 63 6f 64 69 6e 67 20 65 78 63 68 0a 64 65 66 |ncoding exch.def|
00001920 7d 7b 70 6f 70 7d 69 66 65 6c 73 65 20 63 75 72 |}{pop}ifelse cur|
00001930 72 65 6e 74 64 69 63 74 20 65 6e 64 20 64 65 66 |rentdict end def|
00001940 69 6e 65 66 6f 6e 74 20 70 6f 70 7d 64 65 66 2f |inefont pop}def/|
00001950 52 46 45 7b 66 69 6e 64 66 6f 6e 74 0a 64 75 70 |RFE{findfont.dup|
00001960 2f 43 68 61 72 53 74 72 69 6e 67 73 20 6b 6e 6f |/CharStrings kno|
00001970 77 6e 7b 52 46 45 54 31 7d 7b 5f 52 46 45 7d 69 |wn{RFET1}{_RFE}i|
00001980 66 65 6c 73 65 7d 64 65 66 2f 52 46 45 54 31 7b |felse}def/RFET1{|
00001990 64 75 70 20 6c 65 6e 67 74 68 20 34 20 61 64 64 |dup length 4 add|
000019a0 20 64 69 63 74 0a 62 65 67 69 6e 2f 43 42 4f 58 | dict.begin/CBOX|
000019b0 7b 6e 65 77 70 61 74 68 20 30 20 30 20 4d 20 47 |{newpath 0 0 M G|
000019c0 53 20 69 66 6d 20 53 43 4d 20 66 61 6c 73 65 20 |S ifm SCM false |
000019d0 63 68 61 72 70 61 74 68 20 6d 61 74 72 69 78 20 |charpath matrix |
000019e0 53 43 4d 20 70 61 74 68 62 62 6f 78 0a 63 75 72 |SCM pathbbox.cur|
000019f0 72 65 6e 74 70 6f 69 6e 74 20 47 52 7d 42 44 2f |rentpoint GR}BD/|
00001a00 43 48 45 49 7b 43 42 4f 58 20 70 6f 70 20 70 6f |CHEI{CBOX pop po|
00001a10 70 20 34 20 31 20 72 6f 6c 6c 20 70 6f 70 20 70 |p 4 1 roll pop p|
00001a20 6f 70 20 70 6f 70 7d 42 44 2f 53 52 43 48 7b 2d |op pop}BD/SRCH{-|
00001a30 31 0a 65 78 63 68 2f 45 6e 63 6f 64 69 6e 67 20 |1.exch/Encoding |
00001a40 6c 6f 61 64 20 20 20 30 20 31 20 32 20 49 20 6c |load 0 1 2 I l|
00001a50 65 6e 67 74 68 20 31 20 73 75 62 7b 32 20 63 6f |ength 1 sub{2 co|
00001a60 70 79 20 67 65 74 20 33 20 49 20 65 71 7b 34 20 |py get 3 I eq{4 |
00001a70 2d 31 20 72 6f 6c 6c 20 70 6f 70 20 33 0a 31 20 |-1 roll pop 3.1 |
00001a80 72 6f 6c 6c 20 65 78 69 74 7d 7b 70 6f 70 7d 69 |roll exit}{pop}i|
00001a90 66 65 6c 73 65 7d 66 6f 72 20 70 6f 70 20 70 6f |felse}for pop po|
00001aa0 70 20 64 75 70 20 2d 31 20 6e 65 7b 31 20 73 74 |p dup -1 ne{1 st|
00001ab0 72 69 6e 67 20 64 75 70 20 30 20 34 20 2d 31 20 |ring dup 0 4 -1 |
00001ac0 72 6f 6c 6c 20 70 75 74 0a 74 72 75 65 7d 7b 70 |roll put.true}{p|
00001ad0 6f 70 20 66 61 6c 73 65 20 66 61 6c 73 65 7d 69 |op false false}i|
00001ae0 66 65 6c 73 65 7d 42 44 2f 4d 4b 41 43 43 7b 53 |felse}BD/MKACC{S|
00001af0 52 43 48 20 33 20 2d 31 20 72 6f 6c 6c 20 53 52 |RCH 3 -1 roll SR|
00001b00 43 48 20 33 20 2d 31 20 72 6f 6c 6c 20 61 6e 64 |CH 3 -1 roll and|
00001b10 7b 33 0a 64 69 63 74 20 62 65 67 69 6e 2f 6c 65 |{3.dict begin/le|
00001b20 74 74 65 72 20 65 78 63 68 20 64 65 66 2f 61 63 |tter exch def/ac|
00001b30 63 65 6e 74 20 65 78 63 68 20 64 65 66 2f 69 66 |cent exch def/if|
00001b40 6d 2f 46 6f 6e 74 4d 61 74 72 69 78 20 6c 6f 61 |m/FontMatrix loa|
00001b50 64 20 6d 61 74 72 69 78 0a 69 6e 76 65 72 74 6d |d matrix.invertm|
00001b60 61 74 72 69 78 20 64 65 66 20 47 53 20 6d 61 74 |atrix def GS mat|
00001b70 72 69 78 20 53 43 4d 20 6c 65 74 74 65 72 20 43 |rix SCM letter C|
00001b80 42 4f 58 20 36 20 32 20 72 6f 6c 6c 20 61 63 63 |BOX 6 2 roll acc|
00001b90 65 6e 74 20 43 42 4f 58 20 70 6f 70 20 70 6f 70 |ent CBOX pop pop|
00001ba0 20 36 20 2d 31 0a 72 6f 6c 6c 20 37 20 49 20 73 | 6 -1.roll 7 I s|
00001bb0 75 62 20 33 20 2d 31 20 72 6f 6c 6c 20 34 20 49 |ub 3 -1 roll 4 I|
00001bc0 20 73 75 62 20 73 75 62 20 32 20 64 69 76 20 37 | sub sub 2 div 7|
00001bd0 20 2d 31 20 72 6f 6c 6c 20 35 20 2d 31 20 72 6f | -1 roll 5 -1 ro|
00001be0 6c 6c 20 73 75 62 20 61 64 64 20 37 20 31 0a 72 |ll sub add 7 1.r|
00001bf0 6f 6c 6c 20 30 20 67 74 7b 28 58 29 43 48 45 49 |oll 0 gt{(X)CHEI|
00001c00 28 78 29 43 48 45 49 20 32 20 63 6f 70 79 20 61 |(x)CHEI 2 copy a|
00001c10 64 64 20 32 20 64 69 76 20 35 20 2d 31 20 72 6f |dd 2 div 5 -1 ro|
00001c20 6c 6c 20 6c 65 7b 73 75 62 7d 7b 70 6f 70 20 70 |ll le{sub}{pop p|
00001c30 6f 70 20 30 7d 69 66 65 6c 73 65 0a 35 20 31 20 |op 0}ifelse.5 1 |
00001c40 72 6f 6c 6c 20 70 6f 70 20 70 6f 70 7d 7b 70 6f |roll pop pop}{po|
00001c50 70 20 70 6f 70 20 70 6f 70 20 30 20 33 20 31 20 |p pop pop 0 3 1 |
00001c60 72 6f 6c 6c 7d 69 66 65 6c 73 65 20 47 52 20 73 |roll}ifelse GR s|
00001c70 65 74 63 68 61 72 77 69 64 74 68 20 30 20 30 20 |etcharwidth 0 0 |
00001c80 4d 20 47 53 20 69 66 6d 0a 63 6f 6e 63 61 74 20 |M GS ifm.concat |
00001c90 6c 65 74 74 65 72 20 73 68 6f 77 20 47 52 20 4d |letter show GR M|
00001ca0 20 20 20 20 47 53 20 69 66 6d 20 63 6f 6e 63 61 | GS ifm conca|
00001cb0 74 20 61 63 63 65 6e 74 20 73 68 6f 77 20 20 47 |t accent show G|
00001cc0 52 20 65 6e 64 7d 7b 70 6f 70 20 70 6f 70 7d 69 |R end}{pop pop}i|
00001cd0 66 65 6c 73 65 0a 70 6f 70 7d 42 44 20 64 75 70 |felse.pop}BD dup|
00001ce0 2f 43 68 61 72 53 74 72 69 6e 67 73 20 67 65 74 |/CharStrings get|
00001cf0 20 30 20 34 20 49 7b 32 20 49 20 65 78 63 68 20 | 0 4 I{2 I exch |
00001d00 4f 4b 41 7b 70 6f 70 20 70 6f 70 20 31 20 61 64 |OKA{pop pop 1 ad|
00001d10 64 7d 69 66 7d 66 6f 72 61 6c 6c 20 33 20 2d 31 |d}if}forall 3 -1|
00001d20 0a 72 6f 6c 6c 7b 31 20 49 2f 46 49 44 20 6e 65 |.roll{1 I/FID ne|
00001d30 20 32 20 49 2f 43 68 61 72 53 74 72 69 6e 67 73 | 2 I/CharStrings|
00001d40 20 6e 65 20 61 6e 64 7b 64 65 66 7d 7b 70 6f 70 | ne and{def}{pop|
00001d50 20 70 6f 70 7d 69 66 65 6c 73 65 7d 66 6f 72 61 | pop}ifelse}fora|
00001d60 6c 6c 20 31 20 49 20 6c 65 6e 67 74 68 0a 61 64 |ll 1 I length.ad|
00001d70 64 20 64 69 63 74 20 65 78 63 68 7b 32 20 49 20 |d dict exch{2 I |
00001d80 33 20 31 20 72 6f 6c 6c 20 70 75 74 7d 66 6f 72 |3 1 roll put}for|
00001d90 61 6c 6c 20 32 20 49 7b 32 20 63 6f 70 79 20 4f |all 2 I{2 copy O|
00001da0 4b 41 7b 5b 33 20 31 20 72 6f 6c 6c 2f 4d 4b 41 |KA{[3 1 roll/MKA|
00001db0 43 43 20 63 76 78 5d 63 76 78 0a 32 20 49 20 33 |CC cvx]cvx.2 I 3|
00001dc0 20 31 20 72 6f 6c 6c 20 70 75 74 7d 7b 70 6f 70 | 1 roll put}{pop|
00001dd0 7d 69 66 65 6c 73 65 7d 66 6f 72 61 6c 6c 2f 43 |}ifelse}forall/C|
00001de0 68 61 72 53 74 72 69 6e 67 73 20 65 78 63 68 20 |harStrings exch |
00001df0 64 65 66 20 64 75 70 20 74 79 70 65 2f 61 72 72 |def dup type/arr|
00001e00 61 79 74 79 70 65 0a 65 71 7b 2f 46 6f 6e 74 4d |aytype.eq{/FontM|
00001e10 61 74 72 69 78 20 46 6f 6e 74 4d 61 74 72 69 78 |atrix FontMatrix|
00001e20 20 33 20 2d 31 20 72 6f 6c 6c 20 36 20 61 72 72 | 3 -1 roll 6 arr|
00001e30 61 79 20 43 43 4d 20 64 65 66 7d 7b 70 6f 70 7d |ay CCM def}{pop}|
00001e40 69 66 65 6c 73 65 2f 45 6e 63 6f 64 69 6e 67 0a |ifelse/Encoding.|
00001e50 65 78 63 68 20 64 65 66 20 63 75 72 72 65 6e 74 |exch def current|
00001e60 64 69 63 74 20 65 6e 64 20 64 65 66 69 6e 65 66 |dict end definef|
00001e70 6f 6e 74 20 70 6f 70 7d 42 44 20 65 6e 64 20 0a |ont pop}BD end .|
00001e80 
.