Blame


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