3c1304bf |
1 | puts "============" |
2 | puts "OCC26447" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################## |
6 | # Performance degradation intersecting cylindrical surfaces |
7 | ############################################################# |
8 | |
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 |
11 | mkface f1 c1 |
12 | mkface f2 c2 |
13 | |
14 | dchrono cr reset |
15 | dchrono cr start |
16 | |
17 | for {set i 1} {$i <= 1000} {incr i} { |
18 | bopcurves f1 f2 |
19 | } |
20 | |
21 | dchrono cr stop |
863f782a |
22 | if { [checkplatform -windows] } { |
3c1304bf |
23 | set max_time 7.5 |
24 | } else { |
25 | set max_time 4.5 |
26 | } |
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 |
29 | |
30 | if { ${ElapsedTime_sec} > ${max_time} } { |
31 | puts "Error: Elapsed time of intersecting is more than ${max_time} seconds" |
32 | } else { |
33 | puts "OK: Elapsed time of intersecting is less than ${max_time} seconds" |
34 | } |