Return to postdaisy.ps CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / postdaisy

Annotation of researchv10no/cmd/post.src/postdaisy/postdaisy.ps, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.