[occt.git] / tests / bugs / vis / bug30437_1

puts "============="
puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
puts "============="

pload MODELING VISUALIZATION
vclear
vinit View1

set THE_NB_POINTS 10
puts "Creating [expr $THE_NB_POINTS * $THE_NB_POINTS * $THE_NB_POINTS] points..."
for {set i 0} {$i < $THE_NB_POINTS} {incr i} {
  for {set j 0} {$j < $THE_NB_POINTS} {incr j} {
    for {set k 0} {$k < $THE_NB_POINTS} {incr k} {
      vpoint p$i$j$k 3.*$i 3.*$j 3.*$k
    }
  }
}

vcamera -ortho
vfront
vfit
vzoom 2
set aPointsNb_1 [vstatprofiler points]
if [expr $aPointsNb_1 != 160] { puts "Error: unexpected number of not culled points 1" }

vcamera -persp
vaxo
vfit
vzoom 3
set aPointsNb_2 [vstatprofiler points]
if [expr $aPointsNb_2 != 307] { puts "Error: unexpected number of not culled points 2" }
Commit	Line	Data
79b544e6	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" }