plan9fox/sys/lib/troff/font/devutf/charlib/sq
2011-03-30 16:53:33 +03:00

12 lines
208 B
Text
Executable file

/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