tests/bugs/modalg_4/bug770

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