Return to shadedbox.dag CVS log

Up to [Research Unix] / researchv10no / cmd / dag / examples

Annotation of researchv10no/cmd/dag/examples/shadedbox.dag, revision 1.1

1.1     ! root        1: .GR
        !             2: .PS
        !             3: /setdagcolor {/daggrayscale exch def} def
        !             4: 
        !             5: /ShadedBox {
        !             6:        /height exch def
        !             7:        /width exch def
        !             8:        /nodename exch def
        !             9:        currentpoint 2 copy
        !            10:        newpath
        !            11:                moveto
        !            12:                width -2 div
        !            13:                height -2 div
        !            14:                rmoveto
        !            15:                width 0 rlineto
        !            16:                0 height rlineto
        !            17:                width neg 0 rlineto
        !            18:        closepath
        !            19:        gsave
        !            20:                daggrayscale setgray
        !            21:                fill
        !            22:        grestore
        !            23:        stroke
        !            24:        moveto 
        !            25:        nodename width .9 mul height .9 mul daglabel
        !            26: } def
        !            27: 
        !            28: /ShadedBox_clip { Box_clip } def
        !            29: .PE
        !            30: draw nodes as ShadedBox;
        !            31: draw nodes color "1";
        !            32: draw a color ".7";
        !            33: draw b color ".9";
        !            34: a b c;
        !            35: .GE

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