tests/bugs/modalg_1/buc60787_2

   1 puts "========"
   2 puts "BUC60787"
   3 puts "BUC60783"
   4 puts "========"
   5
   6 #restore Cut_Shell_Case2.brep S1
   7 #restore Cut_Solid_Case2.brep S2
   8
   9 restore [locate_data_file buc60787c.brep] S1
  10 checkshape S1
  11 restore [locate_data_file buc60787d.brep] S2
  12 checkshape S2
  13
  14 bcut result S1 S2
  15
  16 set nb_info [nbshapes result]
  17 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
  18 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
  19
  20 if { $err != 1 || $err1 != 1} {
  21     puts "Faulty : result should be a shell, but not a compound of faces"
  22 } else {
  23     puts "BUC60787 - OK"
  24 }
  25 set square 150200
  26 set 2dviewer 0