5 ############################################################
6 # Visualization - use NCollection_IndexedMap instead of NCollection_Sequence in OpenGl_BVHClipPrimitiveSet to improve performance
7 ############################################################
19 vdefaults -defl 1.0 -autoTriang off
20 # Warning, unknown argument '-DEFL'
26 # display 100x100 connected instances of single presentation
27 puts "Creating [expr $aNb1*$aNb1] instances..."
28 set t1 [time {for {set i 0} {$i < $aNb1} {incr i} {for {set j 0} {$j < $aNb1} {incr j} {vconnectto s_${i}_${j} ${i} ${j} 0 s -noupdate}}}]
30 # the following command is slow
31 set t2 [time {vclear}]
34 puts "vconnectto done in $d1 microseconds!\n"
37 puts "vclear done in $d2 microseconds!\n"
39 set t1_sec [expr $d1 * 1.e-6]
40 set t2_sec [expr $d2 * 1.e-6]
42 if { [regexp {Debug mode} [dversion]] } {
43 if { [regexp {Windows} [dversion]] } {
44 set max_time_vconnectto 5
47 set max_time_vconnectto 5
51 if { [regexp {Windows} [dversion]] } {
52 set max_time_vconnectto 1
55 set max_time_vconnectto 1
60 if { ${t1_sec} > ${max_time_vconnectto} } {
61 puts "Elapsed time of vconnectto is more than ${max_time_vconnectto} seconds - Error"
63 puts "Elapsed time of vconnectto is less than ${max_time_vconnectto} seconds - OK"
66 if { ${t2_sec} > ${max_time_vclear} } {
67 puts "Elapsed time of vclear is more than ${max_time_vclear} seconds - Error"
69 puts "Elapsed time of vclear is less than ${max_time_vclear} seconds - OK"