352ffd73 |
1 | puts "=========" |
2 | puts " OCC951 " |
3 | puts "=========" |
4 | puts "" |
5 | ################################################## |
6 | ##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes |
7 | ################################################## |
8 | ## (old topology) |
9 | ## (common) |
10 | ## (section) |
11 | ###################################################### |
12 | |
13 | restore [locate_data_file OCC951_1.brep] b |
14 | restore [locate_data_file OCC951_2.brep] a |
15 | |
16 | checkshape b |
17 | checkshape a |
18 | |
19 | bcommon result b a |
20 | |
21 | set nb_info [nbshapes result] |
22 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve |
23 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed |
24 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi |
25 | regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa |
26 | regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh |
27 | regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so |
28 | regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm |
29 | regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co |
30 | regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl |
31 | if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } { |
32 | puts " OCC951 : COMMON operation was made PROPERLY" |
33 | } else { |
34 | puts "Faulty OCC951 : result of COMMON operation is EMPTY compound" |
35 | } |
36 | |
37 | set square 560.908 |
38 | set 3dviewer 1 |