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