tests/bugs/modalg_4/bug770

   1
   2 puts "========"
   3 puts "OCC770"
   4 puts "SAM1636"
   5 puts "========"
   6 puts ""
   7 ############################
   8 ## Impossible fusing 3 attached shapes
   9 ############################
  10
  11 restore [locate_data_file OCC770.brep] a
  12 explode a
  13 checkshape a_1
  14 checkshape a_2
  15 checkshape a_3
  16
  17 bfuse res1 a_1 a_2
  18
  19 checkshape res1
  20
  21 bfuse result res1 a_3
  22
  23 set square 962546.
  24 set 2dviewer 0