Return to posttek.ps CVS log

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

Annotation of researchv10no/cmd/post.src/posttek/posttek.ps, revision 1.1

1.1     ! root        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

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