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