9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | LICENSE

_s_q (208B)

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