puts "============"
puts "OCC10435"
puts "============"
puts ""
#######################################################################
# error in fillet after Cut of torus from box
#######################################################################

set BugNumber OCC10435

restore [locate_data_file OCC10435.brep] a 

checkshape a
explode a e

set radius 5.

if { [catch {fillet result a ${radius} a_10 ${radius} a_15 ${radius} a_16 } catch_result] } {
    puts "Faulty ${BugNumber} exception (case 1): Fillet operation fails on given shape "
} else {
    puts "${BugNumber} (case 1) OK: Fillet operation was made"

    set square 36455.2

    # Analysis of "nbshapes res"
    set nb_v_good 12
    set nb_e_good 19
    set nb_w_good 11
    set nb_f_good 10
    set nb_sh_good 1
    set nb_sol_good 1
    set nb_compsol_good 0
    set nb_compound_good 1
    set nb_shape_good 55
}

set 2dviewer 0

