1 %
2 % Version 3.3.2 prologue for troff files.
3 %
4 
5 /#copies 1 store
6 /aspectratio 1 def
7 /formsperpage 1 def
8 /landscape false def
9 /linewidth .3 def
10 /magnification 1 def
11 /margin 0 def
12 /orientation 0 def
13 /resolution 720 def
14 /rotation 1 def
15 /xoffset 0 def
16 /yoffset 0 def
17 
18 /roundpage true def
19 /useclippath true def
20 /pagebbox [0 0 612 792] def
21 
22 /R  /Times-Roman def
23 /I  /Times-Italic def
24 /B  /Times-Bold def
25 /BI /Times-BoldItalic def
26 /H  /Helvetica def
27 /HI /Helvetica-Oblique def
28 /HB /Helvetica-Bold def
29 /HX /Helvetica-BoldOblique def
30 /CW /Courier def
31 /CO /Courier def
32 /CI /Courier-Oblique def
33 /CB /Courier-Bold def
34 /CX /Courier-BoldOblique def
35 /PA /Palatino-Roman def
36 /PI /Palatino-Italic def
37 /PB /Palatino-Bold def
38 /PX /Palatino-BoldItalic def
39 /Hr /Helvetica-Narrow def
40 /Hi /Helvetica-Narrow-Oblique def
41 /Hb /Helvetica-Narrow-Bold def
42 /Hx /Helvetica-Narrow-BoldOblique def
43 /KR /Bookman-Light def
44 /KI /Bookman-LightItalic def
45 /KB /Bookman-Demi def
46 /KX /Bookman-DemiItalic def
47 /AR /AvantGarde-Book def
48 /AI /AvantGarde-BookOblique def
49 /AB /AvantGarde-Demi def
50 /AX /AvantGarde-DemiOblique def
51 /NR /NewCenturySchlbk-Roman def
52 /NI /NewCenturySchlbk-Italic def
53 /NB /NewCenturySchlbk-Bold def
54 /NX /NewCenturySchlbk-BoldItalic def
55 /ZD /ZapfDingbats def
56 /ZI /ZapfChancery-MediumItalic def
57 /S  /S def
58 /S1 /S1 def
59 /GR /Symbol def
60 
61 /inch {72 mul} bind def
62 /min {2 copy gt {exch} if pop} bind def
63 
64 /setup {
65 	counttomark 2 idiv {def} repeat pop
66 
67 	landscape {/orientation 90 orientation add def} if
68 	/scaling 72 resolution div def
69 	linewidth setlinewidth
70 	1 setlinecap
71 
72 	pagedimensions
73 	xcenter ycenter translate
74 	orientation rotation mul rotate
75 	width 2 div neg height 2 div translate
76 	xoffset inch yoffset inch neg translate
77 	margin 2 div dup neg translate
78 	magnification dup aspectratio mul scale
79 	scaling scaling scale
80 
81 	addmetrics
82 	0 0 moveto
83 } def
84 
85 /pagedimensions {
86 	useclippath userdict /gotpagebbox known not and {
87 		/pagebbox [clippath pathbbox newpath] def
88 		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
89 	} if
90 	pagebbox aload pop
91 	4 -1 roll exch 4 1 roll 4 copy
92 	landscape {4 2 roll} if
93 	sub /width exch def
94 	sub /height exch def
95 	add 2 div /xcenter exch def
96 	add 2 div /ycenter exch def
97 	userdict /gotpagebbox true put
98 } def
99 
100 /addmetrics {
101 	/Symbol /S null Sdefs cf
102 	/Times-Roman /S1 StandardEncoding dup length array copy S1defs cf
103 } def
104 
105 /pagesetup {
106 	/page exch def
107 	currentdict /pagedict known currentdict page known and {
108 		page load pagedict exch get cvx exec
109 	} if
110 } def
111 
112 /decodingdefs [
113 	{counttomark 2 idiv {y moveto show} repeat}
114 	{neg /y exch def counttomark 2 idiv {y moveto show} repeat}
115 	{neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
116 	{neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
117 	{counttomark 2 idiv {y moveto show} repeat}
118 	{neg setfunnytext}
119 ] def
120 
121 /setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def
122 
123 /w {neg moveto show} bind def
124 /m {neg dup /y exch def moveto} bind def
125 /done {/lastpage where {pop lastpage} if} def
126 
127 /f {
128 	dup /font exch def findfont exch
129 	dup /ptsize exch def scaling div dup /size exch def scalefont setfont
130 	linewidth ptsize mul scaling 10 mul div setlinewidth
131 	/spacewidth ( ) stringwidth pop def
132 } bind def
133 
134 /changefont {
135 	/fontheight exch def
136 	/fontslant exch def
137 	currentfont [
138 		1 0
139 		fontheight ptsize div fontslant sin mul fontslant cos div
140 		fontheight ptsize div
141 		0 0
142 	] makefont setfont
143 } bind def
144 
145 /sf {f} bind def
146 
147 /cf {
148 	dup length 2 idiv
149 	/entries exch def
150 	/chtab exch def
151 	/newencoding exch def
152 	/newfont exch def
153 
154 	findfont dup length 1 add dict
155 	/newdict exch def
156 	{1 index /FID ne {newdict 3 1 roll put}{pop pop} ifelse} forall
157 
158 	newencoding type /arraytype eq {newdict /Encoding newencoding put} if
159 
160 	newdict /Metrics entries dict put
161 	newdict /Metrics get
162 	begin
163 		chtab aload pop
164 		1 1 entries {pop def} for
165 		newfont newdict definefont pop
166 	end
167 } bind def
168 
169 %
170 % A few arrays used to adjust reference points and character widths in some
171 % of the printer resident fonts. If square roots are too high try changing
172 % the lines describing /radical and /radicalex to,
173 %
174 %	/radical	[0 -75 550 0]
175 %	/radicalex	[-50 -75 500 0]
176 %
177 % Move braceleftbt a bit - default PostScript character is off a bit.
178 %
179 
180 /Sdefs [
181 	/bracketlefttp		[201 500]
182 	/bracketleftbt		[201 500]
183 	/bracketrighttp		[-81 380]
184 	/bracketrightbt		[-83 380]
185 	/braceleftbt		[203 490]
186 	/bracketrightex		[220 -125 500 0]
187 	/radical		[0 0 550 0]
188 	/radicalex		[-50 0 500 0]
189 	/parenleftex		[-20 -170 0 0]
190 	/integral		[100 -50 500 0]
191 	/infinity		[10 -75 730 0]
192 ] def
193 
194 /S1defs [
195 	/underscore		[0 80 500 0]
196 	/endash			[7 90 650 0]
197 ] def