lkTracker.tcl

# $Id$ #

namespace eval image  {

    proc lkTrackerDisplayPointsCur {image lkTracker} {
  package require display

  set nbPoints [$lkTracker nbPoints]
  set pointsCur [$lkTracker pointsCur]

  for {set i 0} {$i < $nbPoints} {incr i} {
      set point [image::CvPoint2D32fArray_getitem $pointsCur $i]
      display::drawCross $image [$point cget -x] [$point cget -y]
  }
    }

}

package provide image 2.0