puts "===================================================================="
puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
puts "===================================================================="
puts ""

#nurbsconvert all shape
pcylinder a1 10 50
box a2 -20 -20 -20  40 40 40
bfuse a a1 a2
nurbsconvert b a
explode b f
explode b_1 e
donly b b_1 b_1_2

chamf_throat_with_penetration result b b_1_2 b_1 1. 2.

checkshape result

checknbshapes result -solid 1 -shell 1 -face 9 -wire 10 -edge 17 -vertex 11 -shape 50

set tolres [checkmaxtol result]

if { ${tolres} > 0.0001} {
   puts "Error: bad tolerance of result"
}

checkprops result -v 73604.1 -deps 1.e-7

checkview -display result -2d -path ${imagedir}/${test_image}.png
