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

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.