6b1fe48c |
1 | puts "=========" |
2 | puts "OCC24751" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################### |
6 | # Performance improvements in the Edge/Edge intersection algorithm |
7 | ########################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | if { [regexp {Debug mode} [dversion]] } { |
12 | if { [regexp {Windows} [dversion]] } { |
13 | set max_time 260 |
14 | } else { |
15 | set max_time 500 |
16 | } |
17 | } else { |
18 | if { [regexp {Windows} [dversion]] } { |
19 | set max_time 100 |
20 | } else { |
21 | set max_time 150 |
22 | } |
23 | } |
24 | |
25 | dchrono h reset |
26 | dchrono h start |
27 | |
28 | restore [locate_data_file bug24696_cx_e1200_nurbs.brep] cx |
29 | |
30 | ###------------------#### |
31 | trotate cx 0 0 0 1 1 1 90 |
32 | ###------------------#### |
33 | |
34 | bclearobjects |
35 | bcleartools |
36 | |
37 | set edges [explode cx e] |
38 | set nbe [llength $edges] |
39 | for {set i 1} {$i <= $nbe} {incr i} {baddobjects cx_$i} |
40 | bfillds |
41 | bbuild result |
42 | |
43 | dchrono h stop |
44 | set q [dchrono h show] |
45 | |
46 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z |
47 | puts "$z" |
48 | |
49 | if { $z > ${max_time} } { |
50 | puts "Elapsed time is more than ${max_time} seconds - Faulty" |
51 | } else { |
52 | puts "Elapsed time is less than ${max_time} seconds - OK" |
53 | } |
54 | |
55 | set 2dviewer 1 |