puts "================"
puts "OCC25408"
puts "================"
puts ""
#######################################################################
# Wrong result obtained by General Fuse operator.
#######################################################################

restore [locate_data_file bug25408_bride_cut.brep] b1
restore [locate_data_file bug25408_goujon_part_tool2_cut.brep] b4
restore [locate_data_file bug25408_RevolPart.brep] b5

#
explode b4 f
copy b4_1 b4
#
explode b5 f
copy b5_1 b5
#

bclearobjects
bcleartools
baddobjects b1 b4 b5

bfillds
bbuild result

checkprops result -s 57200.9 
checkshape result

checknbshapes result -vertex 54 -edge 129 -wire 95 -face 95 -shell 22 -solid 22 -compsolid 0 -compound 2 -shape 419
checkview -display result -3d -path ${imagedir}/${test_image}.png