a4785842 |
1 | puts "========" |
2 | puts "OCC27746" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Incomplete result of SECTION operation |
7 | ################################################# |
8 | |
9 | restore [locate_data_file bug27746_first.brep] b1 |
10 | restore [locate_data_file bug27746_second.brep] b2 |
11 | |
12 | explode b1 f; compound b1_60 b1_61 b1 |
13 | explode b2 f; compound b2_14 b2_18 b2 |
14 | donly b1 b2 |
15 | |
16 | bclearobjects |
17 | bcleartools |
18 | baddobjects b1 |
19 | baddtools b2 |
20 | bfillds |
21 | bbop result 4 |
22 | |
23 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv |
24 | if { $nbv != 2 } { puts "Error : Section is incorrect" } |
25 | |
26 | checkprops result -l 4.39869 |