1 9daa3ca7 2008-01-31 rsc /build_bx { 2 9daa3ca7 2008-01-31 rsc pop 3 9daa3ca7 2008-01-31 rsc size 2 div /side exch def 4 9daa3ca7 2008-01-31 rsc currentpoint 5 9daa3ca7 2008-01-31 rsc newpath 6 9daa3ca7 2008-01-31 rsc moveto 7 9daa3ca7 2008-01-31 rsc 0 side rlineto 8 9daa3ca7 2008-01-31 rsc side 0 rlineto 9 9daa3ca7 2008-01-31 rsc 0 side neg rlineto 10 9daa3ca7 2008-01-31 rsc closepath 11 9daa3ca7 2008-01-31 rsc fill 12 9daa3ca7 2008-01-31 rsc } def