Return to postdmd.ps CVS log

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

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

1.1     ! root        1: %
        !             2: % Version 3.3.2 prologue for DMD bitmap 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: /screenres 100 def
        !            14: /xoffset 0 def
        !            15: /yoffset 0 def
        !            16: 
        !            17: /useclippath true def
        !            18: /pagebbox [0 0 612 792] def
        !            19: 
        !            20: /inch {72 mul} bind def
        !            21: /min {2 copy gt {exch} if pop} bind def
        !            22: 
        !            23: /setup {
        !            24:        counttomark 2 idiv {def} repeat pop
        !            25: 
        !            26:        landscape {/orientation 90 orientation add def} if
        !            27: 
        !            28:        pagedimensions
        !            29:        xcenter ycenter translate
        !            30:        orientation rotation mul rotate
        !            31:        xoffset inch yoffset inch translate
        !            32:        magnification dup aspectratio mul scale
        !            33: 
        !            34:        /height height margin sub def
        !            35:        /width width margin sub def
        !            36: } def
        !            37: 
        !            38: /pagedimensions {
        !            39:        useclippath {
        !            40:                /pagebbox [clippath pathbbox newpath] def
        !            41:        } if
        !            42:        pagebbox aload pop
        !            43:        4 -1 roll exch 4 1 roll 4 copy
        !            44:        landscape {4 2 roll} if
        !            45:        sub /width exch def
        !            46:        sub /height exch def
        !            47:        add 2 div /xcenter exch def
        !            48:        add 2 div /ycenter exch def
        !            49:        userdict /gotpagebbox true put
        !            50: } def
        !            51: 
        !            52: /pagesetup {/page exch def} bind def
        !            53: 
        !            54: /bitmap {
        !            55:        /scanlines exch def
        !            56:        /scanlength exch def
        !            57:        /flip exch def
        !            58:        /v8format exch def
        !            59: 
        !            60:        /bytelength scanlength 8 idiv def
        !            61:        /picstr bytelength string def
        !            62:        /lpicstr bytelength string def
        !            63:        /bytelength bytelength 1 sub def
        !            64: 
        !            65:        gsave
        !            66: 
        !            67: % First the overall scaling.
        !            68: 
        !            69:        height scanlines div width scanlength div min
        !            70:        72 screenres div min
        !            71:        dup scale
        !            72: 
        !            73: % Followed by the one for the unit square.
        !            74: 
        !            75:        scanlength neg 2 div scanlines neg 2 div translate
        !            76:        scanlength scanlines scale
        !            77:        v8format {getv8bitmap} {getbitmap} ifelse
        !            78:        grestore
        !            79: } bind def
        !            80: 
        !            81: /getbitmap {
        !            82:        scanlength scanlines flip [scanlength 0 0 scanlines neg 0 scanlines] {
        !            83:                0 {
        !            84:                        currentfile token pop dup
        !            85:                        0 eq {pop pop exit} if
        !            86:                        /charcount exch def
        !            87:                        picstr 1 index charcount getinterval
        !            88:                        /repl exch def
        !            89:                        currentfile repl readhexstring pop pop
        !            90:                        charcount add
        !            91:                        currentfile token pop {
        !            92:                                picstr 1 index repl putinterval
        !            93:                                charcount add
        !            94:                        } repeat
        !            95:                } loop
        !            96:                picstr
        !            97:        } imagemask
        !            98: } bind def
        !            99: 
        !           100: /getv8bitmap {
        !           101:        scanlength scanlines flip not [scanlength 0 0 scanlines neg 0 scanlines] {
        !           102:                0 {
        !           103:                        currentfile token pop dup
        !           104:                        0 eq {pop pop exit} if
        !           105:                        /charcount exch def
        !           106:                        picstr 1 index charcount getinterval
        !           107:                        /repl exch def
        !           108:                        currentfile repl readhexstring pop pop
        !           109:                        charcount add
        !           110:                        currentfile token pop {
        !           111:                                picstr 1 index repl putinterval
        !           112:                                charcount add
        !           113:                        } repeat
        !           114:                } loop
        !           115:                0 0 picstr {
        !           116:                        exch lpicstr exch get xor
        !           117:                        lpicstr exch 2 index exch put
        !           118:                        1 add dup
        !           119:                } forall
        !           120:                pop pop lpicstr
        !           121:        } imagemask
        !           122: } bind def
        !           123: 
        !           124: /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.