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