blob: bc500212dcd35b8225f6064759052d2d4227c55f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
%
% 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
|