1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Version 3.3.2 prologue for text 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 /font /Courier def
 8 13f7391e 2004-05-15 devnull /formsperpage 1 def
 9 13f7391e 2004-05-15 devnull /landscape false def
10 13f7391e 2004-05-15 devnull /magnification 1 def
11 13f7391e 2004-05-15 devnull /margin 10 def
12 13f7391e 2004-05-15 devnull /orientation 0 def
13 13f7391e 2004-05-15 devnull /pointsize 10 def
14 13f7391e 2004-05-15 devnull /rotation 1 def
15 13f7391e 2004-05-15 devnull /xoffset .25 def
16 13f7391e 2004-05-15 devnull /yoffset .25 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 /inch {72 mul} bind def
23 13f7391e 2004-05-15 devnull /min {2 copy gt {exch} if pop} bind def
24 13f7391e 2004-05-15 devnull 
25 13f7391e 2004-05-15 devnull /show {show} bind def		% so later references don't bind
26 13f7391e 2004-05-15 devnull /stringwidth {stringwidth} bind def
27 13f7391e 2004-05-15 devnull 
28 13f7391e 2004-05-15 devnull /setup {
29 13f7391e 2004-05-15 devnull 	counttomark 2 idiv {def} repeat pop
30 13f7391e 2004-05-15 devnull 
31 13f7391e 2004-05-15 devnull 	landscape {/orientation 90 orientation add def} if
32 13f7391e 2004-05-15 devnull 	font findfont pointsize scalefont setfont
33 13f7391e 2004-05-15 devnull 	/charwidth (M) stringwidth pop def
34 13f7391e 2004-05-15 devnull 	/linespace pointsize pointsize .10 mul add neg def
35 13f7391e 2004-05-15 devnull 
36 13f7391e 2004-05-15 devnull 	pagedimensions
37 13f7391e 2004-05-15 devnull 	xcenter ycenter translate
38 13f7391e 2004-05-15 devnull 	orientation rotation mul rotate
39 13f7391e 2004-05-15 devnull 	width 2 div neg height 2 div translate
40 13f7391e 2004-05-15 devnull 	xoffset inch yoffset inch neg translate
41 13f7391e 2004-05-15 devnull 	margin 2 div dup neg translate
42 13f7391e 2004-05-15 devnull 	magnification dup aspectratio mul scale
43 13f7391e 2004-05-15 devnull 	height width div 1 min dup scale
44 13f7391e 2004-05-15 devnull 	0 linespace translate
45 13f7391e 2004-05-15 devnull } def
46 13f7391e 2004-05-15 devnull 
47 13f7391e 2004-05-15 devnull /pagedimensions {
48 13f7391e 2004-05-15 devnull 	useclippath userdict /gotpagebbox known not and {
49 13f7391e 2004-05-15 devnull 		/pagebbox [clippath pathbbox newpath] def
50 13f7391e 2004-05-15 devnull 		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
51 13f7391e 2004-05-15 devnull 	} if
52 13f7391e 2004-05-15 devnull 	pagebbox aload pop
53 13f7391e 2004-05-15 devnull 	4 -1 roll exch 4 1 roll 4 copy
54 13f7391e 2004-05-15 devnull 	landscape {4 2 roll} if
55 13f7391e 2004-05-15 devnull 	sub /width exch def
56 13f7391e 2004-05-15 devnull 	sub /height exch def
57 13f7391e 2004-05-15 devnull 	add 2 div /xcenter exch def
58 13f7391e 2004-05-15 devnull 	add 2 div /ycenter exch def
59 13f7391e 2004-05-15 devnull 	userdict /gotpagebbox true put
60 13f7391e 2004-05-15 devnull } def
61 13f7391e 2004-05-15 devnull 
62 13f7391e 2004-05-15 devnull /pagesetup {/page exch def 0 0 moveto 0} bind def
63 13f7391e 2004-05-15 devnull 
64 13f7391e 2004-05-15 devnull /L {
65 13f7391e 2004-05-15 devnull 	counttomark 2 idiv {charwidth mul currentpoint exch pop moveto show} repeat
66 13f7391e 2004-05-15 devnull 	linespace add dup 0 exch moveto
67 13f7391e 2004-05-15 devnull } bind def
68 13f7391e 2004-05-15 devnull 
69 13f7391e 2004-05-15 devnull /l {show linespace add dup 0 exch moveto} bind def
70 13f7391e 2004-05-15 devnull 
71 13f7391e 2004-05-15 devnull /LL {
72 13f7391e 2004-05-15 devnull 	counttomark 2 idiv {charwidth mul currentpoint exch pop moveto show} repeat
73 13f7391e 2004-05-15 devnull } bind def
74 13f7391e 2004-05-15 devnull 
75 13f7391e 2004-05-15 devnull /done {/lastpage where {pop lastpage} if} def