shithub: riscv

ref: c45766fb054e3c82fe7be6cd5da2e6ff58e534e3
dir: /sys/lib/troff/font/devutf/charlib/PC/

View raw version
%
% 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