1puts "=============" 2puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics" 3puts "=============" 4 5pload MODELING VISUALIZATION 6vclear 7vinit View1 8 9set THE_NB_POINTS 10 10puts "Creating [expr $THE_NB_POINTS * $THE_NB_POINTS * $THE_NB_POINTS] points..." 11for {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 19vcamera -ortho 20vfront 21vfit 22vzoom 2 23set aPointsNb_1 [vstatprofiler points] 24if [expr $aPointsNb_1 != 160] { puts "Error: unexpected number of not culled points 1" } 25 26vcamera -persp 27vaxo 28vfit 29vzoom 3 30set aPointsNb_2 [vstatprofiler points] 31if [expr $aPointsNb_2 != 307] { puts "Error: unexpected number of not culled points 2" } 32vdump $imagedir/${casename}.png 33