tests/bugs/modalg_6/bug26938_3

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