Sign in
plan9port
/
plan9
/
81c2c5e775d83896f25981cf4c4e486c5cc91180
/
.
/
troff
/
font
/
devutf
/
charlib
/
_s_q
blob: 32486e8866303ab09d318f57be7b8578669edf88 [
file
] [
log
] [
blame
]
/
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