a87752f3 |
1 | puts "============" |
2 | puts "BUC60912" |
3 | puts "OCC83" |
4 | puts "============" |
5 | puts "" |
6 | ############################### |
7 | ## Section of simple BSpline surfaces is performed too slow |
8 | ############################### |
9 | |
10 | puts "2 case: perform section with planar BSpline surface" |
11 | restore [locate_data_file BUC60912_sec_slow.brep] c |
12 | explode c |
352ffd73 |
13 | checkshape c_1 |
14 | checkshape c_2 |
a87752f3 |
15 | |
16 | renamevar c_1 sh |
17 | renamevar c_2 pr |
18 | plane f 0 0 0 1 0 0 |
19 | mkface f f -11 11 -11 11 |
20 | |
21 | puts "Info: perform section with planar BSpline surface" |
22 | dchrono h2 reset |
23 | dchrono h2 start |
24 | bsection result sh pr |
25 | dchrono h2 stop |
26 | set q2 [ dchrono h2 show ] |
27 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
28 | puts "$z2" |
29 | if { $z2 > 40 } { |
30 | puts "Elapsed time is more then 40 seconds - Faulty" |
31 | } else { |
32 | puts "Elapsed time is less then 40 - OK" |
33 | } |
58cf74e0 |
34 | checkprops result -l 42.879 |
35 | checkshape result |
36 | checksection result |
5747059b |
37 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
38 | |