t_s_q - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       t_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