tests/bugs/modalg_4/bug774_2

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO OCC12345 ALL: Error : The area of result shape is"
   3
   4 puts "========"
   5 puts "OCC774"
   6 puts "SAM1647"
   7 puts "(case 2)"
   8 puts "========"
   9 puts ""
  10 #################################
  11 ##
  12 restore [locate_data_file OCC774.brep] a
  13 explode a
  14 checkshape a_1
  15 checkshape a_2
  16
  17 if { [catch { bcut result a_2 a_1 } status] } {
  18     puts "Faulty OCC774 (case 2)"
  19 }
  20
  21 checkprops result -s 0
  22 checkshape result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png