tests/bugs/modalg_4/bug780_1

   1
   2 puts "========"
   3 puts "OCC780"
   4 puts "SAM1239"
   5 puts "(case 1)"
   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 bcommon result f_1 f_2
  18
  19 checkprops result -s 6283.19
  20 checkshape result
  21 checkview -display result -2d -path ${imagedir}/${test_image}.png