| % | |
| % UMDS danger sign - needs to be cleaned up! | |
| % | |
| /build_DG { | |
| /x0 1.5 6 div 72 mul def % triangle length | |
| pop | |
| gsave | |
| currentpoint translate | |
| 1 scaling div ptsize 10 div mul dup scale | |
| 2 setlinewidth | |
| 0 setlinecap | |
| newpath | |
| 0 0 moveto | |
| x0 0 lineto | |
| x0 2 div x0 3 sqrt 2 div mul lineto | |
| closepath fill | |
| 1 setgray | |
| /Helvetica-Bold findfont 12 scalefont setfont | |
| 0 0 moveto | |
| (!) false charpath pathbbox | |
| exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto | |
| exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto | |
| (!) show | |
| grestore | |
| } def | |