9026dea8 |
1 | puts "=====" |
2 | puts "OCC83" |
3 | puts "=====" |
4 | puts "" |
5 | ##################################################################### |
6 | # BUC60912. Section of simple BSpline surfaces is performed too slow. |
7 | ##################################################################### |
8 | |
9 | restore [locate_data_file BUC60912_sec_slow.brep] c |
10 | |
11 | explode c |
12 | renamevar c_1 sh |
13 | renamevar c_2 pr |
14 | |
15 | plane f 0 0 0 1 0 0 |
16 | mkface f f -11 11 -11 11 |
17 | |
18 | puts "Info: perform section with plane" |
19 | chrono h1 reset; chrono h1 start |
20 | section r1 f pr |
21 | chrono h1 stop counter "CPU section r1" |
22 | |
23 | puts "Info: perform section with planar BSpline surface" |
24 | chrono h2 reset; chrono h2 start |
25 | section r2 sh pr |
26 | chrono h2 stop counter "CPU section r2" |
27 | |
28 | regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} [dchrono h1 show] full h1_Hours h1_Minutes h1_Seconds |
29 | regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} [dchrono h2 show] full h2_Hours h2_Minutes h2_Seconds |
30 | |
31 | set h1_Time [expr ${h1_Hours}*60.*60. + ${h1_Minutes}*60. + ${h1_Seconds} ] |
32 | set h2_Time [expr ${h2_Hours}*60.*60. + ${h2_Minutes}*60. + ${h2_Seconds} ] |
33 | |
34 | if { ${h1_Time} > 0.1 } { |
35 | puts "Error: Section of simple BSpline surfaces_1 is performed too slow" |
36 | } |
37 | |
38 | if { ${h2_Time} > 0.1 } { |
39 | puts "Error: Section of simple BSpline surfaces_2 is performed too slow" |
40 | } |