blob: bc500212dcd35b8225f6064759052d2d4227c55f [file] [log] [blame]
%
% 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