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     ! 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.