a87752f3 |
1 | puts "========" |
2 | puts "BUC60787" |
3 | puts "BUC60783" |
4 | puts "========" |
5 | |
6 | #restore Common_Shell_Case2.brep S1 |
7 | #restore Common_Solid_Case2.brep S2 |
8 | |
9 | restore [locate_data_file buc60787a.brep] S1 |
352ffd73 |
10 | checkshape S1 |
a87752f3 |
11 | restore [locate_data_file buc60787b.brep] S2 |
352ffd73 |
12 | checkshape S1 |
a87752f3 |
13 | |
14 | bcommon result S1 S2 |
15 | |
16 | set nb_info [nbshapes result] |
a87752f3 |
17 | regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err |
18 | regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1 |
19 | |
4e57c75e |
20 | if { $err != 1 || $err1 != 1} { |
a87752f3 |
21 | puts "Faulty : result should be a shell, but not a compound of faces" |
22 | } else { |
23 | puts "BUC60787 - OK" |
24 | } |
25 | |
4e57c75e |
26 | set square 45000 |
a87752f3 |
27 | set 2dviewer 0 |