shithub: riscv

ref: e5c7fe6305977d4135d56d2fa6b5b37c8f275679
dir: /sys/lib/troff/font/devutf/charlib/sq/

View raw version 
/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