plan9port

fork of plan9port with libvec, libstr and libsdb
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