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