2 13f7391e 2004-05-15 devnull % UMDS pencil - needs to be cleaned up.
5 13f7391e 2004-05-15 devnull /build_PC {
8 13f7391e 2004-05-15 devnull currentpoint translate
9 13f7391e 2004-05-15 devnull 1 scaling div ptsize 10 div mul dup scale
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