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

#KPart: plane + plane, penetrating throat
polyline b 0 0 0  20 0 0  20 0 20  10 0 20  0 0 40  0 0 0
mkplane b b
prism b b 0 20 0
explode b f
explode b_4 e
donly b b_4_1

chamf_throat_with_penetration result b b_4_1 b_4 1. 1.5

checkshape result

checknbshapes result -solid 1 -shell 1 -face 8 -wire 8 -edge 15 -vertex 8 -shape 42

set tolres [checkmaxtol result]

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

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

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