Home » Personal collection » Acorn hard disk » apps » Printers » 153/!Printers/ps/PSFiles/Level1/PSprolog2
153/!Printers/ps/PSFiles/Level1/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: | 153/!Printers/ps/PSFiles/Level1/PSprolog2 |
| Read OK: | ✔ |
| File size: | 1ED3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_1.6M_Impression.adf » !Printers/ps/PSFiles/Level1/PSprolog2
- Personal collection » Acorn hard disk » apps » Printers » 153/!Printers/ps/PSFiles/Level1/PSprolog2
File contents
%% Main prologue (Level 1) for the PostScript printer driver module.
%% Version 4.02 first used with version 4.36 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/JM{pop 1 SM}BD/J8{2 copy
mul/Rem exch def 8 SMat/D32 load image}BD/J32{S32}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 28 4c 65 76 65 6c 20 31 29 20 66 6f 72 20 74 | (Level 1) for t|
00000020 68 65 20 50 6f 73 74 53 63 72 69 70 74 20 70 72 |he PostScript pr|
00000030 69 6e 74 65 72 20 64 72 69 76 65 72 20 6d 6f 64 |inter driver mod|
00000040 75 6c 65 2e 0a 25 25 20 56 65 72 73 69 6f 6e 20 |ule..%% Version |
00000050 34 2e 30 32 20 66 69 72 73 74 20 75 73 65 64 20 |4.02 first used |
00000060 77 69 74 68 20 76 65 72 73 69 6f 6e 20 34 2e 33 |with version 4.3|
00000070 36 20 6f 66 20 74 68 65 20 6d 6f 64 75 6c 65 0a |6 of the module.|
00000080 2f 50 44 64 69 63 74 20 32 30 30 20 64 69 63 74 |/PDdict 200 dict|
00000090 20 64 65 66 20 50 44 64 69 63 74 20 62 65 67 69 | def PDdict begi|
000000a0 6e 2f 42 44 7b 62 69 6e 64 20 64 65 66 7d 62 69 |n/BD{bind def}bi|
000000b0 6e 64 20 64 65 66 2f 4c 44 7b 6c 6f 61 64 0a 64 |nd def/LD{load.d|
000000c0 65 66 7d 42 44 2f 4c 57 2f 73 65 74 6c 69 6e 65 |ef}BD/LW/setline|
000000d0 77 69 64 74 68 20 4c 44 2f 53 74 2f 73 74 72 6f |width LD/St/stro|
000000e0 6b 65 20 4c 44 2f 54 2f 74 72 61 6e 73 6c 61 74 |ke LD/T/translat|
000000f0 65 20 4c 44 2f 53 2f 73 61 76 65 20 4c 44 2f 52 |e LD/S/save LD/R|
00000100 2f 72 65 73 74 6f 72 65 0a 4c 44 2f 47 53 2f 67 |/restore.LD/GS/g|
00000110 73 61 76 65 20 4c 44 2f 47 52 2f 67 72 65 73 74 |save LD/GR/grest|
00000120 6f 72 65 20 4c 44 2f 43 50 2f 63 6c 69 70 70 61 |ore LD/CP/clippa|
00000130 74 68 20 4c 44 2f 43 6c 2f 63 6c 6f 73 65 70 61 |th LD/Cl/closepa|
00000140 74 68 20 4c 44 2f 4d 2f 6d 6f 76 65 74 6f 0a 4c |th LD/M/moveto.L|
00000150 44 2f 52 4d 2f 72 6d 6f 76 65 74 6f 20 4c 44 2f |D/RM/rmoveto LD/|
00000160 4c 2f 6c 69 6e 65 74 6f 20 4c 44 2f 42 2f 63 75 |L/lineto LD/B/cu|
00000170 72 76 65 74 6f 20 4c 44 2f 49 2f 69 6e 64 65 78 |rveto LD/I/index|
00000180 20 4c 44 2f 53 57 2f 73 74 72 69 6e 67 77 69 64 | LD/SW/stringwid|
00000190 74 68 0a 4c 44 2f 47 43 46 2f 63 75 72 72 65 6e |th.LD/GCF/curren|
000001a0 74 66 6f 6e 74 20 4c 44 2f 47 43 4d 2f 63 75 72 |tfont LD/GCM/cur|
000001b0 72 65 6e 74 6d 61 74 72 69 78 20 4c 44 2f 53 43 |rentmatrix LD/SC|
000001c0 4d 2f 73 65 74 6d 61 74 72 69 78 20 4c 44 2f 43 |M/setmatrix LD/C|
000001d0 43 4d 2f 63 6f 6e 63 61 74 6d 61 74 72 69 78 0a |CM/concatmatrix.|
000001e0 4c 44 2f 45 44 7b 65 78 63 68 20 64 65 66 7d 42 |LD/ED{exch def}B|
000001f0 44 2f 43 6f 70 69 65 73 7b 2f 23 63 6f 70 69 65 |D/Copies{/#copie|
00000200 73 20 45 44 20 73 68 6f 77 70 61 67 65 7d 42 44 |s ED showpage}BD|
00000210 2f 4d 50 7b 34 30 30 2e 20 64 69 76 7d 42 44 2f |/MP{400. div}BD/|
00000220 46 62 7b 36 35 35 33 36 2e 0a 64 69 76 7d 42 44 |Fb{65536..div}BD|
00000230 2f 57 4d 31 20 6d 61 74 72 69 78 20 64 65 66 2f |/WM1 matrix def/|
00000240 57 4d 32 20 6d 61 74 72 69 78 20 64 65 66 2f 49 |WM2 matrix def/I|
00000250 4d 31 20 6d 61 74 72 69 78 20 64 65 66 2f 55 4d |M1 matrix def/UM|
00000260 7b 46 62 20 34 20 31 20 72 6f 6c 6c 20 46 62 20 |{Fb 4 1 roll Fb |
00000270 34 20 31 0a 72 6f 6c 6c 20 46 62 20 34 20 31 20 |4 1.roll Fb 4 1 |
00000280 72 6f 6c 6c 20 46 62 20 34 20 31 20 72 6f 6c 6c |roll Fb 4 1 roll|
00000290 20 30 2e 20 30 2e 20 57 4d 31 20 61 73 74 6f 72 | 0. 0. WM1 astor|
000002a0 65 20 63 6f 6e 63 61 74 7d 42 44 2f 42 78 7b 34 |e concat}BD/Bx{4|
000002b0 20 63 6f 70 79 20 35 20 31 20 72 6f 6c 6c 20 34 | copy 5 1 roll 4|
000002c0 0a 32 20 72 6f 6c 6c 20 35 20 2d 31 20 72 6f 6c |.2 roll 5 -1 rol|
000002d0 6c 20 4d 20 4c 20 4c 20 4c 20 43 6c 7d 42 44 2f |l M L L L Cl}BD/|
000002e0 43 70 7b 42 78 20 63 6c 69 70 20 6e 65 77 70 61 |Cp{Bx clip newpa|
000002f0 74 68 7d 42 44 2f 50 53 7b 37 32 2e 20 31 38 30 |th}BD/PS{72. 180|
00000300 2e 20 64 69 76 20 64 75 70 0a 73 63 61 6c 65 20 |. div dup.scale |
00000310 6e 65 77 70 61 74 68 20 43 70 5b 5d 30 2e 20 73 |newpath Cp[]0. s|
00000320 65 74 64 61 73 68 7d 42 44 2f 4d 43 7b 30 2e 20 |etdash}BD/MC{0. |
00000330 30 2e 20 43 70 7d 42 44 2f 47 7b 32 35 35 2e 20 |0. Cp}BD/G{255. |
00000340 64 69 76 20 73 65 74 67 72 61 79 7d 42 44 2f 43 |div setgray}BD/C|
00000350 7b 32 35 35 2e 0a 64 69 76 20 33 20 31 20 72 6f |{255..div 3 1 ro|
00000360 6c 6c 20 32 35 35 2e 20 64 69 76 20 33 20 31 20 |ll 255. div 3 1 |
00000370 72 6f 6c 6c 20 32 35 35 2e 20 64 69 76 20 33 20 |roll 255. div 3 |
00000380 31 20 72 6f 6c 6c 20 73 65 74 72 67 62 63 6f 6c |1 roll setrgbcol|
00000390 6f 72 7d 42 44 2f 45 70 73 20 30 2e 31 20 4d 50 |or}BD/Eps 0.1 MP|
000003a0 0a 64 65 66 2f 56 53 74 7b 32 20 73 65 74 6c 69 |.def/VSt{2 setli|
000003b0 6e 65 63 61 70 20 30 20 73 65 74 6c 69 6e 65 6a |necap 0 setlinej|
000003c0 6f 69 6e 20 32 2e 30 30 30 30 30 31 20 73 65 74 |oin 2.000001 set|
000003d0 6d 69 74 65 72 6c 69 6d 69 74 20 32 2e 20 4c 57 |miterlimit 2. LW|
000003e0 20 30 2e 20 45 70 73 0a 72 6c 69 6e 65 74 6f 20 | 0. Eps.rlineto |
000003f0 53 74 7d 42 44 2f 56 46 6c 7b 43 6c 20 47 53 20 |St}BD/VFl{Cl GS |
00000400 66 69 6c 6c 20 47 52 20 56 53 74 7d 42 44 2f 4c |fill GR VSt}BD/L|
00000410 69 7b 4d 20 4c 20 56 53 74 7d 42 44 2f 50 74 7b |i{M L VSt}BD/Pt{|
00000420 4d 20 56 53 74 7d 42 44 2f 54 72 7b 4d 20 4c 20 |M VSt}BD/Tr{M L |
00000430 4c 0a 56 46 6c 7d 42 44 2f 52 63 7b 42 78 20 56 |L.VFl}BD/Rc{Bx V|
00000440 46 6c 7d 42 44 2f 50 72 7b 36 20 63 6f 70 79 20 |Fl}BD/Pr{6 copy |
00000450 4d 20 4c 20 4c 20 35 20 2d 31 20 72 6f 6c 6c 20 |M L L 5 -1 roll |
00000460 34 20 2d 31 20 72 6f 6c 6c 20 73 75 62 20 61 64 |4 -1 roll sub ad|
00000470 64 20 34 20 31 20 72 6f 6c 6c 0a 65 78 63 68 20 |d 4 1 roll.exch |
00000480 73 75 62 20 61 64 64 20 65 78 63 68 20 4c 20 56 |sub add exch L V|
00000490 46 6c 7d 42 44 2f 4c 6e 7b 64 75 70 20 6d 75 6c |Fl}BD/Ln{dup mul|
000004a0 20 65 78 63 68 20 64 75 70 20 6d 75 6c 20 61 64 | exch dup mul ad|
000004b0 64 20 73 71 72 74 7d 42 44 2f 43 69 72 7b 30 2e |d sqrt}BD/Cir{0.|
000004c0 20 33 36 30 2e 0a 61 72 63 7d 42 44 2f 56 43 7b | 360..arc}BD/VC{|
000004d0 4c 6e 20 43 69 72 7d 42 44 2f 43 53 7b 56 43 20 |Ln Cir}BD/CS{VC |
000004e0 56 53 74 7d 42 44 2f 43 46 7b 56 43 20 56 46 6c |VSt}BD/CF{VC VFl|
000004f0 7d 42 44 2f 56 41 7b 32 20 63 6f 70 79 20 4c 6e |}BD/VA{2 copy Ln|
00000500 20 35 20 31 20 72 6f 6c 6c 20 65 78 63 68 0a 61 | 5 1 roll exch.a|
00000510 74 61 6e 20 33 20 31 20 72 6f 6c 6c 20 65 78 63 |tan 3 1 roll exc|
00000520 68 20 61 74 61 6e 20 61 72 63 7d 42 44 2f 41 63 |h atan arc}BD/Ac|
00000530 7b 56 41 20 56 53 74 7d 42 44 2f 43 64 7b 56 41 |{VA VSt}BD/Cd{VA|
00000540 20 56 46 6c 7d 42 44 2f 53 63 7b 35 20 49 20 35 | VFl}BD/Sc{5 I 5|
00000550 20 49 20 4d 20 56 41 0a 56 46 6c 7d 42 44 2f 56 | I M VA.VFl}BD/V|
00000560 45 7b 30 2e 20 35 20 31 20 72 6f 6c 6c 20 57 4d |E{0. 5 1 roll WM|
00000570 31 20 61 73 74 6f 72 65 20 57 4d 32 20 47 43 4d |1 astore WM2 GCM|
00000580 20 65 78 63 68 20 63 6f 6e 63 61 74 20 30 2e 20 | exch concat 0. |
00000590 30 2e 20 31 2e 20 43 69 72 0a 53 43 4d 7d 42 44 |0. 1. Cir.SCM}BD|
000005a0 2f 45 53 7b 56 45 20 56 53 74 7d 42 44 2f 45 46 |/ES{VE VSt}BD/EF|
000005b0 7b 56 45 20 56 46 6c 7d 42 44 2f 4d 61 78 7b 32 |{VE VFl}BD/Max{2|
000005c0 20 63 6f 70 79 20 6c 74 7b 65 78 63 68 7d 69 66 | copy lt{exch}if|
000005d0 20 70 6f 70 7d 42 44 2f 44 4d 7b 32 35 36 2e 20 | pop}BD/DM{256. |
000005e0 64 69 76 20 36 0a 31 20 72 6f 6c 6c 20 32 35 36 |div 6.1 roll 256|
000005f0 2e 20 64 69 76 20 36 20 31 20 72 6f 6c 6c 20 46 |. div 6 1 roll F|
00000600 62 20 32 35 36 2e 20 64 69 76 20 36 20 31 20 72 |b 256. div 6 1 r|
00000610 6f 6c 6c 20 46 62 20 32 35 36 2e 20 64 69 76 20 |oll Fb 256. div |
00000620 36 20 31 20 72 6f 6c 6c 20 46 62 20 32 35 36 2e |6 1 roll Fb 256.|
00000630 0a 64 69 76 20 36 20 31 20 72 6f 6c 6c 20 46 62 |.div 6 1 roll Fb|
00000640 20 32 35 36 2e 20 64 69 76 20 36 20 31 20 72 6f | 256. div 6 1 ro|
00000650 6c 6c 20 57 4d 31 20 61 73 74 6f 72 65 20 63 6f |ll WM1 astore co|
00000660 6e 63 61 74 7d 42 44 2f 53 44 4d 7b 32 35 36 2e |ncat}BD/SDM{256.|
00000670 20 64 69 76 20 36 20 31 20 72 6f 6c 6c 0a 32 35 | div 6 1 roll.25|
00000680 36 2e 20 64 69 76 20 36 20 31 20 72 6f 6c 6c 20 |6. div 6 1 roll |
00000690 46 62 20 36 20 31 20 72 6f 6c 6c 20 46 62 20 36 |Fb 6 1 roll Fb 6|
000006a0 20 31 20 72 6f 6c 6c 20 46 62 20 36 20 31 20 72 | 1 roll Fb 6 1 r|
000006b0 6f 6c 6c 20 46 62 20 36 20 31 20 72 6f 6c 6c 20 |oll Fb 6 1 roll |
000006c0 36 20 63 6f 70 79 20 57 4d 31 0a 61 73 74 6f 72 |6 copy WM1.astor|
000006d0 65 20 63 6f 6e 63 61 74 20 70 6f 70 20 70 6f 70 |e concat pop pop|
000006e0 20 30 20 30 20 49 4d 31 20 61 73 74 6f 72 65 20 | 0 0 IM1 astore |
000006f0 70 6f 70 7d 42 44 2f 49 54 7b 49 4d 31 20 69 74 |pop}BD/IT{IM1 it|
00000700 72 61 6e 73 66 6f 72 6d 7d 42 44 2f 43 4a 7b 32 |ransform}BD/CJ{2|
00000710 20 49 20 30 0a 65 71 7b 46 62 20 73 65 74 6d 69 | I 0.eq{Fb setmi|
00000720 74 65 72 6c 69 6d 69 74 7d 7b 70 6f 70 7d 69 66 |terlimit}{pop}if|
00000730 65 6c 73 65 20 73 65 74 6c 69 6e 65 63 61 70 20 |else setlinecap |
00000740 73 65 74 6c 69 6e 65 6a 6f 69 6e 7d 42 44 2f 57 |setlinejoin}BD/W|
00000750 53 20 34 30 39 36 20 73 74 72 69 6e 67 0a 64 65 |S 4096 string.de|
00000760 66 2f 53 4d 61 74 20 6d 61 74 72 69 78 20 64 65 |f/SMat matrix de|
00000770 66 2f 53 53 7b 64 69 76 20 33 20 31 20 72 6f 6c |f/SS{div 3 1 rol|
00000780 6c 20 64 69 76 20 65 78 63 68 20 73 63 61 6c 65 |l div exch scale|
00000790 7d 42 44 2f 53 4d 7b 31 2e 20 65 78 63 68 20 64 |}BD/SM{1. exch d|
000007a0 69 76 20 30 2e 20 30 2e 0a 31 2e 20 30 2e 20 30 |iv 0. 0..1. 0. 0|
000007b0 2e 20 53 4d 61 74 20 61 73 74 6f 72 65 20 70 6f |. SMat astore po|
000007c0 70 7d 42 44 2f 52 43 7b 57 53 20 30 20 33 20 49 |p}BD/RC{WS 0 3 I|
000007d0 20 70 75 74 20 64 75 70 20 31 20 67 74 7b 57 53 | put dup 1 gt{WS|
000007e0 20 31 20 33 20 49 20 70 75 74 20 64 75 70 20 32 | 1 3 I put dup 2|
000007f0 0a 67 74 7b 57 53 20 32 20 33 20 49 20 70 75 74 |.gt{WS 2 3 I put|
00000800 20 57 53 20 33 20 33 20 49 20 70 75 74 20 64 75 | WS 3 3 I put du|
00000810 70 20 34 20 67 74 7b 57 53 20 34 20 57 53 20 30 |p 4 gt{WS 4 WS 0|
00000820 20 34 20 67 65 74 69 6e 74 65 72 76 61 6c 20 70 | 4 getinterval p|
00000830 75 74 69 6e 74 65 72 76 61 6c 0a 64 75 70 20 38 |utinterval.dup 8|
00000840 20 67 74 7b 57 53 20 38 20 57 53 20 30 20 38 20 | gt{WS 8 WS 0 8 |
00000850 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 |getinterval puti|
00000860 6e 74 65 72 76 61 6c 20 64 75 70 20 31 36 20 67 |nterval dup 16 g|
00000870 74 7b 57 53 20 31 36 20 57 53 20 30 20 31 36 0a |t{WS 16 WS 0 16.|
00000880 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 |getinterval puti|
00000890 6e 74 65 72 76 61 6c 20 64 75 70 20 33 32 20 67 |nterval dup 32 g|
000008a0 74 7b 57 53 20 33 32 20 57 53 20 30 20 33 32 20 |t{WS 32 WS 0 32 |
000008b0 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 |getinterval puti|
000008c0 6e 74 65 72 76 61 6c 20 64 75 70 0a 36 34 20 67 |nterval dup.64 g|
000008d0 74 7b 57 53 20 36 34 20 57 53 20 30 20 36 34 20 |t{WS 64 WS 0 64 |
000008e0 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 |getinterval puti|
000008f0 6e 74 65 72 76 61 6c 20 64 75 70 20 31 32 38 20 |nterval dup 128 |
00000900 67 74 7b 57 53 20 31 32 38 20 57 53 20 30 20 31 |gt{WS 128 WS 0 1|
00000910 32 38 0a 67 65 74 69 6e 74 65 72 76 61 6c 20 70 |28.getinterval p|
00000920 75 74 69 6e 74 65 72 76 61 6c 20 64 75 70 20 32 |utinterval dup 2|
00000930 35 36 20 67 74 7b 57 53 20 32 35 36 20 57 53 20 |56 gt{WS 256 WS |
00000940 30 20 32 35 36 20 67 65 74 69 6e 74 65 72 76 61 |0 256 getinterva|
00000950 6c 20 70 75 74 69 6e 74 65 72 76 61 6c 0a 64 75 |l putinterval.du|
00000960 70 20 35 31 32 20 67 74 7b 57 53 20 35 31 32 20 |p 512 gt{WS 512 |
00000970 57 53 20 30 20 35 31 32 20 67 65 74 69 6e 74 65 |WS 0 512 getinte|
00000980 72 76 61 6c 20 70 75 74 69 6e 74 65 72 76 61 6c |rval putinterval|
00000990 20 64 75 70 20 31 30 32 34 20 67 74 7b 57 53 20 | dup 1024 gt{WS |
000009a0 31 30 32 34 20 57 53 20 30 0a 31 30 32 34 20 67 |1024 WS 0.1024 g|
000009b0 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 69 6e |etinterval putin|
000009c0 74 65 72 76 61 6c 20 64 75 70 20 32 30 34 38 20 |terval dup 2048 |
000009d0 67 74 7b 57 53 20 32 30 34 38 20 57 53 20 30 20 |gt{WS 2048 WS 0 |
000009e0 32 30 34 38 20 67 65 74 69 6e 74 65 72 76 61 6c |2048 getinterval|
000009f0 0a 70 75 74 69 6e 74 65 72 76 61 6c 7d 69 66 7d |.putinterval}if}|
00000a00 69 66 7d 69 66 7d 69 66 7d 69 66 7d 69 66 7d 69 |if}if}if}if}if}i|
00000a10 66 7d 69 66 7d 69 66 7d 69 66 7d 69 66 7d 69 66 |f}if}if}if}if}if|
00000a20 20 70 6f 70 20 70 6f 70 7d 42 44 2f 53 52 7b 63 | pop pop}BD/SR{c|
00000a30 75 72 72 65 6e 74 66 69 6c 65 0a 74 6f 6b 65 6e |urrentfile.token|
00000a40 20 70 6f 70 20 64 75 70 20 30 20 67 74 7b 57 53 | pop dup 0 gt{WS|
00000a50 20 30 20 33 20 2d 31 20 72 6f 6c 6c 20 67 65 74 | 0 3 -1 roll get|
00000a60 69 6e 74 65 72 76 61 6c 20 63 75 72 72 65 6e 74 |interval current|
00000a70 66 69 6c 65 20 65 78 63 68 20 72 65 61 64 68 65 |file exch readhe|
00000a80 78 73 74 72 69 6e 67 0a 70 6f 70 7d 7b 6e 65 67 |xstring.pop}{neg|
00000a90 20 63 75 72 72 65 6e 74 66 69 6c 65 20 74 6f 6b | currentfile tok|
00000aa0 65 6e 20 70 6f 70 20 31 20 49 20 52 43 20 57 53 |en pop 1 I RC WS|
00000ab0 20 30 20 33 20 2d 31 20 72 6f 6c 6c 0a 67 65 74 | 0 3 -1 roll.get|
00000ac0 69 6e 74 65 72 76 61 6c 7d 69 66 65 6c 73 65 7d |interval}ifelse}|
00000ad0 42 44 2f 53 31 7b 74 72 75 65 20 53 4d 61 74 2f |BD/S1{true SMat/|
00000ae0 53 52 20 6c 6f 61 64 20 69 6d 61 67 65 6d 61 73 |SR load imagemas|
00000af0 6b 7d 42 44 20 32 35 35 20 32 30 34 38 20 52 43 |k}BD 255 2048 RC|
00000b00 2f 46 46 73 20 57 53 20 30 0a 32 30 34 38 20 67 |/FFs WS 0.2048 g|
00000b10 65 74 69 6e 74 65 72 76 61 6c 20 32 30 34 38 20 |etinterval 2048 |
00000b20 73 74 72 69 6e 67 20 63 6f 70 79 20 64 65 66 2f |string copy def/|
00000b30 53 46 7b 2f 57 53 32 20 46 46 73 20 30 20 34 20 |SF{/WS2 FFs 0 4 |
00000b40 49 20 37 20 61 64 64 20 38 20 69 64 69 76 20 34 |I 7 add 8 idiv 4|
00000b50 20 49 20 6d 75 6c 0a 67 65 74 69 6e 74 65 72 76 | I mul.getinterv|
00000b60 61 6c 20 64 65 66 20 74 72 75 65 20 53 4d 61 74 |al def true SMat|
00000b70 7b 57 53 32 7d 69 6d 61 67 65 6d 61 73 6b 7d 42 |{WS2}imagemask}B|
00000b80 44 2f 53 4e 7b 38 20 53 4d 61 74 2f 53 52 20 6c |D/SN{8 SMat/SR l|
00000b90 6f 61 64 20 69 6d 61 67 65 7d 42 44 2f 52 65 6d |oad image}BD/Rem|
00000ba0 20 30 0a 64 65 66 2f 44 33 32 7b 63 75 72 72 65 | 0.def/D32{curre|
00000bb0 6e 74 66 69 6c 65 20 52 65 6d 20 57 53 20 6c 65 |ntfile Rem WS le|
00000bc0 6e 67 74 68 20 6c 74 7b 57 53 20 30 20 52 65 6d |ngth lt{WS 0 Rem|
00000bd0 20 67 65 74 69 6e 74 65 72 76 61 6c 7d 7b 57 53 | getinterval}{WS|
00000be0 7d 69 66 65 6c 73 65 0a 72 65 61 64 68 65 78 73 |}ifelse.readhexs|
00000bf0 74 72 69 6e 67 20 70 6f 70 2f 52 65 6d 20 52 65 |tring pop/Rem Re|
00000c00 6d 20 57 53 20 6c 65 6e 67 74 68 20 73 75 62 20 |m WS length sub |
00000c10 64 65 66 7d 42 44 2f 53 33 32 7b 32 20 63 6f 70 |def}BD/S32{2 cop|
00000c20 79 20 20 6d 75 6c 20 33 20 6d 75 6c 2f 52 65 6d |y mul 3 mul/Rem|
00000c30 0a 65 78 63 68 20 64 65 66 20 38 20 53 4d 61 74 |.exch def 8 SMat|
00000c40 2f 44 33 32 20 6c 6f 61 64 20 66 61 6c 73 65 20 |/D32 load false |
00000c50 33 20 63 6f 6c 6f 72 69 6d 61 67 65 7d 42 44 2f |3 colorimage}BD/|
00000c60 4a 4d 7b 70 6f 70 20 31 20 53 4d 7d 42 44 2f 4a |JM{pop 1 SM}BD/J|
00000c70 38 7b 32 20 63 6f 70 79 0a 6d 75 6c 2f 52 65 6d |8{2 copy.mul/Rem|
00000c80 20 65 78 63 68 20 64 65 66 20 38 20 53 4d 61 74 | exch def 8 SMat|
00000c90 2f 44 33 32 20 6c 6f 61 64 20 69 6d 61 67 65 7d |/D32 load image}|
00000ca0 42 44 2f 4a 33 32 7b 53 33 32 7d 42 44 2f 54 53 |BD/J32{S32}BD/TS|
00000cb0 7b 31 2e 20 65 78 63 68 20 64 69 76 20 65 78 63 |{1. exch div exc|
00000cc0 68 20 31 2e 0a 65 78 63 68 20 64 69 76 20 65 78 |h 1..exch div ex|
00000cd0 63 68 20 73 63 61 6c 65 7d 42 44 2f 46 6e 7b 30 |ch scale}BD/Fn{0|
00000ce0 2e 30 31 36 20 64 69 76 20 65 78 63 68 20 30 2e |.016 div exch 0.|
00000cf0 30 31 36 20 64 69 76 20 65 78 63 68 20 64 75 70 |016 div exch dup|
00000d00 2f 66 68 65 69 67 68 74 20 45 44 20 30 2e 20 30 |/fheight ED 0. 0|
00000d10 2e 0a 33 20 2d 31 20 72 6f 6c 6c 20 30 2e 20 30 |..3 -1 roll 0. 0|
00000d20 2e 20 57 4d 31 20 61 73 74 6f 72 65 20 65 78 63 |. WM1 astore exc|
00000d30 68 20 66 69 6e 64 66 6f 6e 74 20 65 78 63 68 20 |h findfont exch |
00000d40 6d 61 6b 65 66 6f 6e 74 20 73 65 74 66 6f 6e 74 |makefont setfont|
00000d50 7d 42 44 2f 55 6c 7b 47 53 20 32 0a 63 6f 70 79 |}BD/Ul{GS 2.copy|
00000d60 20 4c 6e 20 75 6c 70 6f 73 20 75 6c 74 68 69 63 | Ln ulpos ulthic|
00000d70 6b 20 32 2e 20 64 69 76 20 73 75 62 20 32 35 36 |k 2. div sub 256|
00000d80 2e 20 64 69 76 20 66 68 65 69 67 68 74 20 6d 75 |. div fheight mu|
00000d90 6c 20 65 78 63 68 20 64 69 76 20 64 75 70 20 32 |l exch div dup 2|
00000da0 20 49 20 6e 65 67 0a 6d 75 6c 20 65 78 63 68 20 | I neg.mul exch |
00000db0 33 20 49 20 6d 75 6c 20 52 4d 20 32 20 63 6f 70 |3 I mul RM 2 cop|
00000dc0 79 20 72 6c 69 6e 65 74 6f 20 75 6c 74 68 69 63 |y rlineto ulthic|
00000dd0 6b 20 32 35 36 2e 20 64 69 76 20 66 68 65 69 67 |k 256. div fheig|
00000de0 68 74 20 6d 75 6c 20 4c 57 20 30 0a 73 65 74 6c |ht mul LW 0.setl|
00000df0 69 6e 65 63 61 70 20 53 74 20 47 52 7d 42 44 2f |inecap St GR}BD/|
00000e00 41 43 7b 33 20 2d 31 20 72 6f 6c 6c 20 65 78 63 |AC{3 -1 roll exc|
00000e10 68 20 73 75 62 20 33 20 49 20 6c 65 6e 67 74 68 |h sub 3 I length|
00000e20 20 64 69 76 20 34 20 31 20 72 6f 6c 6c 20 73 75 | div 4 1 roll su|
00000e30 62 20 31 20 49 0a 6c 65 6e 67 74 68 20 64 69 76 |b 1 I.length div|
00000e40 20 33 20 31 20 72 6f 6c 6c 7d 42 44 2f 54 78 7b | 3 1 roll}BD/Tx{|
00000e50 4d 20 32 20 49 20 53 57 20 41 43 20 61 73 68 6f |M 2 I SW AC asho|
00000e60 77 7d 42 44 2f 4a 54 78 7b 4d 20 37 20 49 20 64 |w}BD/JTx{M 7 I d|
00000e70 75 70 20 34 20 31 20 72 6f 6c 6c 20 53 57 20 41 |up 4 1 roll SW A|
00000e80 43 0a 70 6f 70 20 65 78 63 68 20 34 20 2d 31 20 |C.pop exch 4 -1 |
00000e90 72 6f 6c 6c 20 61 64 64 20 33 20 31 20 72 6f 6c |roll add 3 1 rol|
00000ea0 6c 20 61 64 64 20 36 20 2d 31 20 72 6f 6c 6c 20 |l add 6 -1 roll |
00000eb0 61 77 69 64 74 68 73 68 6f 77 7d 42 44 2f 55 54 |awidthshow}BD/UT|
00000ec0 78 7b 2f 75 6c 74 68 69 63 6b 0a 45 44 2f 75 6c |x{/ulthick.ED/ul|
00000ed0 70 6f 73 20 45 44 20 4d 20 55 6c 20 32 20 49 20 |pos ED M Ul 2 I |
00000ee0 53 57 20 41 43 20 61 73 68 6f 77 7d 42 44 2f 55 |SW AC ashow}BD/U|
00000ef0 4a 54 78 7b 4d 2f 75 6c 74 68 69 63 6b 20 45 44 |JTx{M/ulthick ED|
00000f00 2f 75 6c 70 6f 73 20 45 44 20 55 6c 20 70 6f 70 |/ulpos ED Ul pop|
00000f10 20 70 6f 70 20 37 0a 49 20 64 75 70 20 34 20 31 | pop 7.I dup 4 1|
00000f20 20 72 6f 6c 6c 20 53 57 20 41 43 20 70 6f 70 20 | roll SW AC pop |
00000f30 65 78 63 68 20 34 20 2d 31 20 72 6f 6c 6c 20 61 |exch 4 -1 roll a|
00000f40 64 64 20 33 20 31 20 72 6f 6c 6c 20 61 64 64 20 |dd 3 1 roll add |
00000f50 36 20 2d 31 20 72 6f 6c 6c 0a 61 77 69 64 74 68 |6 -1 roll.awidth|
00000f60 73 68 6f 77 7d 42 44 2f 6b 6c 6f 61 64 7b 7b 63 |show}BD/kload{{c|
00000f70 65 69 6c 69 6e 67 7d 73 74 6f 70 70 65 64 7b 61 |eiling}stopped{a|
00000f80 6c 6f 61 64 20 70 6f 70 7d 7b 30 7d 69 66 65 6c |load pop}{0}ifel|
00000f90 73 65 7d 42 44 2f 6b 70 72 6f 63 7b 35 20 49 20 |se}BD/kproc{5 I |
00000fa0 35 20 49 20 52 4d 0a 32 20 49 7b 65 78 63 68 20 |5 I RM.2 I{exch |
00000fb0 32 35 36 20 6d 75 6c 20 20 61 64 64 20 32 20 49 |256 mul add 2 I|
00000fc0 20 65 78 63 68 20 32 20 63 6f 70 79 20 6b 6e 6f | exch 2 copy kno|
00000fd0 77 6e 7b 57 4d 32 20 53 43 4d 20 20 67 65 74 20 |wn{WM2 SCM get |
00000fe0 6b 6c 6f 61 64 20 52 4d 20 20 57 4d 31 0a 53 43 |kload RM WM1.SC|
00000ff0 4d 7d 7b 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 |M}{pop pop}ifels|
00001000 65 7d 7b 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 |e}{pop pop}ifels|
00001010 65 7d 42 44 2f 4b 54 78 7b 57 4d 31 20 47 43 4d |e}BD/KTx{WM1 GCM|
00001020 20 47 43 46 2f 46 6f 6e 74 4d 61 74 72 69 78 20 | GCF/FontMatrix |
00001030 67 65 74 20 65 78 63 68 0a 57 4d 32 20 43 43 4d |get exch.WM2 CCM|
00001040 20 70 6f 70 20 4d 20 32 20 49 20 53 57 20 41 43 | pop M 2 I SW AC|
00001050 20 47 43 46 2f 4b 65 72 6e 44 61 74 61 20 6b 6e | GCF/KernData kn|
00001060 6f 77 6e 7b 47 43 46 2f 4b 65 72 6e 44 61 74 61 |own{GCF/KernData|
00001070 20 67 65 74 20 74 72 75 65 7d 7b 6e 75 6c 6c 0a | get true}{null.|
00001080 66 61 6c 73 65 7d 69 66 65 6c 73 65 7b 6b 70 72 |false}ifelse{kpr|
00001090 6f 63 7d 34 20 2d 31 20 72 6f 6c 6c 20 20 20 20 |oc}4 -1 roll |
000010a0 6b 73 68 6f 77 20 70 6f 70 20 70 6f 70 20 70 6f |kshow pop pop po|
000010b0 70 20 70 6f 70 7d 42 44 2f 55 4b 54 78 7b 36 20 |p pop}BD/UKTx{6 |
000010c0 32 0a 72 6f 6c 6c 2f 75 6c 74 68 69 63 6b 20 45 |2.roll/ulthick E|
000010d0 44 2f 75 6c 70 6f 73 20 45 44 20 32 20 63 6f 70 |D/ulpos ED 2 cop|
000010e0 79 20 4d 20 20 20 34 20 32 20 72 6f 6c 6c 20 55 |y M 4 2 roll U|
000010f0 6c 20 20 70 6f 70 20 70 6f 70 20 4b 54 78 7d 42 |l pop pop KTx}B|
00001100 44 2f 6a 6b 70 72 6f 63 7b 35 20 49 20 35 0a 49 |D/jkproc{5 I 5.I|
00001110 20 52 4d 20 31 20 49 20 37 20 49 20 65 71 7b 38 | RM 1 I 7 I eq{8|
00001120 20 49 20 38 20 49 20 52 4d 7d 69 66 20 32 20 49 | I 8 I RM}if 2 I|
00001130 7b 65 78 63 68 20 32 35 36 20 6d 75 6c 20 20 61 |{exch 256 mul a|
00001140 64 64 20 32 20 49 20 65 78 63 68 20 32 20 63 6f |dd 2 I exch 2 co|
00001150 70 79 0a 6b 6e 6f 77 6e 7b 57 4d 32 20 53 43 4d |py.known{WM2 SCM|
00001160 20 20 67 65 74 20 6b 6c 6f 61 64 20 52 4d 20 20 | get kload RM |
00001170 57 4d 31 20 53 43 4d 7d 7b 70 6f 70 20 70 6f 70 |WM1 SCM}{pop pop|
00001180 7d 69 66 65 6c 73 65 7d 7b 70 6f 70 0a 70 6f 70 |}ifelse}{pop.pop|
00001190 7d 69 66 65 6c 73 65 7d 42 44 2f 4a 4b 54 78 7b |}ifelse}BD/JKTx{|
000011a0 57 4d 31 20 47 43 4d 20 47 43 46 2f 46 6f 6e 74 |WM1 GCM GCF/Font|
000011b0 4d 61 74 72 69 78 20 67 65 74 20 65 78 63 68 20 |Matrix get exch |
000011c0 57 4d 32 20 43 43 4d 20 70 6f 70 20 4d 20 38 20 |WM2 CCM pop M 8 |
000011d0 2d 31 20 72 6f 6c 6c 0a 64 75 70 20 34 20 31 20 |-1 roll.dup 4 1 |
000011e0 72 6f 6c 6c 20 53 57 20 41 43 20 35 20 31 20 72 |roll SW AC 5 1 r|
000011f0 6f 6c 6c 20 65 78 63 68 20 34 20 2d 31 20 72 6f |oll exch 4 -1 ro|
00001200 6c 6c 20 61 64 64 20 33 20 31 20 72 6f 6c 6c 20 |ll add 3 1 roll |
00001210 61 64 64 20 47 43 46 2f 4b 65 72 6e 44 61 74 61 |add GCF/KernData|
00001220 0a 6b 6e 6f 77 6e 7b 47 43 46 2f 4b 65 72 6e 44 |.known{GCF/KernD|
00001230 61 74 61 20 67 65 74 20 74 72 75 65 7d 7b 6e 75 |ata get true}{nu|
00001240 6c 6c 20 66 61 6c 73 65 7d 69 66 65 6c 73 65 7b |ll false}ifelse{|
00001250 6a 6b 70 72 6f 63 7d 36 20 2d 31 20 72 6f 6c 6c |jkproc}6 -1 roll|
00001260 20 20 6b 73 68 6f 77 0a 37 7b 70 6f 70 7d 72 65 | kshow.7{pop}re|
00001270 70 65 61 74 7d 42 44 2f 55 4a 4b 54 78 7b 32 20 |peat}BD/UJKTx{2 |
00001280 63 6f 70 79 20 4d 20 36 20 32 20 72 6f 6c 6c 2f |copy M 6 2 roll/|
00001290 75 6c 74 68 69 63 6b 20 45 44 2f 75 6c 70 6f 73 |ulthick ED/ulpos|
000012a0 20 45 44 20 55 6c 20 70 6f 70 20 70 6f 70 0a 4a | ED Ul pop pop.J|
000012b0 4b 54 78 7d 42 44 2f 63 64 65 66 73 20 32 32 34 |KTx}BD/cdefs 224|
000012c0 20 38 20 6d 75 6c 20 73 74 72 69 6e 67 20 64 65 | 8 mul string de|
000012d0 66 20 63 64 65 66 73 20 31 32 37 20 33 32 20 73 |f cdefs 127 32 s|
000012e0 75 62 20 38 20 6d 75 6c 20 46 46 73 20 30 20 38 |ub 8 mul FFs 0 8|
000012f0 0a 67 65 74 69 6e 74 65 72 76 61 6c 20 70 75 74 |.getinterval put|
00001300 69 6e 74 65 72 76 61 6c 2f 44 43 7b 33 32 20 73 |interval/DC{32 s|
00001310 75 62 20 38 20 6d 75 6c 20 63 64 65 66 73 20 65 |ub 8 mul cdefs e|
00001320 78 63 68 20 38 20 67 65 74 69 6e 74 65 72 76 61 |xch 8 getinterva|
00001330 6c 20 63 75 72 72 65 6e 74 66 69 6c 65 0a 65 78 |l currentfile.ex|
00001340 63 68 20 72 65 61 64 68 65 78 73 74 72 69 6e 67 |ch readhexstring|
00001350 20 70 6f 70 20 70 6f 70 7d 42 44 2f 41 72 63 46 | pop pop}BD/ArcF|
00001360 6f 6e 74 20 64 75 70 20 36 20 64 69 63 74 20 64 |ont dup 6 dict d|
00001370 75 70 20 62 65 67 69 6e 2f 46 6f 6e 74 4d 61 74 |up begin/FontMat|
00001380 72 69 78 5b 31 2e 20 30 2e 0a 30 2e 20 31 2e 20 |rix[1. 0..0. 1. |
00001390 30 2e 20 2d 31 2e 5d 64 65 66 2f 46 6f 6e 74 54 |0. -1.]def/FontT|
000013a0 79 70 65 20 33 20 64 65 66 2f 46 6f 6e 74 42 42 |ype 3 def/FontBB|
000013b0 6f 78 5b 30 2e 20 30 2e 20 31 2e 20 31 2e 5d 64 |ox[0. 0. 1. 1.]d|
000013c0 65 66 2f 45 6e 63 6f 64 69 6e 67 20 32 35 36 20 |ef/Encoding 256 |
000013d0 61 72 72 61 79 0a 64 65 66 20 30 20 31 20 32 35 |array.def 0 1 25|
000013e0 35 7b 45 6e 63 6f 64 69 6e 67 20 65 78 63 68 2f |5{Encoding exch/|
000013f0 2e 6e 6f 74 64 65 66 20 70 75 74 7d 66 6f 72 2f |.notdef put}for/|
00001400 42 75 69 6c 64 43 68 61 72 7b 78 67 61 70 20 79 |BuildChar{xgap y|
00001410 67 61 70 20 73 65 74 63 68 61 72 77 69 64 74 68 |gap setcharwidth|
00001420 20 38 0a 38 20 74 72 75 65 20 38 2e 20 30 2e 20 | 8.8 true 8. 0. |
00001430 30 2e 20 38 2e 20 30 2e 20 30 2e 20 57 4d 32 20 |0. 8. 0. 0. WM2 |
00001440 61 73 74 6f 72 65 20 35 20 2d 31 20 72 6f 6c 6c |astore 5 -1 roll|
00001450 20 33 32 20 73 75 62 20 38 20 6d 75 6c 20 63 64 | 32 sub 8 mul cd|
00001460 65 66 73 20 65 78 63 68 20 38 0a 67 65 74 69 6e |efs exch 8.getin|
00001470 74 65 72 76 61 6c 20 69 6d 61 67 65 6d 61 73 6b |terval imagemask|
00001480 20 70 6f 70 7d 42 44 20 65 6e 64 20 64 65 66 69 | pop}BD end defi|
00001490 6e 65 66 6f 6e 74 20 64 65 66 2f 56 7b 47 53 20 |nefont def/V{GS |
000014a0 32 20 49 20 64 69 76 2f 79 67 61 70 20 45 44 20 |2 I div/ygap ED |
000014b0 32 20 49 0a 64 69 76 2f 78 67 61 70 20 45 44 20 |2 I.div/xgap ED |
000014c0 30 2e 20 30 2e 20 33 20 2d 31 20 72 6f 6c 6c 20 |0. 0. 3 -1 roll |
000014d0 30 2e 20 30 2e 20 57 4d 31 20 61 73 74 6f 72 65 |0. 0. WM1 astore|
000014e0 20 41 72 63 46 6f 6e 74 20 65 78 63 68 20 6d 61 | ArcFont exch ma|
000014f0 6b 65 66 6f 6e 74 20 73 65 74 66 6f 6e 74 20 4d |kefont setfont M|
00001500 0a 73 68 6f 77 20 47 52 7d 42 44 2f 50 41 52 7b |.show GR}BD/PAR{|
00001510 36 20 2d 32 20 72 6f 6c 6c 20 70 6f 70 20 70 6f |6 -2 roll pop po|
00001520 70 20 31 30 20 64 69 63 74 20 62 65 67 69 6e 20 |p 10 dict begin |
00001530 64 75 70 20 30 20 6c 74 2f 68 66 6c 69 70 20 45 |dup 0 lt/hflip E|
00001540 44 20 61 62 73 2f 68 20 45 44 0a 64 75 70 20 30 |D abs/h ED.dup 0|
00001550 20 6c 74 2f 77 66 6c 69 70 20 45 44 20 61 62 73 | lt/wflip ED abs|
00001560 2f 77 20 45 44 20 32 35 36 2e 20 64 69 76 2f 75 |/w ED 256. div/u|
00001570 6c 79 20 45 44 20 32 35 36 2e 20 64 69 76 2f 75 |ly ED 256. div/u|
00001580 6c 78 20 45 44 20 32 35 36 2e 20 64 69 76 2f 6c |lx ED 256. div/l|
00001590 72 79 20 45 44 0a 32 35 36 2e 20 64 69 76 2f 6c |ry ED.256. div/l|
000015a0 72 78 20 45 44 20 32 35 36 2e 20 64 69 76 2f 6c |rx ED 256. div/l|
000015b0 6c 79 20 45 44 20 32 35 36 2e 20 64 69 76 2f 6c |ly ED 256. div/l|
000015c0 6c 78 20 45 44 5b 6c 72 78 20 6c 6c 78 20 73 75 |lx ED[lrx llx su|
000015d0 62 20 77 20 64 69 76 20 6c 72 79 20 6c 6c 79 0a |b w div lry lly.|
000015e0 73 75 62 20 77 20 64 69 76 20 75 6c 78 20 6c 6c |sub w div ulx ll|
000015f0 78 20 73 75 62 20 68 20 64 69 76 20 75 6c 79 20 |x sub h div uly |
00001600 6c 6c 79 20 73 75 62 20 68 20 64 69 76 20 6c 6c |lly sub h div ll|
00001610 78 20 6c 6c 79 5d 63 6f 6e 63 61 74 20 68 66 6c |x lly]concat hfl|
00001620 69 70 7b 30 20 68 20 54 20 31 0a 2d 31 20 73 63 |ip{0 h T 1.-1 sc|
00001630 61 6c 65 7d 69 66 20 77 66 6c 69 70 7b 77 20 30 |ale}if wflip{w 0|
00001640 20 54 20 2d 31 20 31 20 73 63 61 6c 65 7d 69 66 | T -1 1 scale}if|
00001650 20 65 6e 64 7d 42 44 2f 56 41 4c 41 43 43 20 31 | end}BD/VALACC 1|
00001660 34 20 64 69 63 74 20 64 75 70 20 62 65 67 69 6e |4 dict dup begin|
00001670 2f 61 63 75 74 65 0a 31 20 64 65 66 2f 67 72 61 |/acute.1 def/gra|
00001680 76 65 20 31 20 64 65 66 2f 63 69 72 63 75 6d 66 |ve 1 def/circumf|
00001690 6c 65 78 20 31 20 64 65 66 2f 64 69 65 72 65 73 |lex 1 def/dieres|
000016a0 69 73 20 31 20 64 65 66 2f 72 69 6e 67 20 31 20 |is 1 def/ring 1 |
000016b0 64 65 66 2f 74 69 6c 64 65 20 31 0a 64 65 66 2f |def/tilde 1.def/|
000016c0 62 72 65 76 65 20 31 20 64 65 66 2f 63 61 72 6f |breve 1 def/caro|
000016d0 6e 20 31 20 64 65 66 2f 63 65 64 69 6c 6c 61 20 |n 1 def/cedilla |
000016e0 31 20 64 65 66 2f 64 6f 74 61 63 63 65 6e 74 20 |1 def/dotaccent |
000016f0 31 20 64 65 66 2f 68 75 6e 67 61 72 75 6d 6c 61 |1 def/hungarumla|
00001700 75 74 20 31 0a 64 65 66 2f 73 6c 61 73 68 20 31 |ut 1.def/slash 1|
00001710 20 64 65 66 2f 6d 61 63 72 6f 6e 20 31 20 64 65 | def/macron 1 de|
00001720 66 2f 6f 67 6f 6e 65 6b 20 31 20 64 65 66 20 65 |f/ogonek 1 def e|
00001730 6e 64 20 64 65 66 2f 43 4b 4e 7b 32 20 63 6f 70 |nd def/CKN{2 cop|
00001740 79 20 6b 6e 6f 77 6e 7b 67 65 74 0a 74 79 70 65 |y known{get.type|
00001750 2f 61 72 72 61 79 74 79 70 65 20 6e 65 7d 7b 70 |/arraytype ne}{p|
00001760 6f 70 20 70 6f 70 20 66 61 6c 73 65 7d 69 66 65 |op pop false}ife|
00001770 6c 73 65 7d 64 65 66 2f 4f 4b 41 7b 32 20 63 6f |lse}def/OKA{2 co|
00001780 70 79 20 6b 6e 6f 77 6e 7b 70 6f 70 20 70 6f 70 |py known{pop pop|
00001790 0a 66 61 6c 73 65 7d 7b 64 75 70 20 6c 65 6e 67 |.false}{dup leng|
000017a0 74 68 20 64 75 70 20 31 20 67 74 7b 73 74 72 69 |th dup 1 gt{stri|
000017b0 6e 67 20 63 76 73 20 64 75 70 20 30 20 31 20 67 |ng cvs dup 0 1 g|
000017c0 65 74 69 6e 74 65 72 76 61 6c 20 63 76 6e 20 65 |etinterval cvn e|
000017d0 78 63 68 20 31 20 31 20 49 0a 6c 65 6e 67 74 68 |xch 1 1 I.length|
000017e0 20 31 20 73 75 62 20 67 65 74 69 6e 74 65 72 76 | 1 sub getinterv|
000017f0 61 6c 20 63 76 6e 20 33 20 2d 31 20 72 6f 6c 6c |al cvn 3 -1 roll|
00001800 20 64 75 70 20 32 20 49 20 43 4b 4e 20 65 78 63 | dup 2 I CKN exc|
00001810 68 20 33 20 49 20 43 4b 4e 20 61 6e 64 20 56 41 |h 3 I CKN and VA|
00001820 4c 41 43 43 20 32 0a 49 20 6b 6e 6f 77 6e 20 61 |LACC 2.I known a|
00001830 6e 64 7b 74 72 75 65 7d 7b 70 6f 70 20 70 6f 70 |nd{true}{pop pop|
00001840 20 66 61 6c 73 65 7d 69 66 65 6c 73 65 7d 7b 70 | false}ifelse}{p|
00001850 6f 70 20 70 6f 70 20 70 6f 70 0a 66 61 6c 73 65 |op pop pop.false|
00001860 7d 69 66 65 6c 73 65 7d 69 66 65 6c 73 65 7d 64 |}ifelse}ifelse}d|
00001870 65 66 2f 52 46 7b 66 69 6e 64 66 6f 6e 74 20 66 |ef/RF{findfont f|
00001880 61 6c 73 65 20 33 20 31 20 72 6f 6c 6c 20 5f 52 |alse 3 1 roll _R|
00001890 46 45 7d 64 65 66 2f 5f 52 46 45 7b 64 75 70 20 |FE}def/_RFE{dup |
000018a0 6c 65 6e 67 74 68 0a 64 69 63 74 20 62 65 67 69 |length.dict begi|
000018b0 6e 7b 31 20 49 2f 46 49 44 20 6e 65 7b 64 65 66 |n{1 I/FID ne{def|
000018c0 7d 7b 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 65 |}{pop pop}ifelse|
000018d0 7d 66 6f 72 61 6c 6c 20 64 75 70 20 74 79 70 65 |}forall dup type|
000018e0 2f 61 72 72 61 79 74 79 70 65 0a 65 71 7b 2f 46 |/arraytype.eq{/F|
000018f0 6f 6e 74 4d 61 74 72 69 78 20 46 6f 6e 74 4d 61 |ontMatrix FontMa|
00001900 74 72 69 78 20 33 20 2d 31 20 72 6f 6c 6c 20 36 |trix 3 -1 roll 6|
00001910 20 61 72 72 61 79 20 43 43 4d 20 64 65 66 7d 7b | array CCM def}{|
00001920 70 6f 70 7d 69 66 65 6c 73 65 20 64 75 70 0a 74 |pop}ifelse dup.t|
00001930 79 70 65 2f 61 72 72 61 79 74 79 70 65 20 65 71 |ype/arraytype eq|
00001940 20 20 63 75 72 72 65 6e 74 64 69 63 74 2f 45 6e | currentdict/En|
00001950 63 6f 64 69 6e 67 20 6b 6e 6f 77 6e 20 61 6e 64 |coding known and|
00001960 7b 2f 45 6e 63 6f 64 69 6e 67 20 65 78 63 68 0a |{/Encoding exch.|
00001970 64 65 66 7d 7b 70 6f 70 7d 69 66 65 6c 73 65 20 |def}{pop}ifelse |
00001980 63 75 72 72 65 6e 74 64 69 63 74 20 65 6e 64 20 |currentdict end |
00001990 64 65 66 69 6e 65 66 6f 6e 74 20 70 6f 70 7d 64 |definefont pop}d|
000019a0 65 66 2f 52 46 45 7b 66 69 6e 64 66 6f 6e 74 0a |ef/RFE{findfont.|
000019b0 64 75 70 2f 43 68 61 72 53 74 72 69 6e 67 73 20 |dup/CharStrings |
000019c0 6b 6e 6f 77 6e 7b 52 46 45 54 31 7d 7b 5f 52 46 |known{RFET1}{_RF|
000019d0 45 7d 69 66 65 6c 73 65 7d 64 65 66 2f 52 46 45 |E}ifelse}def/RFE|
000019e0 54 31 7b 64 75 70 20 6c 65 6e 67 74 68 20 34 20 |T1{dup length 4 |
000019f0 61 64 64 20 64 69 63 74 0a 62 65 67 69 6e 2f 43 |add dict.begin/C|
00001a00 42 4f 58 7b 6e 65 77 70 61 74 68 20 30 20 30 20 |BOX{newpath 0 0 |
00001a10 4d 20 47 53 20 69 66 6d 20 53 43 4d 20 66 61 6c |M GS ifm SCM fal|
00001a20 73 65 20 63 68 61 72 70 61 74 68 20 6d 61 74 72 |se charpath matr|
00001a30 69 78 20 53 43 4d 20 70 61 74 68 62 62 6f 78 0a |ix SCM pathbbox.|
00001a40 63 75 72 72 65 6e 74 70 6f 69 6e 74 20 47 52 7d |currentpoint GR}|
00001a50 42 44 2f 43 48 45 49 7b 43 42 4f 58 20 70 6f 70 |BD/CHEI{CBOX pop|
00001a60 20 70 6f 70 20 34 20 31 20 72 6f 6c 6c 20 70 6f | pop 4 1 roll po|
00001a70 70 20 70 6f 70 20 70 6f 70 7d 42 44 2f 53 52 43 |p pop pop}BD/SRC|
00001a80 48 7b 2d 31 0a 65 78 63 68 2f 45 6e 63 6f 64 69 |H{-1.exch/Encodi|
00001a90 6e 67 20 6c 6f 61 64 20 20 20 30 20 31 20 32 20 |ng load 0 1 2 |
00001aa0 49 20 6c 65 6e 67 74 68 20 31 20 73 75 62 7b 32 |I length 1 sub{2|
00001ab0 20 63 6f 70 79 20 67 65 74 20 33 20 49 20 65 71 | copy get 3 I eq|
00001ac0 7b 34 20 2d 31 20 72 6f 6c 6c 20 70 6f 70 20 33 |{4 -1 roll pop 3|
00001ad0 0a 31 20 72 6f 6c 6c 20 65 78 69 74 7d 7b 70 6f |.1 roll exit}{po|
00001ae0 70 7d 69 66 65 6c 73 65 7d 66 6f 72 20 70 6f 70 |p}ifelse}for pop|
00001af0 20 70 6f 70 20 64 75 70 20 2d 31 20 6e 65 7b 31 | pop dup -1 ne{1|
00001b00 20 73 74 72 69 6e 67 20 64 75 70 20 30 20 34 20 | string dup 0 4 |
00001b10 2d 31 20 72 6f 6c 6c 20 70 75 74 0a 74 72 75 65 |-1 roll put.true|
00001b20 7d 7b 70 6f 70 20 66 61 6c 73 65 20 66 61 6c 73 |}{pop false fals|
00001b30 65 7d 69 66 65 6c 73 65 7d 42 44 2f 4d 4b 41 43 |e}ifelse}BD/MKAC|
00001b40 43 7b 53 52 43 48 20 33 20 2d 31 20 72 6f 6c 6c |C{SRCH 3 -1 roll|
00001b50 20 53 52 43 48 20 33 20 2d 31 20 72 6f 6c 6c 20 | SRCH 3 -1 roll |
00001b60 61 6e 64 7b 33 0a 64 69 63 74 20 62 65 67 69 6e |and{3.dict begin|
00001b70 2f 6c 65 74 74 65 72 20 65 78 63 68 20 64 65 66 |/letter exch def|
00001b80 2f 61 63 63 65 6e 74 20 65 78 63 68 20 64 65 66 |/accent exch def|
00001b90 2f 69 66 6d 2f 46 6f 6e 74 4d 61 74 72 69 78 20 |/ifm/FontMatrix |
00001ba0 6c 6f 61 64 20 6d 61 74 72 69 78 0a 69 6e 76 65 |load matrix.inve|
00001bb0 72 74 6d 61 74 72 69 78 20 64 65 66 20 47 53 20 |rtmatrix def GS |
00001bc0 6d 61 74 72 69 78 20 53 43 4d 20 6c 65 74 74 65 |matrix SCM lette|
00001bd0 72 20 43 42 4f 58 20 36 20 32 20 72 6f 6c 6c 20 |r CBOX 6 2 roll |
00001be0 61 63 63 65 6e 74 20 43 42 4f 58 20 70 6f 70 20 |accent CBOX pop |
00001bf0 70 6f 70 20 36 20 2d 31 0a 72 6f 6c 6c 20 37 20 |pop 6 -1.roll 7 |
00001c00 49 20 73 75 62 20 33 20 2d 31 20 72 6f 6c 6c 20 |I sub 3 -1 roll |
00001c10 34 20 49 20 73 75 62 20 73 75 62 20 32 20 64 69 |4 I sub sub 2 di|
00001c20 76 20 37 20 2d 31 20 72 6f 6c 6c 20 35 20 2d 31 |v 7 -1 roll 5 -1|
00001c30 20 72 6f 6c 6c 20 73 75 62 20 61 64 64 20 37 20 | roll sub add 7 |
00001c40 31 0a 72 6f 6c 6c 20 30 20 67 74 7b 28 58 29 43 |1.roll 0 gt{(X)C|
00001c50 48 45 49 28 78 29 43 48 45 49 20 32 20 63 6f 70 |HEI(x)CHEI 2 cop|
00001c60 79 20 61 64 64 20 32 20 64 69 76 20 35 20 2d 31 |y add 2 div 5 -1|
00001c70 20 72 6f 6c 6c 20 6c 65 7b 73 75 62 7d 7b 70 6f | roll le{sub}{po|
00001c80 70 20 70 6f 70 20 30 7d 69 66 65 6c 73 65 0a 35 |p pop 0}ifelse.5|
00001c90 20 31 20 72 6f 6c 6c 20 70 6f 70 20 70 6f 70 7d | 1 roll pop pop}|
00001ca0 7b 70 6f 70 20 70 6f 70 20 70 6f 70 20 30 20 33 |{pop pop pop 0 3|
00001cb0 20 31 20 72 6f 6c 6c 7d 69 66 65 6c 73 65 20 47 | 1 roll}ifelse G|
00001cc0 52 20 73 65 74 63 68 61 72 77 69 64 74 68 20 30 |R setcharwidth 0|
00001cd0 20 30 20 4d 20 47 53 20 69 66 6d 0a 63 6f 6e 63 | 0 M GS ifm.conc|
00001ce0 61 74 20 6c 65 74 74 65 72 20 73 68 6f 77 20 47 |at letter show G|
00001cf0 52 20 4d 20 20 20 20 47 53 20 69 66 6d 20 63 6f |R M GS ifm co|
00001d00 6e 63 61 74 20 61 63 63 65 6e 74 20 73 68 6f 77 |ncat accent show|
00001d10 20 20 47 52 20 65 6e 64 7d 7b 70 6f 70 20 70 6f | GR end}{pop po|
00001d20 70 7d 69 66 65 6c 73 65 0a 70 6f 70 7d 42 44 20 |p}ifelse.pop}BD |
00001d30 64 75 70 2f 43 68 61 72 53 74 72 69 6e 67 73 20 |dup/CharStrings |
00001d40 67 65 74 20 30 20 34 20 49 7b 32 20 49 20 65 78 |get 0 4 I{2 I ex|
00001d50 63 68 20 4f 4b 41 7b 70 6f 70 20 70 6f 70 20 31 |ch OKA{pop pop 1|
00001d60 20 61 64 64 7d 69 66 7d 66 6f 72 61 6c 6c 20 33 | add}if}forall 3|
00001d70 20 2d 31 0a 72 6f 6c 6c 7b 31 20 49 2f 46 49 44 | -1.roll{1 I/FID|
00001d80 20 6e 65 20 32 20 49 2f 43 68 61 72 53 74 72 69 | ne 2 I/CharStri|
00001d90 6e 67 73 20 6e 65 20 61 6e 64 7b 64 65 66 7d 7b |ngs ne and{def}{|
00001da0 70 6f 70 20 70 6f 70 7d 69 66 65 6c 73 65 7d 66 |pop pop}ifelse}f|
00001db0 6f 72 61 6c 6c 20 31 20 49 20 6c 65 6e 67 74 68 |orall 1 I length|
00001dc0 0a 61 64 64 20 64 69 63 74 20 65 78 63 68 7b 32 |.add dict exch{2|
00001dd0 20 49 20 33 20 31 20 72 6f 6c 6c 20 70 75 74 7d | I 3 1 roll put}|
00001de0 66 6f 72 61 6c 6c 20 32 20 49 7b 32 20 63 6f 70 |forall 2 I{2 cop|
00001df0 79 20 4f 4b 41 7b 5b 33 20 31 20 72 6f 6c 6c 2f |y OKA{[3 1 roll/|
00001e00 4d 4b 41 43 43 20 63 76 78 5d 63 76 78 0a 32 20 |MKACC cvx]cvx.2 |
00001e10 49 20 33 20 31 20 72 6f 6c 6c 20 70 75 74 7d 7b |I 3 1 roll put}{|
00001e20 70 6f 70 7d 69 66 65 6c 73 65 7d 66 6f 72 61 6c |pop}ifelse}foral|
00001e30 6c 2f 43 68 61 72 53 74 72 69 6e 67 73 20 65 78 |l/CharStrings ex|
00001e40 63 68 20 64 65 66 20 64 75 70 20 74 79 70 65 2f |ch def dup type/|
00001e50 61 72 72 61 79 74 79 70 65 0a 65 71 7b 2f 46 6f |arraytype.eq{/Fo|
00001e60 6e 74 4d 61 74 72 69 78 20 46 6f 6e 74 4d 61 74 |ntMatrix FontMat|
00001e70 72 69 78 20 33 20 2d 31 20 72 6f 6c 6c 20 36 20 |rix 3 -1 roll 6 |
00001e80 61 72 72 61 79 20 43 43 4d 20 64 65 66 7d 7b 70 |array CCM def}{p|
00001e90 6f 70 7d 69 66 65 6c 73 65 2f 45 6e 63 6f 64 69 |op}ifelse/Encodi|
00001ea0 6e 67 0a 65 78 63 68 20 64 65 66 20 63 75 72 72 |ng.exch def curr|
00001eb0 65 6e 74 64 69 63 74 20 65 6e 64 20 64 65 66 69 |entdict end defi|
00001ec0 6e 65 66 6f 6e 74 20 70 6f 70 7d 42 44 20 65 6e |nefont pop}BD en|
00001ed0 64 20 0a |d .|
00001ed3 
.