tests/bugs/modalg/bug110_4

   1
   2 puts "========================"
   3 puts "  BUC60706 "
   4 puts " OCC110 "
   5 puts "(case 4)"
   6 puts "========================"
   7
   8 restore [locate_data_file buc60706j.brep] f
   9 puts [checkshape f]
  10
  11 restore [locate_data_file buc60706b.brep] w
  12 puts [checkshape w]
  13 pipe t w f
  14
  15 restore [locate_data_file buc60706l.brep] s
  16 puts [checkshape s]
  17
  18 bcut result s t
  19 catch {exec rm ${imagedir}/buc60706o.brep}
  20 save result ${imagedir}/buc60706o.brep
  21
  22 set square 861712
  23 set 2dviewer 0