1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % UMDS danger sign - needs to be cleaned up!
 3 13f7391e 2004-05-15 devnull %
 4 13f7391e 2004-05-15 devnull 
 5 13f7391e 2004-05-15 devnull /build_DG {
 6 13f7391e 2004-05-15 devnull     /x0 1.5 6 div 72 mul def	% triangle length
 7 13f7391e 2004-05-15 devnull     pop
 8 13f7391e 2004-05-15 devnull     gsave
 9 13f7391e 2004-05-15 devnull 	currentpoint translate
10 13f7391e 2004-05-15 devnull 	1 scaling div ptsize 10 div mul dup scale
11 13f7391e 2004-05-15 devnull 	2 setlinewidth
12 13f7391e 2004-05-15 devnull 	0 setlinecap
13 13f7391e 2004-05-15 devnull 	newpath
14 13f7391e 2004-05-15 devnull 	0 0 moveto
15 13f7391e 2004-05-15 devnull 	x0 0 lineto
16 13f7391e 2004-05-15 devnull 	x0 2 div x0 3 sqrt 2 div mul lineto
17 13f7391e 2004-05-15 devnull 	closepath fill
18 13f7391e 2004-05-15 devnull 	1 setgray
19 13f7391e 2004-05-15 devnull 	/Helvetica-Bold findfont 12 scalefont setfont
20 13f7391e 2004-05-15 devnull 	0 0 moveto
21 13f7391e 2004-05-15 devnull 	(!) false charpath pathbbox
22 13f7391e 2004-05-15 devnull 	exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto
23 13f7391e 2004-05-15 devnull 	exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto
24 13f7391e 2004-05-15 devnull 	(!) show
25 13f7391e 2004-05-15 devnull     grestore
26 13f7391e 2004-05-15 devnull } def
27 13f7391e 2004-05-15 devnull