8a7476a6 |
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 | eval mkvolume result [lrange [explode s] 1 end] |
11 | |
12 | checkshape result |
8dc56d0f |
13 | checknbshapes result -wire 74 -face 74 -shell 1 -solid 1 |
8a7476a6 |
14 | checkprops result -s 3073.39 -v 10240.8 |
15 | |
8dc56d0f |
16 | set MinArea 0.001 |
17 | foreach f [explode result f] { |
18 | regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea |
19 | if { $anArea == 0.0 } { |
20 | puts "Error in area computation: it is equal to 0" |
21 | } elseif {$anArea < $MinArea} { |
22 | puts "Error: Too small face has been created (S < $MinArea)" |
23 | } |
24 | } |
25 | |
8a7476a6 |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |