home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / cmds / root.3 / usr / lib / lp / postscript / posttek.ps / posttek
Text File  |  1998-08-19  |  2KB  |  105 lines
  1. %ident    "@(#)posttek.ps    1.2"
  2. %
  3. % Version 3.15 prologue for tektronix 4014 files.
  4. %
  5.  
  6. /#copies 1 store
  7. /aspectratio 1 def
  8. /fixlinewidth true def
  9. /font /Courier def
  10. /formsperpage 1 def
  11. /landscape true def
  12. /linewidth 0 def
  13. /magnification 1 def
  14. /margin 10 def
  15. /orientation 0 def
  16. /screenheight 3120 def
  17. /screenwidth 4150 def
  18. /spotsize 1 def
  19. /xoffset 0 def
  20. /yoffset 0 def
  21.  
  22. /useclippath true def
  23. /pagebbox [0 0 612 792] def
  24.  
  25. /inch {72 mul} bind def
  26. /min {2 copy gt {exch} if pop} bind def
  27.  
  28. /setup {
  29.     counttomark 2 idiv {def} repeat pop
  30.  
  31.     landscape {/orientation 90 orientation add def} if
  32.  
  33.     pagedimensions
  34.     /scaling
  35.         height margin sub screenheight div
  36.         width margin sub screenwidth div
  37.     min def
  38.     xcenter ycenter translate
  39.     orientation neg rotate
  40.     xoffset inch yoffset inch translate
  41.     magnification dup aspectratio mul scale
  42.     scaling scaling scale
  43.     screenwidth 2 div neg screenheight 2 div neg translate
  44.  
  45.     tietodevicespace
  46.     linewidth scaling div setlinewidth
  47.     1 setlinecap
  48.     newpath
  49. } def
  50.  
  51. /pagedimensions {
  52.     useclippath {
  53.         /pagebbox [clippath pathbbox newpath] def
  54.     } if
  55.     pagebbox aload pop
  56.     4 -1 roll exch 4 1 roll 4 copy
  57.     landscape {4 2 roll} if
  58.     sub /width exch def
  59.     sub /height exch def
  60.     add 2 div /xcenter exch def
  61.     add 2 div /ycenter exch def
  62.     userdict /gotpagebbox true put
  63. } def
  64.  
  65. /pagesetup {/page exch def} bind def
  66.  
  67. /tietodevicespace {
  68.     fixlinewidth linewidth 0 gt and linewidth 1 lt and {
  69.         /moveto {
  70.             2 copy /Y exch def /X exch def
  71.             transform round exch round exch itransform
  72.             moveto
  73.         } bind def
  74.         /lineto {
  75.             2 copy /Y exch def /X exch def
  76.             transform round exch round exch itransform
  77.             lineto
  78.         } bind def
  79.         /rlineto {Y add exch X add exch lineto} bind def
  80.         /v V 0 get bind def
  81.     } if
  82. } def
  83.  
  84. /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
  85. /v V 0 get bind def
  86. /p {newpath spotsize 0 360 arc fill} bind def
  87.  
  88. /l {{scaling div} forall counttomark array astore 0 setdash} bind def
  89. /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
  90. /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
  91.  
  92. /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
  93.  
  94. /t {
  95.     3 1 roll moveto
  96.     currentpoint {
  97.         pop pop
  98.         exch charwidth add exch
  99.         moveto currentpoint
  100.     } 4 -1 roll kshow
  101.     pop pop
  102. } bind def
  103.  
  104. /done {/lastpage where {pop lastpage} if} def
  105.