{13 wh} {14 wh} {gn wh} {0 bl} {1 bl} {2 bl} {3 bl} {4 bl} {5 bl} {6 bl}	{7 bl} {8 bl} {9 bl} {10 bl} {11 bl} {12 bl} {13 bl} {14 bl} {gn bl}	{0 fl} {1 fl} {2 fl} {3 fl} {4 fl} {5 fl} {6 fl} {7 fl} {8 fl} {9 fl}	{10 fl} {11 fl} {12 fl} {13 fl} {14 fl} {gn fl}	] def/ms { % make all the strings	/sl exch def % remember length of currently existing strings	/val 255 def % that's white	/ws cfs % make "ws" a string filled with white	/im cfs % and "im" is a complete image scanline	/val 0 def % that's black	/bs cfs % make "bs" a string filled with black	/cs cfs % here's where we'll put complete command lines	} bind def400 ms % make strings that will be plenty long for most applications/ip { % image procedure; reads and executes commands to make scanlines	is % leave image string and...	0 % ...image position on stack all through this procedure	cf cs readline pop % get a string of commands	{	ic exch get exec % execute next command		add % all commands leave a length on the stack; update pos		} forall % step through all commands	pop % get rid of image position pointer	% image string left on stack, so it's returned to image primitive	} bind def/rip { % this is similar to ip above, except for 24 bit images	   % this takes an extra argument, the width of the image	  % do red	  bis ris copy pop % copy blue to red      is      0      cf cs readline pop       {       ic exch get exec               add               } forall 	  pop pop % remove is and position from stack	  ris gis copy pop % copy red to green	  dup is exch % position of green is width bytes into is	  % do green      cf cs readline pop       {       ic exch get exec               add               } forall 	  pop pop	  gis bis copy pop % copy green to blue	  dup add is exch % position of blue is 2*width bytes into is	  % do blue      cf cs readline pop       {       ic exch get exec               add               } forall       pop             } bind def/rip4 { % this is similar to ip above, except for 32 bit images	   % this takes an extra argument, the width of the image	  % do cyan	  kis cis copy pop % copy black to cyan      is      0      cf cs readline pop       {       ic exch get exec               add               } forall 	  pop pop % remove is and position from stack	  cis mis copy pop % copy cyan to magenta	  dup is exch % position of magenta is width bytes into is	  % do magenta      cf cs readline pop       {       ic exch get exec               add               } forall 	  pop pop	  mis yis copy pop % copy magenta to yellow	  dup dup add is exch % position of yellow is 2*width bytes into is	  % do yellow      cf cs readline pop       {       ic exch get exec               add               } forall 	  pop pop	  yis kis copy pop % copy yellow to black	  3 mul is exch % position of black is 3*width bytes into is	  % do black      cf cs readline pop       {       ic exch get exec               add               } forall       pop             } bind def/wh { % fill a number of bytes with "white"	/len exch def % number of bytes to fill	/pos exch def % position to put them at	ws 0 len getinterval im pos len getinterval copy pop	pos len % remember where we got to	} bind def/bl { % fill a number of bytes with "black"	/len exch def % number of bytes to fill	/pos exch def % position to put them at	bs 0 len getinterval im pos len getinterval copy pop	pos len % remember where we got to	} bind def/s1 1 string def/fl { % fill a number of bytes with a specific hex value	/len exch def % number of bytes to fill	/pos exch def % position to put them at	/val cf s1 readhexstring pop 0 get def	pos 1 pos len add 1 sub {im exch val put} for	pos len % remember where we got to	} bind def/hx { % read hex bytes directly; on entry, stack has <str> <pos> <len>	3 copy getinterval % stack has <str> <pos> <len> <substr>	cf exch readhexstring pop pop % stack back to <str> <pos> <len>	} bind def/wbytes { % width depth -> wb      find width in bytes  given 1, 2, 8 or 24 or 32      dup dup      8 gt { pop 8 idiv mul }      { 8 eq {pop} {1 eq {7 add 8 idiv} {3 add 4 idiv} ifelse} ifelse } ifelse	} bind def/BEGINBITMAPBWc { % iw, ih, width, height, theta, x y 	1 {} COMMONBITMAPc	} bind def/BEGINBITMAPGRAYc { % iw, ih, width, height, theta, x y 	8 {} COMMONBITMAPc	} bind def/BEGINBITMAP2BITc { % iw, ih, width, height, theta, x y 	2 {} COMMONBITMAPc	} bind def%% Common routine for imaging compressed images%/COMMONBITMAPc { % iw, ih, width, height, theta, x y depth proc		 % (x,y) is the lower left corner of the image	/cvtProc exch def	/depth exch def	gsave	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/lb width depth wbytes def % so "lb" has width in bytes	sl lb lt {lb ms} if % maybe make bigger strings	/bitmapsave save def % LW+ has a buggy memory leak!	cvtProc                % run the desired proc after save has occurred	/is im 0 lb getinterval def % image substring	ws 0 lb getinterval is copy pop % whiten it	/cf currentfile def % evaluate "currentfile" only once	width height depth [width 0 0 height neg 0 height] % top to bottom	{ip} image % zap!	bitmapsave restore % avoid occasional disaster on the LW+	grestore	} bind def/BEGINBITMAPBW { % iw, ih, width, height, theta, x y 	1 {} COMMONBITMAP	} bind def/BEGINBITMAPGRAY { % iw, ih, width, height, theta, x y 	8 {} COMMONBITMAP	} bind def/BEGINBITMAP2BIT { % iw, ih, width, height, theta, x y 	2 {} COMMONBITMAP	} bind def%% Common routine for uncompressed images%/COMMONBITMAP { % iw, ih, width, height, theta, x y depth proc	/cvtProc exch def	/depth exch def	gsave	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/bitmapsave save def % LW+ has a buggy memory leak!	cvtProc              % run the desired proc after save has occurred	/is width depth wbytes string def	/cf currentfile def % evaluate "currentfile" only once	width height depth [width 0 0 height neg 0 height] % top to bottom	{cf is readhexstring pop} image	bitmapsave restore % avoid occasional disaster on the LW+	grestore	} bind def%% All this hairy color setup stuff gus wrote on the mac, I just copied and% changed the variable names to be humanly readable./ngrayt 256 array def/nredt 256 array def/nbluet 256 array def/ngreent 256 array deffMLevel1 {/colorsetup {	currentcolortransfer	/gryt exch def	/blut exch def	/grnt exch def	/redt exch def	0 1 255 {		/indx exch def		/cynu 1 red indx get 255 div sub def		/magu 1 green indx get 255 div sub def		/yelu 1 blue indx get 255 div sub def		/kk cynu magu min yelu min def% The HP PaintJet XL300 ignores the gray transfer curve but still sets its% default black generation and undercolor removal functions as if it is% used. This causes black colors not to work. Bug#56844 <Gus 2/22/93>% - We go back to the old (correct?) way of doing this since this code% is now bypassed for PS Level 2 printers in favor of colorSetup2 which% uses PS Level 2 indexed color, which is much cleaner. <Gus 3/3/93>		/u kk currentundercolorremoval exec def%-		/u 0 def		nredt indx 1 0 cynu u sub max sub redt exec put		ngreent indx 1 0 magu u sub max sub grnt exec put		nbluet indx 1 0 yelu u sub max sub blut exec put		ngrayt indx 1 kk currentblackgeneration exec sub gryt exec put	} for	{255 mul cvi nredt exch get}	{255 mul cvi ngreent exch get}	{255 mul cvi nbluet exch get}	{255 mul cvi ngrayt exch get}	setcolortransfer	{pop 0} setundercolorremoval	{} setblackgeneration	} bind def}{% Here, we set up indexed color for imaging on PS Level 2 without mucking around% with the transfer functions./colorSetup2 {	[ /Indexed /DeviceRGB 255 		{dup red exch get 255 div 		 exch dup green exch get 255 div 		 exch blue exch get 255 div}	] setcolorspace} bind def} ifelse%% Setup a transfer function to convert psuedo color values into grayscale% values based on the color lookup tables.%/fakecolorsetup {	/tran 256 string def	0 1 255 {/indx exch def 		tran indx		red indx get 77 mul		green indx get 151 mul		blue indx get 28 mul		add add 256 idiv put} for	currenttransfer	{255 mul cvi tran exch get 255.0 div}	exch fmConcatProcs settransfer} bind def%% image a color image%/BITMAPCOLOR { % iw, ih, width, height, theta, x y 	/depth 8 def	gsave	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/bitmapsave save def	fMLevel1 {			colorsetup		/is width depth wbytes string def		/cf currentfile def % evaluate "currentfile" only once		width height depth [width 0 0 height neg 0 height] % top to bottom		{cf is readhexstring pop} {is} {is} true 3 colorimage 	} {		colorSetup2		/is width depth wbytes string def		/cf currentfile def % evaluate "currentfile" only once		7 dict dup begin			/ImageType 1 def			/Width width def			/Height height def			/ImageMatrix [width 0 0 height neg 0 height] def			/DataSource {cf is readhexstring pop} bind def			/BitsPerComponent depth def			/Decode [0 255] def		end image		} ifelse	bitmapsave restore 	grestore	} bind def%% Compressed color image rendering%/BITMAPCOLORc { % iw, ih, width, height, theta, x y 	/depth 8 def	gsave	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/lb width depth wbytes def % so "lb" has width in bytes	sl lb lt {lb ms} if % maybe make bigger strings	/bitmapsave save def 	fMLevel1 {			colorsetup		/is im 0 lb getinterval def % image substring		ws 0 lb getinterval is copy pop % whiten it		/cf currentfile def % evaluate "currentfile" only once		width height depth [width 0 0 height neg 0 height] % top to bottom		{ip} {is} {is} true 3 colorimage	} {		colorSetup2		/is im 0 lb getinterval def % image substring		ws 0 lb getinterval is copy pop % whiten it		/cf currentfile def % evaluate "currentfile" only once		7 dict dup begin			/ImageType 1 def			/Width width def			/Height height def			/ImageMatrix [width 0 0 height neg 0 height] def			/DataSource {ip} bind def			/BitsPerComponent depth def			/Decode [0 255] def		end image		} ifelse	bitmapsave restore 	grestore	} bind def/BITMAPTRUECOLORc { 	/depth 24 def        gsave 	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/lb width depth wbytes def % so "lb" has width in bytes	sl lb lt {lb ms} if % maybe make bigger strings	/bitmapsave save def         	/is im 0 lb getinterval def	% Whole scanline	/ris im 0 width getinterval def	% red part of im	/gis im width width getinterval def	% green part of im	/bis im width 2 mul width getinterval def % blue part of im        	ws 0 lb getinterval is copy pop 	/cf currentfile def 	width height 8 [width 0 0 height neg 0 height] 	{width rip pop ris} {gis} {bis} true 3 colorimage	bitmapsave restore 	grestore	} bind def/BITMAPCMYKc { 	/depth 32 def        gsave 	% rotate about center of image	3 index 2 div add exch	% iw ih width height theta y+(height/2) x	4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)	translate		% iw ih width height theta	rotate			% iw ih width height	1 index 2 div neg	% iw ih width height -(width/2)	1 index 2 div neg	% iw ih width height -(width/2) -(height/2)	translate		% iw ih width height	scale			% iw ih	/height exch def /width exch def	/lb width depth wbytes def % so "lb" has width in bytes	sl lb lt {lb ms} if % maybe make bigger strings	/bitmapsave save def         	/is im 0 lb getinterval def	% Whole scanline	/cis im 0 width getinterval def	% cyan part of im	/mis im width width getinterval def	% magenta part of im	/yis im width 2 mul width getinterval def % yellow part of im	/kis im width 3 mul width getinterval def % black part of im        	ws 0 lb getinterval is copy pop 	/cf currentfile def 	width height 8 [width 0 0 height neg 0 height] 	{width rip4 pop cis} {mis} {yis} {kis} true 4 colorimage	bitmapsave restore 	grestore	} bind def/BITMAPTRUECOLOR {         gsave		% rotate about center of image		3 index 2 div add exch	% iw ih width height theta y+(height/2) x		4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)		translate		% iw ih width height theta		rotate			% iw ih width height		1 index 2 div neg	% iw ih width height -(width/2)		1 index 2 div neg	% iw ih width height -(width/2) -(height/2)		translate		% iw ih width height		scale			% iw ih		/height exch def /width exch def        /bitmapsave save def         /is width string def        /gis width string def        /bis width string def        /cf currentfile def         width height 8 [width 0 0 height neg 0 height]         { cf is readhexstring pop }         { cf gis readhexstring pop }         { cf bis readhexstring pop }         true 3 colorimage         bitmapsave restore         grestore        } bind def/BITMAPCMYK {         gsave		% rotate about center of image		3 index 2 div add exch	% iw ih width height theta y+(height/2) x		4 index 2 div add exch	% iw ih width height theta x+(width/2) y+(height/2)		translate		% iw ih width height theta		rotate			% iw ih width height		1 index 2 div neg	% iw ih width