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

#non-KPart: cylinder + plane (intersection is line), penetrating throat
pcylinder a1 10 50
box a2 -20 -20 -20  25 40 40
bfuse b a1 a2
savehistory hh

explode a1 f
modified ff hh a1_1
generated ee hh a1_1
explode ee
donly b ff ee_3 ee_4

chamf_throat_with_penetration result b  ee_3 ff 1. 1.2  ee_4 ff 1. 1.2

checkshape result

checknbshapes result -solid 1 -shell 1 -face 11 -wire 11 -edge 31 -vertex 22 -shape 78

set tolres [checkmaxtol result]

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

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

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