demoMask.tcl

package require image
package require display
package require camera

# create the camera model
set model [::camera::new_CameraParabolicBarreto]

# load the model
$model load "demo.cal"

# read an image and display it
set image [image::Image_loadImage "image.pgm"]
display::show $image

# create a mask
set mask [::camera::new_PanoMask $model]

$mask apply $image

display::refresh $image