requires clink.f

"" cg.o clink

: cline ( x1 y1 x2 y2 --- )
  swap >r >r swap >r >r 
  color @ r> r> r> r>
  _line 2drop 2drop drop
;

: usecl
  ['] cline is line
  fb _fb !
;