tests/bugs/modalg/bug697_6

   1 puts "============"
   2 puts "OCC697"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Fuse operation does not work
   7 ######################################################
   8 ## (new topology)
   9 ## (bopfuse)
  10 ######################################################
  11
  12 restore [locate_data_file OCC697_1.brep] b1
  13 restore [locate_data_file OCC697_2.brep] b2
  14
  15 checkshape b1
  16 checkshape b2
  17
  18 bop b2 b1
  19 if { [catch {bopfuse result} catch_result] } {
  20    puts "Faulty OCC697"
  21 }
  22 set square 8879.41
  23 set 3dviewer 1
  24