premodeler.tcl

package require premodeler

namespace eval premodeler {

    ###
    # premodeler engine sequence proceeding
    ###
    proc testEngine { type sensorName seriesName serieNumber dataPath {begin -1} {end -1} {step -1} } {
  set engine [::premodeler::new_Engine $type $sensorName $seriesName $serieNumber $dataPath]
  ::premodeler::Engine_process $engine $begin $end $step 
  return $engine
    }
    
    ###
    # test IfManager proceeding print and clean
    ###
    proc testIFManager { engine {threshold 3} } {
  set result [::premodeler::Engine_getProcessResult $engine]
  set manager [::premodeler::new_IFManager]
  ::premodeler::IFManager_setSMResult $manager $result
  ::premodeler::IFManager_loadSequenceIFs $manager
  ::premodeler::IFManager_printSequenceIFs $manager
  ::premodeler::IFManager_cleanSequenceIFs $manager $threshold
  ::premodeler::IFManager_printSequenceIFs $manager
  return $manager
    }

    ##
    # displays matched points between request image and best fitting one.
    ##
    proc testMatching { imgFile1 imgFile2 {color "green"} } {
  set profiler [premodeler::new_Profiler]
  puts "profiler set"
  set ref_img [image::Image_loadImage $imgFile1]
  puts "ref_img set"
  set match_img [image::Image_loadImage $imgFile2]
  puts "match_img set"
  premodeler::Profiler_setRequestImage1 $profiler $imgFile1
  premodeler::Profiler_setRequestImage2 $profiler $imgFile2
  puts "set request images"
  premodeler::Profiler_process $profiler
  puts "processed"
  set matches [premodeler::Profiler_getMatchesVector $profiler]
  puts "set matches"
  set result_img [premodeler::mergeImages $ref_img $match_img]
  puts "result image built"
  display::show $result_img
  for {set i 0} {$i < [gfm::sizeMatchesVec $matches]} {incr i} {
      set hp1 [gfm::getMatchFirst [ gfm::getMatchesVec $matches $i]]
      set hp2 [gfm::getMatchSecond [ gfm::getMatchesVec $matches $i]]
      set u1 [expr round([ gfm::InterestPoint_u $hp1 ])]
      set v1 [expr round([ gfm::InterestPoint_v $hp1 ])]
      display::drawSquare $result_img $u1 $v1 5 1 $color {jafar hpm_match}
      display::drawText $result_img $u1 [expr $v1 - 10] "$i" $color "c" {jafar hpm_match}
      set u2 [expr round([ gfm::InterestPoint_u $hp2 ])]
      set offset [::image::CvImage_width $ref_img]
      set u2 [expr $u2 + $offset]
      set v2 [expr round([ gfm::InterestPoint_v $hp2 ])]
      display::drawSquare $result_img $u2 $v2 5 1 $color {jafar hpm_match}
      display::drawText $result_img $u2 [expr $v2 - 10] "$i" $color "c" {jafar hpm_match}
      display::drawLine $result_img $u1 $v1 $u2 $v2 1 "blue"
  }
    }
}
package provide premodeler 0.9