puts "========"
puts "OCC28261"
puts "========"
puts ""
#################################################
# Chamfer fails on edges placed on quasi-planar cone
#################################################

brestore [locate_data_file bug28261_face.brep] f
brestore [locate_data_file bug28261_hexaprism.brep] h

explode f E
mkcurve c f_1
cvalue c 0 x y z dx dy dz
revol rev f $x $y $z $dx $dy $dz 360

bcut r rev h

explode r F
explode r_9 E
chamf r r r_9_1 r_9 0.1 0.1  r_9_2 r_9 0.1 0.1  r_9_3 r_9 0.1 0.1  r_9_4 r_9 0.1 0.1  r_9_5 r_9 0.1 0.1  r_9_6 r_9 0.1 0.1

explode r F
explode r_4 E
chamf result r r_4_1 r_4 0.1 0.1  r_4_2 r_4 0.1 0.1  r_4_3 r_4 0.1 0.1  r_4_4 r_4 0.1 0.1  r_4_5 r_4 0.1 0.1  r_4_6 r_4 0.1 0.1  r_4_8 r_4 0.1 0.1

checkshape result
checknbshapes result -solid 1 -face 18 -edge 36 -vertex 22
checkprops result -v 17158.1 -s 4073.25