wolffd@0: /BOX {
wolffd@0:     /boxy1 exch def /boxx1 exch def /boxy0 exch def /boxx0 exch def
wolffd@0:     boxx0 boxy0 moveto boxx1 boxy0 lineto
wolffd@0:     boxx1 boxy1 lineto boxx0 boxy1 lineto
wolffd@0:     closepath
wolffd@0: } def
wolffd@0: /SCP { stroke initclip newpath BOX clip newpath } def
wolffd@0: /CL { stroke setrgbcolor } def
wolffd@0: /DO { stroke } def
wolffd@0: /NP { newpath } def
wolffd@0: /FI { fill } def
wolffd@0: /LI { moveto lineto } def
wolffd@0: /CT { curveto } def
wolffd@0: /AR {
wolffd@0:     /ang2 exch def /ang1 exch def
wolffd@0:     /radius exch def /y2x exch def /cy exch def /cx exch def
wolffd@0:     gsave
wolffd@0:         cx cy translate 1 y2x scale 0 0 radius ang1 ang2 arc stroke
wolffd@0:     grestore
wolffd@0: } def
wolffd@0: /ARF {
wolffd@0:     /ang2 exch def /ang1 exch def
wolffd@0:     /radius exch def /y2x exch def /cy exch def /cx exch def
wolffd@0:     gsave
wolffd@0:         cx cy translate 1 y2x scale 0 0 radius ang1 ang2 arc fill
wolffd@0:     grestore
wolffd@0: } def
wolffd@0: /TXT {
wolffd@0:     /texth exch def
wolffd@0:     /textf exch def
wolffd@0:     /textn exch def
wolffd@0:     /texts exch def
wolffd@0:     /textyj exch def /texty exch def
wolffd@0:     /textxj exch def /textx exch def
wolffd@0:     textf findfont texth scalefont dup setfont
wolffd@0:     /FontBBox get 1 get 1000 div texth mul /textbl exch def
wolffd@0:     /textth texth textn mul def /texttw 0 def
wolffd@0:     0 1 textn 1 sub {
wolffd@0:         texts exch get 0 get stringwidth pop
wolffd@0:         dup texttw gt { /texttw exch def } { pop } ifelse
wolffd@0:     } for
wolffd@0:     textyj (b) eq { /ty texty textth add textbl add def } if
wolffd@0:     textyj (d) eq { /ty texty textth add def } if
wolffd@0:     textyj (c) eq { /ty texty textth 2 div add def } if
wolffd@0:     textyj (u) eq { /ty texty def } if
wolffd@0:     /ty ty textbl sub def
wolffd@0:     textxj (l) eq { /tx textx def } if
wolffd@0:     textxj (c) eq { /tx textx texttw 2 div sub def } if
wolffd@0:     textxj (r) eq { /tx textx texttw sub def } if
wolffd@0:     0 1 textn 1 sub {
wolffd@0:         /ty ty texth sub def
wolffd@0:         texts exch get dup 0 get /ts exch def 1 get /tj exch def
wolffd@0:         tj (l) eq { tx ty moveto ts show } if
wolffd@0:         tj (n) eq {
wolffd@0:             tx texttw ts stringwidth pop sub 2 div add ty moveto ts show
wolffd@0:         } if
wolffd@0:         tj (r) eq {
wolffd@0:             tx texttw ts stringwidth pop sub add ty moveto ts show
wolffd@0:         } if
wolffd@0:     } for
wolffd@0: } def
wolffd@0: 
wolffd@0: /colorimage where {
wolffd@0:     pop
wolffd@0: } {
wolffd@0:     /bwproc {
wolffd@0:         rgbproc dup length 3 idiv string 0 3 0 5 -1 roll {
wolffd@0:             add 2 1 roll 1 sub dup 0 eq {
wolffd@0:                 pop 3 idiv 3 -1 roll dup 4 -1 roll
wolffd@0:                 dup 3 1 roll 5 -1 roll put 1 add 3 0
wolffd@0:             } {
wolffd@0:                 2 1 roll
wolffd@0:             } ifelse
wolffd@0:         } forall
wolffd@0:         pop pop pop
wolffd@0:     } def
wolffd@0:     /colorimage {
wolffd@0:         pop pop /rgbproc exch def {bwproc} image
wolffd@0:     } bind def
wolffd@0: } ifelse