%% Version 3.3.2 prologue for DMD 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	/flip exch def	/v8format exch def 	/bytelength scanlength 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	v8format {getv8bitmap} {getbitmap} ifelse	grestore} bind def /getbitmap {	scanlength scanlines flip [scanlength 0 0 scanlines neg 0 scanlines] {		0 {			currentfile token pop dup			0 eq {pop pop exit} if			/charcount exch def			picstr 1 index charcount getinterval			/repl exch def			currentfile repl readhexstring pop pop			charcount add			currentfile token pop {				picstr 1 index repl putinterval				charcount add			} repeat		} loop		picstr	} imagemask} bind def /getv8bitmap {	scanlength scanlines flip not [scanlength 0 0 scanlines neg 0 scanlines] {		0 {			currentfile token pop dup			0 eq {pop pop exit} if			/charcount exch def			picstr 1 index charcount getinterval			/repl exch def			currentfile repl readhexstring pop pop			charcount add			currentfile token pop {				picstr 1 index repl putinterval				charcount add			} repeat		} loop		0 0 picstr {			exch lpicstr exch get xor			lpicstr exch 2 index exch put			1 add dup		} forall		pop pop lpicstr	} imagemask} bind def /done {/lastpage where {pop lastpage} if} def