Return to postgif.ps CVS log

Up to [Research Unix] / researchv10dc / cmd / postscript / postgif

Annotation of researchv10dc/cmd/postscript/postgif/postgif.ps, revision 1.1

1.1     ! root        1: %
        !             2: % Version 3.3.1 prologue for GIF pixmap files.
        !             3: %
        !             4: 
        !             5: /#copies 1 store
        !             6: /aspectratio 1 def
        !             7: /formsperpage 1 def
        !             8: /landscape false def
        !             9: /magnification 1 def
        !            10: /margin 0 def
        !            11: /orientation 0 def
        !            12: /rotation 1 def
        !            13: /xoffset 0 def
        !            14: /yoffset 0 def
        !            15: 
        !            16: /useclippath true def
        !            17: /pagebbox [0 0 612 792] def
        !            18: 
        !            19: /inch {72 mul} bind def
        !            20: /min {2 copy gt {exch} if pop} bind def
        !            21: 
        !            22: /setup {
        !            23:        counttomark 2 idiv {def} repeat pop
        !            24: 
        !            25:        landscape {/orientation 90 orientation add def} if
        !            26: 
        !            27:        pagedimensions
        !            28:        xcenter ycenter translate
        !            29:        orientation rotation mul rotate
        !            30:        xoffset inch yoffset inch translate
        !            31:        magnification dup aspectratio mul scale
        !            32: 
        !            33:        /height height margin sub def
        !            34:        /width width margin sub def
        !            35: } def
        !            36: 
        !            37: /pagedimensions {
        !            38:        useclippath {
        !            39:                /pagebbox [clippath pathbbox newpath] def
        !            40:        } if
        !            41:        pagebbox aload pop
        !            42:        4 -1 roll exch 4 1 roll 4 copy
        !            43:        landscape {4 2 roll} if
        !            44:        sub /width exch def
        !            45:        sub /height exch def
        !            46:        add 2 div /xcenter exch def
        !            47:        add 2 div /ycenter exch def
        !            48:        userdict /gotpagebbox true put
        !            49: } def
        !            50: 
        !            51: /pagesetup {/page exch def} bind def
        !            52: 
        !            53: /done {/lastpage where {pop lastpage} if} def
        !            54: 
        !            55: /alignment false def
        !            56: 
        !            57: /gifscreen { % scrwidth scrheight $
        !            58:     2 copy
        !            59: 
        !            60:     alignment {
        !            61:        100 dup dtransform exch 100 exch div abs exch 100 exch div abs
        !            62:        2 copy scale
        !            63:        /height exch height exch div def
        !            64:        /width exch width exch div def
        !            65:     } if
        !            66: 
        !            67:     height exch div exch width exch div
        !            68:     2 copy lt { pop } { exch pop } ifelse
        !            69: 
        !            70:     alignment { cvi } if
        !            71: 
        !            72:     dup scale
        !            73: 
        !            74:     neg 2 div exch neg 2 div exch translate
        !            75: } def
        !            76: 
        !            77: /gifimage { % gray imagewidth imageheight xorigin yorigin $
        !            78:     translate
        !            79:     2 copy scale
        !            80:     /imageheight exch def
        !            81:     /imagewidth exch def
        !            82:     /gray exch def
        !            83:     imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight]
        !            84:     gray {
        !            85:        { currentfile codestr readhexstring pop } image
        !            86:     } {
        !            87:        /colorimage where {
        !            88:            pop
        !            89:            /picstr imagewidth 3 mul string def
        !            90:            { currentfile codestr readhexstring pop pop
        !            91:                0 1 imagewidth 1 sub {
        !            92:                    picstr exch dup 3 mul exch colortbl exch codestr exch get
        !            93:                    3 mul 3 getinterval putinterval
        !            94:                } for picstr
        !            95:            } false 3 colorimage
        !            96:        } {
        !            97:            { currentfile codestr readhexstring pop pop
        !            98:                0 1 imagewidth 1 sub {
        !            99:                    codestr exch dup graytbl exch codestr exch get get put
        !           100:                } for codestr
        !           101:            } image
        !           102:        } ifelse
        !           103:     } ifelse
        !           104: } def

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