%% Version 3.3.2 prologue for tektronix 4014 files.% /#copies 1 store/aspectratio 1 def/fixlinewidth true def/font /Courier def/formsperpage 1 def/landscape true def/linewidth 0 def/magnification 1 def/margin 10 def/orientation 0 def/rotation 1 def/screenheight 3120 def/screenwidth 4150 def/spotsize 1 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 /kshow {kshow} bind def		% so later references don't bind /setup {	counttomark 2 idiv {def} repeat pop 	landscape {/orientation 90 orientation add def} if 	pagedimensions	/scaling		height margin sub screenheight div		width margin sub screenwidth div	min def	xcenter ycenter translate	orientation rotation mul rotate	xoffset inch yoffset inch translate	magnification dup aspectratio mul scale	scaling scaling scale	screenwidth 2 div neg screenheight 2 div neg translate 	tietodevicespace	linewidth scaling div setlinewidth	1 setlinecap	newpath} 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 /tietodevicespace {	fixlinewidth linewidth 0 gt and linewidth 1 lt and {		/moveto {			2 copy /Y exch def /X exch def			transform round exch round exch itransform			moveto		} bind def		/lineto {			2 copy /Y exch def /X exch def			transform round exch round exch itransform			lineto		} bind def		/rlineto {Y add exch X add exch lineto} bind def		/v V 0 get bind def	} if} def /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def/v V 0 get bind def/p {newpath spotsize 0 360 arc fill} bind def /l {{scaling div} forall counttomark array astore 0 setdash} bind def/w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def/i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def /t {	3 1 roll moveto	currentpoint {		pop pop		exch charwidth add exch		moveto currentpoint	} 4 -1 roll kshow	pop pop} bind def /done {/lastpage where {pop lastpage} if} def