tools.tcl

# $Id$ #

namespace eval camera {

    proc maskImagePano {imageFile cameraModelFile imageMaskedFile} {
  # apply a mask on the image

  set cameraModel [::camera::new_CameraParabolicBarreto]
  $cameraModel load $cameraModelFile
  set mask [::camera::new_PanoMask $cameraModel]
  set image [::image::Image_loadImage $imageFile]
  $mask apply $image
  $image saveImage $imageMaskedFile
  camera::delete_CameraParabolicBarreto $cameraModel
  camera::delete_PanoMask $mask
  image::delete_Image $image
    }

}

package provide camera 0.1