%% Version 3.3 prologue for plan9 bitmap files.% /#copies 1 store/aspectratio 1 def/formsperpage 1 def/landscape false def/magnification 1 def/margin 0 def/orientation 0 def/rotation 1 def/screenres 100 def/xoffset 0 def/yoffset 0 def /useclippath true def/pagebbox [0 0 612 792] def /inch {72 mul} bind def/min {2 copy gt {exch} if pop} bind def /setup {	counttomark 2 idiv {def} repeat pop 	landscape {/orientation 90 orientation add def} if 	pagedimensions	xcenter ycenter translate	orientation rotation mul rotate	xoffset inch yoffset inch translate	magnification dup aspectratio mul scale 	/height height margin sub def	/width width margin sub def} def /pagedimensions {	useclippath {		/pagebbox [clippath pathbbox newpath] def	} if	pagebbox aload pop	4 -1 roll exch 4 1 roll 4 copy	landscape {4 2 roll} if	sub /width exch def	sub /height exch def	add 2 div /xcenter exch def	add 2 div /ycenter exch def	userdict /gotpagebbox true put} def /pagesetup {/page exch def} bind def /bitmap {	/scanlines exch def	/scanlength exch def	/bitspersample exch def%%	/v8format exch def 	/bytelength scanlength bitspersample mult 7 add 8 idiv def	/picstr bytelength string def	/lpicstr bytelength string def%%	/bytelength bytelength 1 sub def 	gsave % First the overall scaling. 	height scanlines div width scanlength div min	72 screenres div min	dup scale % Followed by the one for the unit square. 	scanlength neg 2 div scanlines neg 2 div translate	scanlength scanlines scale	getp9bitmap	grestore} bind def /getp9bitmap {	scanlength scanlines bitspersample [scanlength 0 0 scanlines neg 0 scanlines] {			currentfile picstr readhexstring pop} image} bind def /done {/lastpage where {pop lastpage} if} def