home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s053 / 28.ddi / reloc.2 / $POSTSCRIPT / postprint.ps < prev    next >
Encoding:
Text File  |  1990-12-08  |  1.6 KB  |  69 lines
  1. %ident    "@(#)////usr/lib/lp/postscript/postprint.p.sl 1.1 4.0 12/08/90 43887 AT&T-USL"
  2. %
  3. % Version 3.15 prologue for ASCII files.
  4. %
  5.  
  6. /#copies 1 store
  7. /aspectratio 1 def
  8. /font /Courier def
  9. /formsperpage 1 def
  10. /landscape false def
  11. /magnification 1 def
  12. /margin 10 def
  13. /orientation 0 def
  14. /pointsize 10 def
  15. /xoffset .25 def
  16. /yoffset -0.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. /setup {
  26.     counttomark 2 idiv {def} repeat pop
  27.  
  28.     landscape {/orientation 90 orientation add def} if
  29.     font findfont pointsize scalefont setfont
  30.     /charwidth (M) stringwidth pop def
  31.     /linespace pointsize pointsize .10 mul add neg def
  32.  
  33.     pagedimensions
  34.     xcenter ycenter translate
  35.     orientation neg rotate
  36.     width 2 div neg height 2 div translate
  37.     xoffset inch yoffset inch translate
  38.     margin 2 div dup neg translate
  39.     magnification dup aspectratio mul scale
  40.     height width div 1 min dup scale
  41.     0 linespace translate
  42. } def
  43.  
  44. /pagedimensions {
  45.     useclippath userdict /gotpagebbox known not and {
  46.         /pagebbox [clippath pathbbox newpath] def
  47.         roundpage currentdict /roundpagebbox known and {roundpagebbox} if
  48.     } if
  49.     pagebbox aload pop
  50.     4 -1 roll exch 4 1 roll 4 copy
  51.     landscape {4 2 roll} if
  52.     sub /width exch def
  53.     sub /height exch def
  54.     add 2 div /xcenter exch def
  55.     add 2 div /ycenter exch def
  56.     userdict /gotpagebbox true put
  57. } def
  58.  
  59. /pagesetup {/page exch def 0 0 moveto 0} bind def
  60.  
  61. /L {
  62.     counttomark 2 idiv {charwidth mul currentpoint exch pop moveto show} repeat
  63.     linespace add dup 0 exch moveto
  64. } bind def
  65.  
  66. /l {show linespace add dup 0 exch moveto} bind def
  67.  
  68. /done {/lastpage where {pop lastpage} if} def
  69.