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