puts "========"
puts "OCC571"
puts "========"
puts ""
##########################
## Fillet operation fails on given shape
##########################
## LIMITATION: Builds fillet with 0.03<=r<=1.2
##########################

restore [locate_data_file OCC571.brep] a 
checkshape a
explode a

if [catch {fillet result a_1 0.03 a_2 } catch_result] {
    puts "Faulty OCC571 exception (case 2): Fillet operation fails on given shape "
} else {
    puts " OCC571 (case 2) OK: Fillet operation was made"
}

checkprops result -s 21209.9 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
