tests/bugs/modalg_6/bug26938_3

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