1
0

postprint.ps 1.8 KB

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