Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
/build_sq {
2 
    pop
3 
    size 2 div /side exch def
4 
    currentpoint
5 
    newpath
6 
    moveto
7 
 
8 
    side 0 rlineto
9 
 
10 
    closepath
11 
    font B eq {fill} {stroke} ifelse
12 
} def