Blame


1 9daa3ca7 2008-01-31 rsc /build_sq {
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 font B eq {fill} {stroke} ifelse
12 9daa3ca7 2008-01-31 rsc } def