Blob
1 %2 % UMDS danger sign - needs to be cleaned up!3 %5 /build_DG {6 /x0 1.5 6 div 72 mul def % triangle length7 pop8 gsave9 currentpoint translate10 1 scaling div ptsize 10 div mul dup scale11 2 setlinewidth12 0 setlinecap13 newpath14 0 0 moveto15 x0 0 lineto16 x0 2 div x0 3 sqrt 2 div mul lineto17 closepath fill18 1 setgray19 /Helvetica-Bold findfont 12 scalefont setfont20 0 0 moveto21 (!) false charpath pathbbox22 exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto23 exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto24 (!) show25 grestore26 } def