tests/bugs/modalg/bug571_1

   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 puts [checkshape a]
  13 explode a
  14
  15 if [catch {fillet result a_1 1.2 a_2 } catch_result] {
  16     puts "Faulty OCC571 exception (case 1): Fillet operation fails on given shape "
  17 } else {
  18     puts " OCC571 (case 1) OK: Fillet operation was made"
  19 }
  20
  21 set square 21118.1
  22 set 2dviewer 0