1 /build_bx {
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     fill
12 } def