mirror of
https://github.com/9fans/plan9port.git
synced 2025-01-15 11:20:03 +00:00
13 lines
208 B
Text
13 lines
208 B
Text
|
/build_sq {
|
||
|
|
pop
|
||
|
|
size 2 div /side exch def
|
||
|
|
currentpoint
|
||
|
|
newpath
|
||
|
|
moveto
|
||
|
|
0 side rlineto
|
||
|
|
side 0 rlineto
|
||
|
|
0 side neg rlineto
|
||
|
|
closepath
|
||
|
|
font B eq {fill} {stroke} ifelse
|
||
|
|
} def
|