puts "================"
puts "OCC32"
puts "================"
puts ""
#######################################################
## Standard_ConstructionError in Algo of the BRepFilletAPI_MakeChamfer
#######################################################

restore [locate_data_file OCC31.brep] sh 
checkshape sh

explode sh f
explode sh_1 e

if [catch {chamf res sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45} inf] {
    if { [regexp "No suitable edges to chamfer" $inf] != 1 } {
	puts "OK. Chamfer was not build. But suitable message was given"
    }
    renamevar res result
} else {
    checkshape res
    explode res f
    explode res_1 e
    #But before chamfer two edges (res_1_4, res_1_5) union should be to make one arc
    catch {chamf result res res_1_4 res_1 5 5} info

    if { [regexp "No suitable edges to chamfer" $info] != 1 } {
	puts "Warning. Chamfer was not build. But suitable message was given"
    } else {
	checkshape result
	set square 10
    }
}
set 2dviewer 0



