5 ###########################################################
6 # Performance improvements in the Edge/Edge intersection algorithm
7 ###########################################################
11 if { [regexp {Debug mode} [dversion]] } {
12 if { [regexp {Windows} [dversion]] } {
18 if { [regexp {Windows} [dversion]] } {
25 if { [regexp {Mac OS X} [dversion]] } {
32 restore [locate_data_file bug24696_cx_e1200_nurbs.brep] cx
34 ###------------------####
35 trotate cx 0 0 0 0 0 1 45
36 ###------------------####
41 set edges [explode cx e]
42 set nbe [llength $edges]
43 for {set i 1} {$i <= $nbe} {incr i} {baddobjects cx_$i}
48 set q [dchrono h show]
50 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
53 if { $z > ${max_time} } {
54 puts "Elapsed time is more than ${max_time} seconds - Faulty"
56 puts "Elapsed time is less than ${max_time} seconds - OK"