plan9fox/sys/lib/troff/font/devutf/charlib/PC

26 lines
477 B
Text
Raw Normal View History

%
% 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