tests/bugs/modalg_5/bug23933

   1 puts "============"
   2 puts "OCC23933"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Self intersection reported after Fuse operation
   7 ######################################################
   8
   9 restore [locate_data_file bug23933_a.brep] a
  10 restore [locate_data_file bug23933_b.brep] b
  11
  12 checkshape a
  13 checkshape b
  14 bopargcheck a b -F
  15
  16 if { [catch {bfuse result a b} catch_result] } {
  17     puts "Faulty OCC697"
  18 }
  19
  20 checkshape result
  21 bopargcheck result
  22
  23 checkprops result -s 246487
  24 checkview -display result -3d -path ${imagedir}/${test_image}.png