Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
%
2 
% UMDS danger sign - needs to be cleaned up!
3 
%
4 
 
5 
/build_DG {
6 
    /x0 1.5 6 div 72 mul def	% triangle length
7 
    pop
8 
    gsave
9 
	currentpoint translate
10 
	1 scaling div ptsize 10 div mul dup scale
11 
	2 setlinewidth
12 
 
13 
	newpath
14 
 
15 
	x0 0 lineto
16 
	x0 2 div x0 3 sqrt 2 div mul lineto
17 
	closepath fill
18 
	1 setgray
19 
	/Helvetica-Bold findfont 12 scalefont setfont
20 
 
21 
	(!) false charpath pathbbox
22 
	exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto
23 
	exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto
24 
	(!) show
25 
    grestore
26 
} def
27