tests/bugs/modalg_4/bug770

   1 puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
   3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
   4
   5 puts "========"
   6 puts "OCC770"
   7 puts "SAM1636"
   8 puts "========"
   9 puts ""
  10 ############################
  11 ## Impossible fusing 3 attached shapes
  12 ############################
  13
  14 restore [locate_data_file OCC770.brep] a
  15 explode a
  16 checkshape a_1
  17 checkshape a_2
  18 checkshape a_3
  19
  20 bfuse res1 a_1 a_2
  21
  22 checkshape res1
  23
  24 bfuse result res1 a_3
  25
  26 set square 962546.
  27 set 2dviewer 0