 |
PC - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
PC (477B) |
|
--- |
|
1 % |
|
2 % UMDS pencil - needs to be cleaned up. |
|
3 % |
|
4 |
|
5 /build_PC { |
|
6 pop |
|
7 gsave |
|
8 currentpoint translate |
|
9 1 scaling div ptsize 10 div mul dup scale |
|
10 newpath |
|
11 0 setlinecap |
|
12 1 setlinejoin |
|
13 2 setlinewidth |
|
14 0 1 moveto 12 0 rlineto stroke |
|
15 0 5 moveto 12 0 rlineto stroke |
|
16 0 9 moveto 12 0 rlineto stroke |
|
17 1 setlinewidth |
|
18 12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke |
|
19 21.27362 5 moveto |
|
20 .4 9.27362 mul neg .4 4 mul rlineto |
|
21 0 .8 4 mul neg rlineto |
|
22 closepath fill |
|
23 grestore |
|
24 } def |
|
25 |
