[occt.git] / tests / bugs / moddata_3 / bug32

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
	checkprops result -s 10
    }
}
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
06da7b7e	1	puts "================"
	2	puts "OCC32"
	3	puts "================"
	4	puts ""
	5	#######################################################
	6	## Standard_ConstructionError in Algo of the BRepFilletAPI_MakeChamfer
	7	#######################################################
	8
	9	restore [locate_data_file OCC31.brep] sh
	10	checkshape sh
	11
	12	explode sh f
	13	explode sh_1 e
	14
	15	if [catch {chamf res sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45} inf] {
	16	if { [regexp "No suitable edges to chamfer" $inf] != 1 } {
	17	puts "OK. Chamfer was not build. But suitable message was given"
	18	}
	19	renamevar res result
	20	} else {
	21	checkshape res
	22	explode res f
	23	explode res_1 e
	24	#But before chamfer two edges (res_1_4, res_1_5) union should be to make one arc
	25	catch {chamf result res res_1_4 res_1 5 5} info
	26
	27	if { [regexp "No suitable edges to chamfer" $info] != 1 } {
	28	puts "Warning. Chamfer was not build. But suitable message was given"
	29	} else {
	30	checkshape result
58cf74e0	31	checkprops result -s 10
06da7b7e	32	}
06da7b7e	33	}
5747059b	34	checkview -display result -2d -path ${imagedir}/${test_image}.png
06da7b7e	35
	36
	37