0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29488_2
1 puts "========"
2 puts "OCC29488"
3 puts "========"
4 puts ""
5 #################################################
6 # Regression: boolean operation " general fuse" creates solid containing 5 not connected shells lying on the one level
7 #################################################
8
9 restore [locate_data_file bug29488_shapes.brep] s
10
11 bclearobjects
12 bcleartools
13 eval baddobjects [explode s]
14 bfillds
15 bbuild result
16
17 checkshape result
18 checknbshapes result -wire 390 -face 366 -shell 10 -solid 2
19 checkprops result -s 77135.9 -v 245074
20
21 set MinArea 0.001
22 foreach f [explode result f] {
23   regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea
24   if { $anArea == 0.0 } {
25     puts "Error in area computation: it is equal to 0"
26   } elseif {$anArea < $MinArea} {
27     puts "Error: Too small face has been created (S < $MinArea)"
28   }
29 }
30
31 checkview -display result -2d -path ${imagedir}/${test_image}.png