DG (553B)
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