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

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.