tests/bugs/modalg_2/bug571_2

   1 puts "========"
   2 puts "OCC571"
   3 puts "========"
   4 puts ""
   5 ##########################
   6 ## Fillet operation fails on given shape
   7 ##########################
   8 ## LIMITATION: Builds fillet with 0.03<=r<=1.2
   9 ##########################
  10
  11 restore [locate_data_file OCC571.brep] a
  12 checkshape a
  13 explode a
  14
  15 if [catch {fillet result a_1 0.03 a_2 } catch_result] {
  16     puts "Faulty OCC571 exception (case 2): Fillet operation fails on given shape "
  17 } else {
  18     puts " OCC571 (case 2) OK: Fillet operation was made"
  19 }
  20
  21 set square 21209.9
  22 set 2dviewer 0