tests/bugs/moddata_1/bug160_6

   1 puts "TODO OCC12345 ALL: Error : the resulting shape is unclosed!!!"
   2
   3 puts "========================"
   4 puts "BUC60775"
   5 puts "OCC160"
   6 puts "(CUT: B and A)"
   7 puts "========================"
   8
   9 restore [locate_data_file buc60775a.brep] a
  10 checkshape a
  11 restore [locate_data_file buc60775b.brep] b
  12 checkshape b
  13
  14 bcut result b a
  15 checkshape result
  16
  17 set nf [llength [explode result f]]
  18 if {$nf < 6} {
  19    puts "Error : the resulting shape is unclosed!!!"
  20 }
  21
  22 set square 247636
  23 set 2dviewer 0
  24
  25