2 puts "0030412: Visualization, TKV3d - add presentation of camera frustum"
5 pload MODELING VISUALIZATION
13 puts "Creating [expr $THE_NB_BOXES * $THE_NB_BOXES * $THE_NB_BOXES] boxes..."
14 for {set i 0} {$i < $THE_NB_BOXES} {incr i} {
15 for {set j 0} {$j < $THE_NB_BOXES} {incr j} {
16 for {set k 0} {$k < $THE_NB_BOXES} {incr k} {
17 box b$i$j$k 3.*$i 3.*$j 3.*$k 1 1 1
18 vdisplay -noupdate -dispMode 1 b$i$j$k
29 vdump $::imagedir/${::casename}_cam_right.png
33 vdump $::imagedir/${::casename}_cam_axo.png