tests/bugs/moddata_1/bug160_2

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