Return to shadedbox.dag CVS log

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

researchv10 Norman

.GR
.PS
/setdagcolor {/daggrayscale exch def} def

/ShadedBox {
	/height exch def
	/width exch def
	/nodename exch def
	currentpoint 2 copy
	newpath
		moveto
		width -2 div
		height -2 div
		rmoveto
		width 0 rlineto
		0 height rlineto
		width neg 0 rlineto
	closepath
	gsave
		daggrayscale setgray
		fill
	grestore
	stroke
	moveto 
	nodename width .9 mul height .9 mul daglabel
} def

/ShadedBox_clip { Box_clip } def
.PE
draw nodes as ShadedBox;
draw nodes color "1";
draw a color ".7";
draw b color ".9";
a b c;
.GE

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