2 % Version 3.3.2 prologue for tektronix 4014 files.
16 /screenheight 3120 def
23 /pagebbox [0 0 612 792] def
25 /inch {72 mul} bind def
26 /min {2 copy gt {exch} if pop} bind def
28 /kshow {kshow} bind def % so later references don't bind
31 counttomark 2 idiv {def} repeat pop
33 landscape {/orientation 90 orientation add def} if
37 height margin sub screenheight div
38 width margin sub screenwidth div
40 xcenter ycenter translate
41 orientation rotation mul rotate
42 xoffset inch yoffset inch translate
43 magnification dup aspectratio mul scale
45 screenwidth 2 div neg screenheight 2 div neg translate
48 linewidth scaling div setlinewidth
55 /pagebbox [clippath pathbbox newpath] def
58 4 -1 roll exch 4 1 roll 4 copy
59 landscape {4 2 roll} if
62 add 2 div /xcenter exch def
63 add 2 div /ycenter exch def
64 userdict /gotpagebbox true put
67 /pagesetup {/page exch def} bind def
70 fixlinewidth linewidth 0 gt and linewidth 1 lt and {
72 2 copy /Y exch def /X exch def
73 transform round exch round exch itransform
77 2 copy /Y exch def /X exch def
78 transform round exch round exch itransform
81 /rlineto {Y add exch X add exch lineto} bind def
86 /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
88 /p {newpath spotsize 0 360 arc fill} bind def
90 /l {{scaling div} forall counttomark array astore 0 setdash} bind def
91 /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
92 /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
94 /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
100 exch charwidth add exch
106 /done {/lastpage where {pop lastpage} if} def