1*3e12c5d1SDavid du Colombier/build_sq { 2*3e12c5d1SDavid du Colombier pop 3*3e12c5d1SDavid du Colombier size 2 div /side exch def 4*3e12c5d1SDavid du Colombier currentpoint 5*3e12c5d1SDavid du Colombier newpath 6*3e12c5d1SDavid du Colombier moveto 7*3e12c5d1SDavid du Colombier 0 side rlineto 8*3e12c5d1SDavid du Colombier side 0 rlineto 9*3e12c5d1SDavid du Colombier 0 side neg rlineto 10*3e12c5d1SDavid du Colombier closepath 11*3e12c5d1SDavid du Colombier font B eq {fill} {stroke} ifelse 12*3e12c5d1SDavid du Colombier} def 13