tests/bugs/modalg_6/bug26938_3

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