tests/bugs/modalg/bug697_7

   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_2.brep] b2
  13 restore [locate_data_file OCC697_3.brep] b3
  14
  15 checkshape b2
  16 checkshape b3
  17
  18 bop b2 b3
  19 if { [catch {bopfuse result} catch_result] } {
  20    puts "Faulty OCC697 "
  21 }
  22 set square 25357.5
  23 set 3dviewer 1
  24