locpano.tcl

# $Id$ #

package require image
package require datareader

namespace eval locpano {

    variable imageSequenceReader
    variable engine

    proc init {imagesDir
         {scale 1.0}
         {imagePrefix "image."}
         {imageSuffix ".o.tiff"}
         {imageNbDigits 4}
         {nbImages 50} } {

  variable imageSequenceReader
  variable engine

  set imageSequenceReader [::datareader::new_ImageReader]
  $imageSequenceReader setup $imagesDir $imagePrefix $imageSuffix $imageNbDigits $scale

  set image [$imageSequenceReader load 0]
  set engine [::locpano::new_Engine $image $nbImages]

  image::delete_Image $image
    }

    proc addImage { index
        {updateProfile 1} } {

  variable imageSequenceReader
  variable engine 

  set image [$imageSequenceReader load $index]
  kernel::tic
  $engine addImage $image $index $updateProfile
  puts "time to add an image: [kernel::toc] ms"
  image::delete_Image $image
    }

    proc getClosestImage { index
         {useProfile 1}
         {distanceType 3} } {
  
  variable imageSequenceReader
  variable engine

  set image [$imageSequenceReader load $index]
  kernel::tic
  puts "answer: [locpano::print [$engine getClosestImage $image $useProfile $distanceType]]"
  puts "time to find image: [kernel::toc] ms"
  image::delete_Image $image
    }

}

package provide locpano 0.2