demoReprojection.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
set nbchannel [image::CvImage_channels $image]

#=================================================
#
# 1st reprojection type : cylindricale projection
#
#=================================================

# create image for cylindric reprojection
set imageReprojCyl [::image::new_Image 1900 300 8 0]

# cylindric reprojection
::camera::univReprojectionCylindric $model $image $imageReprojCyl 1
display::show $imageReprojCyl


#======================================================
#
# 2nd reprojection type : perspective camera emulation
#
#======================================================

# Create image for perspective reprojection
set imageReprojPersp [::image::new_Image 640 480 8 0]

# perspective reprojection
::camera::univReprojectionPerspective $model $image $imageReprojPersp 0.53 0.60 0.2 1.20 1
display::show $imageReprojPersp

# Create image for perspective reprojection
set imageReprojPersp2 [::image::new_Image 640 480 8 0]

# perspective reprojection
::camera::univReprojectionPerspective $model $image $imageReprojPersp2 0.53 0.60 -0.2 1.20 1
display::show $imageReprojPersp2