1 13f7391e 2004-05-15 devnull %
  2 13f7391e 2004-05-15 devnull % Version 3.3.2 prologue for tektronix 4014 files.
  3 13f7391e 2004-05-15 devnull %
  4 13f7391e 2004-05-15 devnull 
  5 13f7391e 2004-05-15 devnull /#copies 1 store
  6 13f7391e 2004-05-15 devnull /aspectratio 1 def
  7 13f7391e 2004-05-15 devnull /fixlinewidth true def
  8 13f7391e 2004-05-15 devnull /font /Courier def
  9 13f7391e 2004-05-15 devnull /formsperpage 1 def
 10 13f7391e 2004-05-15 devnull /landscape true def
 11 13f7391e 2004-05-15 devnull /linewidth 0 def
 12 13f7391e 2004-05-15 devnull /magnification 1 def
 13 13f7391e 2004-05-15 devnull /margin 10 def
 14 13f7391e 2004-05-15 devnull /orientation 0 def
 15 13f7391e 2004-05-15 devnull /rotation 1 def
 16 13f7391e 2004-05-15 devnull /screenheight 3120 def
 17 13f7391e 2004-05-15 devnull /screenwidth 4150 def
 18 13f7391e 2004-05-15 devnull /spotsize 1 def
 19 13f7391e 2004-05-15 devnull /xoffset 0 def
 20 13f7391e 2004-05-15 devnull /yoffset 0 def
 21 13f7391e 2004-05-15 devnull 
 22 13f7391e 2004-05-15 devnull /useclippath true def
 23 13f7391e 2004-05-15 devnull /pagebbox [0 0 612 792] def
 24 13f7391e 2004-05-15 devnull 
 25 13f7391e 2004-05-15 devnull /inch {72 mul} bind def
 26 13f7391e 2004-05-15 devnull /min {2 copy gt {exch} if pop} bind def
 27 13f7391e 2004-05-15 devnull 
 28 13f7391e 2004-05-15 devnull /kshow {kshow} bind def		% so later references don't bind
 29 13f7391e 2004-05-15 devnull 
 30 13f7391e 2004-05-15 devnull /setup {
 31 13f7391e 2004-05-15 devnull 	counttomark 2 idiv {def} repeat pop
 32 13f7391e 2004-05-15 devnull 
 33 13f7391e 2004-05-15 devnull 	landscape {/orientation 90 orientation add def} if
 34 13f7391e 2004-05-15 devnull 
 35 13f7391e 2004-05-15 devnull 	pagedimensions
 36 13f7391e 2004-05-15 devnull 	/scaling
 37 13f7391e 2004-05-15 devnull 		height margin sub screenheight div
 38 13f7391e 2004-05-15 devnull 		width margin sub screenwidth div
 39 13f7391e 2004-05-15 devnull 	min def
 40 13f7391e 2004-05-15 devnull 	xcenter ycenter translate
 41 13f7391e 2004-05-15 devnull 	orientation rotation mul rotate
 42 13f7391e 2004-05-15 devnull 	xoffset inch yoffset inch translate
 43 13f7391e 2004-05-15 devnull 	magnification dup aspectratio mul scale
 44 13f7391e 2004-05-15 devnull 	scaling scaling scale
 45 13f7391e 2004-05-15 devnull 	screenwidth 2 div neg screenheight 2 div neg translate
 46 13f7391e 2004-05-15 devnull 
 47 13f7391e 2004-05-15 devnull 	tietodevicespace
 48 13f7391e 2004-05-15 devnull 	linewidth scaling div setlinewidth
 49 13f7391e 2004-05-15 devnull 	1 setlinecap
 50 13f7391e 2004-05-15 devnull 	newpath
 51 13f7391e 2004-05-15 devnull } def
 52 13f7391e 2004-05-15 devnull 
 53 13f7391e 2004-05-15 devnull /pagedimensions {
 54 13f7391e 2004-05-15 devnull 	useclippath {
 55 13f7391e 2004-05-15 devnull 		/pagebbox [clippath pathbbox newpath] def
 56 13f7391e 2004-05-15 devnull 	} if
 57 13f7391e 2004-05-15 devnull 	pagebbox aload pop
 58 13f7391e 2004-05-15 devnull 	4 -1 roll exch 4 1 roll 4 copy
 59 13f7391e 2004-05-15 devnull 	landscape {4 2 roll} if
 60 13f7391e 2004-05-15 devnull 	sub /width exch def
 61 13f7391e 2004-05-15 devnull 	sub /height exch def
 62 13f7391e 2004-05-15 devnull 	add 2 div /xcenter exch def
 63 13f7391e 2004-05-15 devnull 	add 2 div /ycenter exch def
 64 13f7391e 2004-05-15 devnull 	userdict /gotpagebbox true put
 65 13f7391e 2004-05-15 devnull } def
 66 13f7391e 2004-05-15 devnull 
 67 13f7391e 2004-05-15 devnull /pagesetup {/page exch def} bind def
 68 13f7391e 2004-05-15 devnull 
 69 13f7391e 2004-05-15 devnull /tietodevicespace {
 70 13f7391e 2004-05-15 devnull 	fixlinewidth linewidth 0 gt and linewidth 1 lt and {
 71 13f7391e 2004-05-15 devnull 		/moveto {
 72 13f7391e 2004-05-15 devnull 			2 copy /Y exch def /X exch def
 73 13f7391e 2004-05-15 devnull 			transform round exch round exch itransform
 74 13f7391e 2004-05-15 devnull 			moveto
 75 13f7391e 2004-05-15 devnull 		} bind def
 76 13f7391e 2004-05-15 devnull 		/lineto {
 77 13f7391e 2004-05-15 devnull 			2 copy /Y exch def /X exch def
 78 13f7391e 2004-05-15 devnull 			transform round exch round exch itransform
 79 13f7391e 2004-05-15 devnull 			lineto
 80 13f7391e 2004-05-15 devnull 		} bind def
 81 13f7391e 2004-05-15 devnull 		/rlineto {Y add exch X add exch lineto} bind def
 82 13f7391e 2004-05-15 devnull 		/v V 0 get bind def
 83 13f7391e 2004-05-15 devnull 	} if
 84 13f7391e 2004-05-15 devnull } def
 85 13f7391e 2004-05-15 devnull 
 86 13f7391e 2004-05-15 devnull /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
 87 13f7391e 2004-05-15 devnull /v V 0 get bind def
 88 13f7391e 2004-05-15 devnull /p {newpath spotsize 0 360 arc fill} bind def
 89 13f7391e 2004-05-15 devnull 
 90 13f7391e 2004-05-15 devnull /l {{scaling div} forall counttomark array astore 0 setdash} bind def
 91 13f7391e 2004-05-15 devnull /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
 92 13f7391e 2004-05-15 devnull /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
 93 13f7391e 2004-05-15 devnull 
 94 13f7391e 2004-05-15 devnull /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
 95 13f7391e 2004-05-15 devnull 
 96 13f7391e 2004-05-15 devnull /t {
 97 13f7391e 2004-05-15 devnull 	3 1 roll moveto
 98 13f7391e 2004-05-15 devnull 	currentpoint {
 99 13f7391e 2004-05-15 devnull 		pop pop
100 13f7391e 2004-05-15 devnull 		exch charwidth add exch
101 13f7391e 2004-05-15 devnull 		moveto currentpoint
102 13f7391e 2004-05-15 devnull 	} 4 -1 roll kshow
103 13f7391e 2004-05-15 devnull 	pop pop
104 13f7391e 2004-05-15 devnull } bind def
105 13f7391e 2004-05-15 devnull 
106 13f7391e 2004-05-15 devnull /done {/lastpage where {pop lastpage} if} def