home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / cmds / root.3 / usr / lib / lp / postscript / postdaisy.ps / postdaisy
Text File  |  1998-08-19  |  2KB  |  72 lines
  1. %ident    "@(#)postdaisy.ps    1.2"
  2. %
  3. % Version 3.15 prologue for Diablo 1640 files.
  4. %
  5.  
  6. /#copies 1 store
  7. /aspectratio 1 def
  8. /font /Courier def
  9. /formsperpage 1 def
  10. /hmi 12 def
  11. /landscape false def
  12. /magnification 1 def
  13. /margin 10 def
  14. /orientation 0 def
  15. /resolution 240 def
  16. /xoffset .25 def
  17. /yoffset -0.25 def
  18.  
  19. /roundpage true def
  20. /useclippath true def
  21. /pagebbox [0 0 612 792] def
  22.  
  23. /inch {72 mul} bind def
  24. /min {2 copy gt {exch} if pop} bind def
  25.  
  26. /setup {
  27.     counttomark 2 idiv {def} repeat pop
  28.  
  29.     landscape {/orientation 90 orientation add def} if
  30.     /scaling 72 resolution div def
  31.     currentdict /pointsize known not {/pointsize hmi def} if
  32.     font findfont pointsize scaling div scalefont setfont
  33.     /charwidth (M) stringwidth pop def
  34.  
  35.     pagedimensions
  36.     xcenter ycenter translate
  37.     orientation neg rotate
  38.     width 2 div neg height 2 div translate
  39.     xoffset inch yoffset inch translate
  40.     margin 2 div dup neg translate
  41.     magnification dup aspectratio mul scale
  42.     height width div 1 min dup scale
  43.     scaling dup scale
  44. } def
  45.  
  46. /pagedimensions {
  47.     useclippath userdict /gotpagebbox known not and {
  48.         /pagebbox [clippath pathbbox newpath] def
  49.         roundpage currentdict /roundpagebbox known and {roundpagebbox} if
  50.     } if
  51.     pagebbox aload pop
  52.     4 -1 roll exch 4 1 roll 4 copy
  53.     landscape {4 2 roll} if
  54.     sub /width exch def
  55.     sub /height exch def
  56.     add 2 div /xcenter exch def
  57.     add 2 div /ycenter exch def
  58.     userdict /gotpagebbox true put
  59. } def
  60.  
  61. /pagesetup {/page exch def 0 0 moveto} bind def
  62.  
  63. /t {
  64.     charwidth sub /advance exch def
  65.     neg /y exch def
  66.     counttomark 2 idiv {y moveto advance 0 3 -1 roll ashow} repeat
  67. } bind def
  68.  
  69. /f {findfont pointsize scaling div scalefont setfont} bind def
  70.  
  71. /done {/lastpage where {pop lastpage} if} def
  72.