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