tests/bugs/modalg_4/bug774_1

   1
   2 puts "========"
   3 puts "OCC774"
   4 puts "SAM1647"
   5 puts "(case 1)"
   6 puts "========"
   7 puts ""
   8 #################################
   9 ## It's impossible to cut one shape from another.
  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_1 a_2 } status] } {
  18     puts "Faulty OCC774 (case 1)"
  19 }
  20
  21 set square 50704.6
  22 set 2dviewer 0