ref: 18046fd8153076782863f968db6fe1a1af0ddd2b
dir: /sys/lib/troff/font/devutf/charlib/DG/
% % 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