[occt.git] / tests / bugs / modalg_7 / bug28354

puts "TODO OCC28354 ALL: Error: Filleting destroys shape if the filleted edge touches a seam edge"

puts "============"
puts "OCC28354"
puts "============"
puts ""
###################################################################
# Filleting destroys shape if the filleted edge touches a seam edge
###################################################################

#pcylinder cylinder 4 8
#box box -5 -8 4 10 10 10
#
#bcut res cylinder box
#

restore [locate_data_file bug28354.brep] res

explode res e

blend result_1 res 1.5 res_9
set Log_1 [whatis result_1]
if {[regexp "shape" ${Log_1}] != 1} {
    puts "Error: Filleting destroys shape"
}
checkview -display result_1 -2d -path ${imagedir}/${test_image}-1.png

catch {blend result_2 res 2.2 res_9}
set Log_2 [whatis result_2]
if {[regexp "shape" ${Log_2}] != 1} {
    puts "Error: Filleting destroys shape if the filleted edge touches a seam edge"
}
checkview -display result_2 -2d -path ${imagedir}/${test_image}-2.png
Commit	Line	Data
9026dea8	1	puts "TODO OCC28354 ALL: Error: Filleting destroys shape if the filleted edge touches a seam edge"
	2
	3	puts "============"
	4	puts "OCC28354"
	5	puts "============"
	6	puts ""
	7	###################################################################
	8	# Filleting destroys shape if the filleted edge touches a seam edge
	9	###################################################################
	10
	11	#pcylinder cylinder 4 8
	12	#box box -5 -8 4 10 10 10
	13	#
	14	#bcut res cylinder box
	15	#
	16
	17	restore [locate_data_file bug28354.brep] res
	18
	19	explode res e
	20
	21	blend result_1 res 1.5 res_9
	22	set Log_1 [whatis result_1]
	23	if {[regexp "shape" ${Log_1}] != 1} {
	24	puts "Error: Filleting destroys shape"
	25	}
	26	checkview -display result_1 -2d -path ${imagedir}/${test_image}-1.png
	27
	28	catch {blend result_2 res 2.2 res_9}
	29	set Log_2 [whatis result_2]
	30	if {[regexp "shape" ${Log_2}] != 1} {
	31	puts "Error: Filleting destroys shape if the filleted edge touches a seam edge"
	32	}
	33	checkview -display result_2 -2d -path ${imagedir}/${test_image}-2.png