Return to shade.ps CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / psfiles

Annotation of researchv10no/cmd/postscript/psfiles/shade.ps, revision 1.1

1.1     ! root        1: %
        !             2: % Shading support - primarily for ASCII file translators.
        !             3: %
        !             4: 
        !             5: /grays [0.98 0.9 0.75 0.6] def
        !             6: 
        !             7: /setshade {
        !             8:        /level exch def
        !             9:        level 0 le {
        !            10:                /textgray 0 def
        !            11:                /backgray 1 def
        !            12:        }{
        !            13:                /backgray level grays length gt
        !            14:                        {/textgray 1 def 0}
        !            15:                        {/textgray 0 def grays level 1 sub get}
        !            16:                ifelse def
        !            17:        } ifelse
        !            18:        textgray setgray
        !            19:        /dY1 0 def
        !            20:        /dY2 0 def
        !            21: } bind def
        !            22: 
        !            23: /drawrvbox {
        !            24:        /x2 exch charwidth mul def
        !            25:        /x1 exch charwidth mul def
        !            26: 
        !            27:        x1 x2 lt {
        !            28:                dup             % expects y on top
        !            29:                /y1 exch linespace mul def
        !            30:                /y2 y1 def
        !            31: 
        !            32:                dY1 0 eq dY2 0 eq and {
        !            33:                        currentfont /FontBBox get aload pop
        !            34:                        160 sub
        !            35:                        currentfont /FontMatrix get dtransform /dY2 exch def pop
        !            36:                        100 add
        !            37:                        currentfont /FontMatrix get dtransform /dY1 exch def pop
        !            38:                } if
        !            39: 
        !            40:                /y1 y1 dY1 add def
        !            41:                /y2 y2 dY2 add def
        !            42: 
        !            43:                backgray setgray
        !            44:                newpath
        !            45:                x1 y1 moveto
        !            46:                x2 y1 lineto
        !            47:                x2 y2 lineto
        !            48:                x1 y2 lineto
        !            49:                closepath fill
        !            50:        } if
        !            51:        textgray setgray
        !            52: } bind def

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