1 13f7391e 2004-05-15 devnull /build_sq {
3 13f7391e 2004-05-15 devnull size 2 div /side exch def
4 13f7391e 2004-05-15 devnull currentpoint
7 13f7391e 2004-05-15 devnull 0 side rlineto
8 13f7391e 2004-05-15 devnull side 0 rlineto
9 13f7391e 2004-05-15 devnull 0 side neg rlineto
10 13f7391e 2004-05-15 devnull closepath
11 13f7391e 2004-05-15 devnull font B eq {fill} {stroke} ifelse