1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
4 puts "========================"
6 puts "========================"
8 ###########################################
9 ## Exception during filet creation if it cross samedge of cylinder.
10 ###########################################
12 restore [locate_data_file OCC602.brep] a
17 if [catch {blend result a 20 a_9 } catch_result] {
18 puts "Faulty OCC602: function BLEND works wrongly"
20 puts "OCC602 OK: function BLEND works OK"