tests/bugs/modalg_4/bug778_1

   1
   2 puts "========"
   3 puts "OCC778"
   4 puts "SAM1656"
   5 puts "(case 1)"
   6 puts "========"
   7 puts ""
   8 ######################################
   9 ## Incorrect result of cut of the cylinder from the shape.
  10 ######################################
  11
  12 restore [locate_data_file OCC778.brep] a
  13 explode a
  14 checkshape a_1
  15 checkshape a_2
  16
  17 bcut result a_1 a_2
  18
  19 checkprops result -s 13633.6
  20 checkshape result
  21 checkview -display result -2d -path ${imagedir}/${test_image}.png