gdhe.tcl

# $Id$ #

namespace eval camera {

    proc drawCameraPinholeFOV { camera {depth 2} } {
        # draws some lines to visualize the field of view of a camera
        # depth is the depth of the FOV
 
        set x [expr $depth * tan([$camera getApertureU]/2)]
        set y [expr $depth * tan([$camera getApertureV]/2)]
        set z $depth
 
        # "top left" line
        polyline 2 0 0 0 -$x -$y $z
        # "top right" line
        polyline 2 0 0 0 $x -$y $z
        # "down right" line
        polyline 2 0 0 0 $x $y $z
        # "down left" line
        polyline 2 0 0 0 -$x $y $z
        # Down fronto-parallel line
        polyline 2 -$x $y $z $x $y $z
        # Top fronto-parallel line
        polyline 2 -$x -$y $z $x -$y $z
        # Left fronto-parallel line
        polyline 2 -$x -$y $z -$x $y $z
        # Right fronto-parallel line
        polyline 2 $x -$y $z $x $y $z
    }

    proc drawCameraBarretoFOV { camera {depth 2.0} {nbSlices 10} } {
  set gdheCmds [camera::gdheCameraBarretoFOV $camera $depth $nbSlices]
  foreach cmd $gdheCmds {
      eval $cmd
  }
    }

}

package provide camera 0.1