tests/bugs/modalg_3/bug615

   1 puts "========================"
   2 puts " OCC615"
   3 puts "========================"
   4 puts ""
   5 #############################
   6 ## Wrong resultat of BLEND operation
   7 #############################
   8
   9 restore [locate_data_file OCC615.brep] a
  10 checkshape a
  11 explode a e
  12
  13 if [catch {blend result a 9 a_15 } catch_result] {
  14     puts "Faulty OCC615: function BLEND works with exception"
  15 } else {
  16     puts "OCC615 OK: function CHAMF works OK"
  17 }
  18
  19 set square 197055.
  20 set 2dviewer 0