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