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