tests/bugs/modalg/buc60789_2

   1
   2 puts "========"
   3 puts "BUC60789"
   4 puts "========"
   5 puts ""
   6
   7 #restore buc60789c.brep S1
   8 ##by apn
   9 restore [locate_data_file buc60787b.brep] S1
  10 checkshape S1
  11 restore [locate_data_file buc60789d.brep] S2
  12 checkshape S2
  13
  14 bcut result S2 S1
  15
  16 set nb_info [nbshapes result]
  17 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
  18 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
  19
  20  if { $ve != 0 && $ed != 0 } {
  21      puts  " BUC60789 OK: CUT operation was made properly"
  22  } else {
  23      puts "Faulty BUC60789: CUT operation was made wrongly"
  24  }
  25 set length 288.856
  26 set 2dviewer 0