tposttek.ps - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tposttek.ps (2392B)
       ---
            1 %
            2 % Version 3.3.2 prologue for tektronix 4014 files.
            3 %
            4 
            5 /#copies 1 store
            6 /aspectratio 1 def
            7 /fixlinewidth true def
            8 /font /Courier def
            9 /formsperpage 1 def
           10 /landscape true def
           11 /linewidth 0 def
           12 /magnification 1 def
           13 /margin 10 def
           14 /orientation 0 def
           15 /rotation 1 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 /kshow {kshow} bind def                % so later references don't bind
           29 
           30 /setup {
           31         counttomark 2 idiv {def} repeat pop
           32 
           33         landscape {/orientation 90 orientation add def} if
           34 
           35         pagedimensions
           36         /scaling
           37                 height margin sub screenheight div
           38                 width margin sub screenwidth div
           39         min def
           40         xcenter ycenter translate
           41         orientation rotation mul rotate
           42         xoffset inch yoffset inch translate
           43         magnification dup aspectratio mul scale
           44         scaling scaling scale
           45         screenwidth 2 div neg screenheight 2 div neg translate
           46 
           47         tietodevicespace
           48         linewidth scaling div setlinewidth
           49         1 setlinecap
           50         newpath
           51 } def
           52 
           53 /pagedimensions {
           54         useclippath {
           55                 /pagebbox [clippath pathbbox newpath] def
           56         } if
           57         pagebbox aload pop
           58         4 -1 roll exch 4 1 roll 4 copy
           59         landscape {4 2 roll} if
           60         sub /width exch def
           61         sub /height exch def
           62         add 2 div /xcenter exch def
           63         add 2 div /ycenter exch def
           64         userdict /gotpagebbox true put
           65 } def
           66 
           67 /pagesetup {/page exch def} bind def
           68 
           69 /tietodevicespace {
           70         fixlinewidth linewidth 0 gt and linewidth 1 lt and {
           71                 /moveto {
           72                         2 copy /Y exch def /X exch def
           73                         transform round exch round exch itransform
           74                         moveto
           75                 } bind def
           76                 /lineto {
           77                         2 copy /Y exch def /X exch def
           78                         transform round exch round exch itransform
           79                         lineto
           80                 } bind def
           81                 /rlineto {Y add exch X add exch lineto} bind def
           82                 /v V 0 get bind def
           83         } if
           84 } def
           85 
           86 /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
           87 /v V 0 get bind def
           88 /p {newpath spotsize 0 360 arc fill} bind def
           89 
           90 /l {{scaling div} forall counttomark array astore 0 setdash} bind def
           91 /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
           92 /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
           93 
           94 /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
           95 
           96 /t {
           97         3 1 roll moveto
           98         currentpoint {
           99                 pop pop
          100                 exch charwidth add exch
          101                 moveto currentpoint
          102         } 4 -1 roll kshow
          103         pop pop
          104 } bind def
          105 
          106 /done {/lastpage where {pop lastpage} if} def