aboutsummaryrefslogtreecommitdiff
path: root/troff/font/devutf/charlib/sq
blob: 32486e8866303ab09d318f57be7b8578669edf88 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
/build_sq {
    pop
    size 2 div /side exch def
    currentpoint
    newpath
    moveto
    0 side rlineto
    side 0 rlineto
    0 side neg rlineto
    closepath
    font B eq {fill} {stroke} ifelse
} def