Return to postbgi.ps CVS log

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

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

1.1     ! root        1: %
        !             2: % Version 3.3.2 prologue for BGI files - STARE or PRISM.
        !             3: %
        !             4: 
        !             5: /#copies 1 store
        !             6: /aspectratio 1 def
        !             7: /fixlinewidth true def
        !             8: /fixscreen false def
        !             9: /font /Courier def
        !            10: /formsperpage 1 def
        !            11: /landscape false def
        !            12: /linewidth 0 def
        !            13: /magnification 1 def
        !            14: /margin 0 def
        !            15: /orientation 0 def
        !            16: /prism false def
        !            17: /resolution 128 def
        !            18: /rotation 1 def
        !            19: /scaletodevice false def
        !            20: /screenheight 1280 def
        !            21: /screenwidth 1024 def
        !            22: /xoffset 0 def
        !            23: /yoffset 0 def
        !            24: 
        !            25: /devres 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def
        !            26: 
        !            27: /useclippath true def
        !            28: /pagebbox [0 0 612 792] def
        !            29: 
        !            30: /inch {72 mul} bind def
        !            31: /min {2 copy gt {exch} if pop} bind def
        !            32: 
        !            33: /kshow {kshow} bind def                % so later references don't bind
        !            34: /show {show} bind def
        !            35: 
        !            36: /setup {
        !            37:        counttomark 2 idiv {def} repeat pop
        !            38: 
        !            39:        landscape {/orientation 90 orientation add def} if
        !            40:        prism {/fixscreen true def /scaletodevice true def} if
        !            41:        prism linewidth 0 eq and {/linewidth .3 def} if
        !            42:        fixscreen {devres 4 div orientation currentscreen 3 1 roll pop pop setscreen} if
        !            43: 
        !            44:        pagedimensions
        !            45:        /scaling
        !            46:                scaletodevice
        !            47:                        {devres resolution div truncate 72 mul devres div dup}
        !            48:                        {height margin sub screenheight div width margin sub screenwidth div}
        !            49:                ifelse
        !            50:        min def
        !            51:        xcenter ycenter translate
        !            52:        orientation rotation mul rotate
        !            53:        xoffset inch yoffset inch translate
        !            54:        magnification dup aspectratio mul scale
        !            55:        scaling scaling scale
        !            56:        screenwidth 2 div neg screenheight 2 div neg translate
        !            57: 
        !            58:        tietodevicespace
        !            59:        linewidth scaling div setlinewidth
        !            60:        1 setlinecap
        !            61:        newpath
        !            62: } def
        !            63: 
        !            64: /pagedimensions {
        !            65:        useclippath {
        !            66:                /pagebbox [clippath pathbbox newpath] def
        !            67:        } if
        !            68:        pagebbox aload pop
        !            69:        4 -1 roll exch 4 1 roll 4 copy
        !            70:        landscape {4 2 roll} if
        !            71:        sub /width exch def
        !            72:        sub /height exch def
        !            73:        add 2 div /xcenter exch def
        !            74:        add 2 div /ycenter exch def
        !            75:        userdict /gotpagebbox true put
        !            76: } def
        !            77: 
        !            78: /pagesetup {/page exch def} bind def
        !            79: 
        !            80: /tietodevicespace {
        !            81:        fixlinewidth linewidth 0 gt and linewidth 1 lt and {
        !            82:                /moveto {
        !            83:                        2 copy /Y exch def /X exch def
        !            84:                        transform round exch round exch itransform
        !            85:                        moveto
        !            86:                } bind def
        !            87:                /lineto {
        !            88:                        2 copy /Y exch def /X exch def
        !            89:                        transform round exch round exch itransform
        !            90:                        lineto
        !            91:                } bind def
        !            92:                /rlineto {Y add exch X add exch lineto} bind def
        !            93:                /v V 0 get bind def
        !            94:        } if
        !            95: } def
        !            96: 
        !            97: /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
        !            98: /v V 0 get bind def
        !            99: /p {linewidth 2 div 0 360 arc fill} bind def
        !           100: /pp {/ch exch def counttomark 2 idiv {moveto xc yc rmoveto ch show} repeat} bind def
        !           101: 
        !           102: /l {{scaling div} forall counttomark array astore 0 setdash} bind def
        !           103: /c {setrgbcolor} bind def
        !           104: 
        !           105: /T {newpath moveto rlineto rlineto rlineto closepath eofill} bind def
        !           106: 
        !           107: /R {
        !           108:        newpath moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath
        !           109:        0 eq {stroke} {eofill} ifelse
        !           110: } bind def
        !           111: 
        !           112: /f {
        !           113:        dup dup
        !           114:        /charwidth exch 6 mul def
        !           115:        /xc exch -2.5 mul def
        !           116:        /yc exch -3.5 mul def
        !           117:        font findfont charwidth .6 div scalefont setfont
        !           118: } bind def
        !           119: 
        !           120: /t {
        !           121:        /str exch def
        !           122:        gsave
        !           123:        translate rotate
        !           124:        xc yc moveto
        !           125:        currentpoint
        !           126:        {
        !           127:                pop pop
        !           128:                exch charwidth add exch
        !           129:                moveto currentpoint
        !           130:        } str kshow
        !           131:        pop pop
        !           132:        grestore
        !           133: } bind def
        !           134: 
        !           135: /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.