Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug83_2
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
13 puts [checkshape c_1]
14 puts [checkshape c_2]
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 }
34 set length 42.879
35 set 2dviewer 0
36