ref: 90cf291bb01229db3d96bd22b750b4345037fb78
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