5 #####################################################################
6 # BUC60912. Section of simple BSpline surfaces is performed too slow.
7 #####################################################################
9 restore [locate_data_file BUC60912_sec_slow.brep] c
16 mkface f f -11 11 -11 11
18 puts "Info: perform section with plane"
19 chrono h1 reset; chrono h1 start
21 chrono h1 stop counter "CPU section r1"
23 puts "Info: perform section with planar BSpline surface"
24 chrono h2 reset; chrono h2 start
26 chrono h2 stop counter "CPU section r2"
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
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} ]
34 if { ${h1_Time} > 0.1 } {
35 puts "Error: Section of simple BSpline surfaces_1 is performed too slow"
38 if { ${h2_Time} > 0.1 } {
39 puts "Error: Section of simple BSpline surfaces_2 is performed too slow"