tests/bugs/modalg/buc60788_1

   1
   2 puts "============"
   3 puts "BUC60788"
   4 puts "case 1"
   5 puts "============"
   6
   7 #restore Intersection_Shell1_Case1.brep S1
   8 #restore Intersection_Shell2_Case1.brep S2
   9
  10 restore [locate_data_file buc60788a.brep] S1
  11 checkshape S1
  12 restore [locate_data_file buc60788b.brep] S2
  13 checkshape S2
  14
  15 bsection result S1 S2
  16
  17 set nb_info [nbshapes result]
  18 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
  19 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
  20
  21 if { $err != 4 && $err1 != 3} {
  22     puts "Faulty :  result (res) is incorrect"
  23 } else {
  24     puts "BUC60788 - OK"
  25 }
  26
  27 set length 750
  28 set 2dviewer 0