modelerAdapter.tcl

#
#/** modelerAdapter related macro. \file modelerAdapter.tcl  \ingroup bundler */
#

package require camera
package require jmath
package require premodeler

namespace eval bundler {

    proc processDetection { {detectorType 0}  sensorName seriesname serienumber path {begin 1} {end 12} {step 1} } {
  global engine
  global manager
  global result
  global gTracker
  set engine [::premodeler::new_Engine $detectorType $sensorName $seriesname $serienumber $path]
  premodeler::Engine_process $engine $begin $end $step
  set manager [premodeler::testIFManager $engine]
  set gTracker [::premodeler::IFManager_getGTracker $manager]
  puts "finished detection"
    }

    proc processBundle { seriesname serienumber path sensorName begin end step } {
  set camType ::bundler::ViewsManager_MONO
  global gTracker
  global bundleResult
  global mAdapter
  set mAdapter [::bundler::new_ModelerAdapter $seriesname $serienumber $path $sensorName $camType $gTracker]
  ::bundler::ModelerAdapter_process $begin $end $step $mAdapater
  set bundleResult [::bundler::ModelerAdapter_getTrackedObjects $mAdapater]
  puts "finished bundle"
   }

}

package provide bundler 1.0