Blame


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