5 ##############################################################
6 # Performance degradation intersecting cylindrical surfaces
7 #############################################################
9 cylinder c1 0 0 0 1 0 0 0 -1 0 100
10 cylinder c2 0 0 0 0 1 0 1 0 0 100
17 for {set i 1} {$i <= 1000} {incr i} {
22 if { [checkplatform -windows] } {
27 set TimeList [dchrono cr show]
28 regexp {Elapsed time: [-0-9.+eE]+ Hours [-0-9.+eE]+ Minutes ([-0-9.+eE]+) Seconds} $TimeList full ElapsedTime_sec
30 if { ${ElapsedTime_sec} > ${max_time} } {
31 puts "Error: Elapsed time of intersecting is more than ${max_time} seconds"
33 puts "OK: Elapsed time of intersecting is less than ${max_time} seconds"