tests/bugs/moddata/bug160_3

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