% > <PDriver$Dir>.<PDriver$PSprologue2>
% Main prologue file for the PostScript printer driver module.
% Version 1.02, first used with version 1.02 of the module.
% (compressed version)
/PDdict 200 dict def PDdict begin/LW/setlinewidth load def/St/stroke
load def/T/translate load def/S/save load def/R/restore load
def/GS/gsave load def/GR/grestore load def/CP/clippath load
def/Cl/closepath load def/M/moveto load def/L/lineto load def/B/curveto
load def/PS{72 180 div dup scale newpath[]0 setdash}bind
def/Copies{/#copies exch def}bind def/MP{400 div}bind def/Fb{16#10000
div}bind def/WM1 matrix def/WM2 matrix def/UM{Fb 4 1 roll Fb 4 1 roll Fb
4 1 roll Fb 4 1 roll 0 0 WM1 astore concat}bind def/Bx{4 copy 5 1 roll 4
2 roll 5 -1 roll M L L L Cl}bind def/Cp{Bx clip newpath}bind
def/MC{initclip 0 0 Cp}bind def/G{255 div setgray}bind def/C{255 div 3 1
roll 255 div 3 1 roll 255 div 3 1 roll setrgbcolor}bind def/Eps 0.1 MP
def/VSt{2 setlinecap 0 setlinejoin 2.000001 setmiterlimit 2 LW 0 Eps
rlineto St}bind def/VFl{Cl GS fill GR VSt}bind def/Li{M L VSt}bind
def/Pt{M VSt}bind def/Tr{M L L VFl}bind def/Rc{Bx VFl}bind def/Pr{6 copy
M L L 5 -1 roll 4 -1 roll sub add 4 1 roll exch sub add exch L VFl}bind
def/Ln{dup mul exch dup mul add sqrt}bind def/Cir{0 360 arc}bind
def/VC{Ln Cir}bind def/CS{VC VSt}bind def/CF{VC VFl}bind def/VA{2 copy
Ln 5 1 roll exch atan 3 1 roll exch atan arc}bind def/Ac{VA VSt}bind
def/Cd{VA VFl}bind def/Sc{5 index 5 index M VA VFl}bind def/VE{0 5 1
roll WM1 astore WM2 currentmatrix exch concat 0 0 1 Cir setmatrix}bind
def/ES{VE VSt}bind def/EF{VE VFl}bind def/Exch{exch}bind def/Max{2 copy
lt/Exch load if pop}bind def/ExchPop{exch pop}bind def/Div{div}bind
def/DF{WM1 currentmatrix aload pop pop pop 4 copy 4 -1 roll mul 3 1 roll
mul sub abs 5 1 roll abs exch abs add 3 1 roll abs exch abs add Max dup
0 eq/ExchPop load/Div load ifelse 2 sqrt div mul 1 Max setflat}bind
def/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}bind
def/CJ{Fb setmiterlimit setlinecap setlinejoin}bind def/WS 16#1000
string def/FFs 16#800 string def FFs 0<FFFFFFFFFFFFFFFF>putinterval FFs
16#8 FFs 0 16#8 getinterval putinterval FFs 16#10 FFs 0 16#10
getinterval putinterval FFs 16#20 FFs 0 16#20 getinterval putinterval
FFs 16#40 FFs 0 16#40 getinterval putinterval FFs 16#80 FFs 0 16#80
getinterval putinterval FFs 16#100 FFs 0 16#100 getinterval putinterval
FFs 16#200 FFs 0 16#200 getinterval putinterval FFs 16#400 FFs 0 16#400
getinterval putinterval/SMat matrix def/SS{div 3 1 roll div exch
scale}bind def/SM{1 exch div 0 0 1 0 0 SMat astore pop}bind
def/RetWS2{WS2}bind def/S1{currentfile WS 0 4 index 7 add 8 idiv 4 index
mul getinterval readhexstring pop/WS2 exch def true SMat/RetWS2 load
imagemask}bind def/SF{true SMat FFs 0 5 index 7 add 8 idiv 5 index mul
getinterval imagemask}bind def/SN{currentfile WS 0 4 index 4 index mul
getinterval readhexstring pop/WS2 exch def 8 SMat/RetWS2 load image}bind
def/TS{1 exch div exch 1 exch div exch scale}bind def/Fn{16 div 1000 mul
exch 16 div 1000 mul exch dup/fheight exch def 0 0 3 -1 roll 0 0 WM1
astore fonts 3 -1 roll get exch makefont setfont}bind def/Ul{GS 2 copy
Ln ulpos ulthick 2 div sub 256 div fheight mul exch div dup 2 index neg
mul exch 3 index mul rmoveto 2 copy rlineto ulthick 256 div fheight mul
LW 0 setlinecap St GR}bind def/AC{3 -1 roll exch sub 3 index length div
4 1 roll sub 1 index length div 3 1 roll}bind def/Tx{M 2 index
stringwidth AC ashow}bind def/JTx{/spaces exch def/Ydef exch def/Xdef
exch def M 2 index stringwidth Ydef add exch Xdef add exch AC Xdef
spaces div Ydef spaces div 32 6 3 roll awidthshow}bind def/UTx{/ulthick
exch def/ulpos exch def M Ul 2 index stringwidth AC ashow}bind
def/UJTx{/ulthick exch def/ulpos exch def/spaces exch def/Ydef exch
def/Xdef exch def M Ul 2 index stringwidth Ydef add exch Xdef add exch
AC Xdef spaces div Ydef spaces div 32 6 3 roll awidthshow}bind def/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}bind def/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}bind def end definefont fonts 3 1
roll put/V{GS 2 index div/ygap exch def 2 index div/xgap exch def 0 0 3
-1 roll 0 0 WM1 astore fonts/ArcFont get exch makefont setfont moveto
show GR}bind def end
