26 lines
477 B
Text
26 lines
477 B
Text
|
%
|
||
|
|
% UMDS pencil - needs to be cleaned up.
|
||
|
|
%
|
||
|
|
|
||
|
|
/build_PC {
|
||
|
|
pop
|
||
|
|
gsave
|
||
|
|
currentpoint translate
|
||
|
|
1 scaling div ptsize 10 div mul dup scale
|
||
|
|
newpath
|
||
|
|
0 setlinecap
|
||
|
|
1 setlinejoin
|
||
|
|
2 setlinewidth
|
||
|
|
0 1 moveto 12 0 rlineto stroke
|
||
|
|
0 5 moveto 12 0 rlineto stroke
|
||
|
|
0 9 moveto 12 0 rlineto stroke
|
||
|
|
1 setlinewidth
|
||
|
|
12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke
|
||
|
|
21.27362 5 moveto
|
||
|
|
.4 9.27362 mul neg .4 4 mul rlineto
|
||
|
|
0 .8 4 mul neg rlineto
|
||
|
|
closepath fill
|
||
|
|
grestore
|
||
|
|
} def
|
||
|
|
|