tests/bugs/vis/bug30437_1

   1 puts "============="
   2 puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
   3 puts "============="
   4
   5 pload MODELING VISUALIZATION
   6 vclear
   7 vinit View1
   8
   9 set THE_NB_POINTS 10
  10 puts "Creating [expr $THE_NB_POINTS * $THE_NB_POINTS * $THE_NB_POINTS] points..."
  11 for {set i 0} {$i < $THE_NB_POINTS} {incr i} {
  12   for {set j 0} {$j < $THE_NB_POINTS} {incr j} {
  13     for {set k 0} {$k < $THE_NB_POINTS} {incr k} {
  14       vpoint p$i$j$k 3.*$i 3.*$j 3.*$k
  15     }
  16   }
  17 }
  18
  19 vcamera -ortho
  20 vfront
  21 vfit
  22 vzoom 2
  23 set aPointsNb_1 [vstatprofiler points]
  24 if [expr $aPointsNb_1 != 160] { puts "Error: unexpected number of not culled points 1" }
  25
  26 vcamera -persp
  27 vaxo
  28 vfit
  29 vzoom 3
  30 set aPointsNb_2 [vstatprofiler points]
  31 if [expr $aPointsNb_2 != 307] { puts "Error: unexpected number of not culled points 2" }