1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % UMDS pencil - needs to be cleaned up.
 3 13f7391e 2004-05-15 devnull %
 4 13f7391e 2004-05-15 devnull 
 5 13f7391e 2004-05-15 devnull /build_PC {
 6 13f7391e 2004-05-15 devnull     pop
 7 13f7391e 2004-05-15 devnull     gsave
 8 13f7391e 2004-05-15 devnull 	currentpoint translate
 9 13f7391e 2004-05-15 devnull 	1 scaling div ptsize 10 div mul dup scale
10 13f7391e 2004-05-15 devnull 	newpath
11 13f7391e 2004-05-15 devnull 	0 setlinecap
12 13f7391e 2004-05-15 devnull 	1 setlinejoin
13 13f7391e 2004-05-15 devnull 	2 setlinewidth
14 13f7391e 2004-05-15 devnull 	0 1 moveto 12 0 rlineto stroke
15 13f7391e 2004-05-15 devnull 	0 5 moveto 12 0 rlineto stroke
16 13f7391e 2004-05-15 devnull 	0 9 moveto 12 0 rlineto stroke
17 13f7391e 2004-05-15 devnull 	1 setlinewidth
18 13f7391e 2004-05-15 devnull 	12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke
19 13f7391e 2004-05-15 devnull 	21.27362 5 moveto
20 13f7391e 2004-05-15 devnull 	.4 9.27362 mul neg .4 4 mul rlineto
21 13f7391e 2004-05-15 devnull 	0 .8 4 mul neg rlineto
22 13f7391e 2004-05-15 devnull 	closepath fill
23 13f7391e 2004-05-15 devnull     grestore
24 13f7391e 2004-05-15 devnull } def
25 13f7391e 2004-05-15 devnull