display.tcl

#
# display related macro. \file display.tcl  \ingroup bundler   
#

package require camera
package require image
package require jmath
package require display

namespace eval bundler {

    proc displayPremodelerComputedPoints { camera img trackedPoints {color blue} } {
  display::show $img
  for {set i 0} {$i < [bundler::sizeTrackedObjects $trackedPoints]} {incr i} {
      set p [bundler::getTrackedObject $trackedPoints $i]
      set id [bundler::getTrackedObjectKey $trackedPoints $i]
      bundler::displayPointOnImage $camera $p $id $img
  }
    };

    proc displayResultOnImage { camera img vmanager } {
  set point [::bundler::ViewsManager_getSolution $vmanager]
  display::show $img
  bundler::displayPointOnImage $cam $point $img
    };

    proc displayPointOnImage { pinholeCamera point3d id img {color blue} } {
        set pixel [::jmath::new_vec2]
        set isOk [::camera::CameraPinhole_project $pinholeCamera $point3d $pixel]
# if { $isOk } {                                                          
            set u [::jmath::getElementAt $pixel 0]
            set v [::jmath::getElementAt $pixel 1]
            set tkId [::display::drawCross $img $u $v]
            display::drawSquare $img [expr round($u)] [expr round($v)] 5 1 $color
  display::drawText $img [expr round($u)] [expr round($v - 10)] "$id" $color "c"
 #      }
    };
}

package provide bundler 1.0