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