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 26