tests/bugs/modalg_6/bug26938_1

   1 puts "=========="
   2 puts "OCC26938  "
   3 puts "=========="
   4 puts ""
   5 #####################################################
   6 # Boolean operations fail between two ellipsoids
   7 #####################################################
   8
   9 restore [locate_data_file bug26938.brep] a
  10 explode a
  11
  12 bfuse result a_1 a_2
  13
  14 # Check shape validity
  15 checkshape result
  16
  17 # Check area
  18 checkprops result -s 1.00773e+007
  19
  20 # Check self-intersection
  21 set info [bopcheck result]
  22 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  23     puts "Error : The result of General Fuse operation is self-interfered shape"
  24 }
  25
  26 checknbshapes result -solid 1 -shell 1 -t -m "Result"
  27
  28 checkview -display result -2d -path ${imagedir}/${test_image}.png