tests/bugs/vis/bug30412

   1 puts "============="
   2 puts "0030412: Visualization, TKV3d - add presentation of camera frustum"
   3 puts "============="
   4
   5 pload MODELING VISUALIZATION
   6 vclear
   7 vinit View1
   8
   9 vfront
  10 vcamera -persp
  11
  12 set THE_NB_BOXES 5
  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
  19     }
  20   }
  21 }
  22
  23 vfit
  24 vzoom 1.5
  25 vcamera cam
  26
  27 vright
  28 vfit
  29 vdump $::imagedir/${::casename}_cam_right.png
  30
  31 vaxo
  32 vfit
  33 vdump $::imagedir/${::casename}_cam_axo.png