27 lines
553 B
Text
27 lines
553 B
Text
%
|
|
% 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
|
|
|