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