 |
_s_q - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
_s_q (208B) |
|
--- |
|
1 /build_sq { |
|
2 pop |
|
3 size 2 div /side exch def |
|
4 currentpoint |
|
5 newpath |
|
6 moveto |
|
7 0 side rlineto |
|
8 side 0 rlineto |
|
9 0 side neg rlineto |
|
10 closepath |
|
11 font B eq {fill} {stroke} ifelse |
|
12 } def |
