OCCT

puts "========================"
puts " SAL594 "
puts "========================"
puts ""
###################################
## It is impossible to put correct fillets on the shape
###################################

restore [locate_data_file SAL594.brep] a 
explode a e

if [catch {blend result1 a 20 a_23 20 a_25 20 a_26 20 a_28} catch_result] {
    puts "Faulty SAL594 (case 1): function BLEND works wrongly"
} else {
    puts "SAL594  OK (case 1):  function BLEND works OK"
}

if [catch {blend result result1 2.5 a_15 2.5 a_12 2.5 a_4} catch_result] {
    puts "Faulty SAL594 (case 2): function BLEND works wrongly."
} else {
    puts "SAL594  OK (case 2):  function BLEND works OK"
}

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