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