tests/bugs/modalg_4/bug780_2

   1
   2 puts "========"
   3 puts "OCC780"
   4 puts "SAM1239"
   5 puts "(case 2)"
   6 puts "========"
   7 puts ""
   8 #########################################
   9 ## Fuse and common between two faces are wrong (SAM1239)
  10 #########################################
  11
  12 restore [locate_data_file OCC780.brep] f
  13 explode f f
  14 checkshape f_1
  15 checkshape f_2
  16
  17 bfuse result f_1 f_2
  18
  19 set square 12566.4
  20 set 2dviewer 0