1 puts "TODO OCC00000 ALL: Faulty OCC602: function BLEND works wrongly"
2 puts "TODO OCC00000 ALL: Tcl Exception: result is not a topological shape!!!"
3 puts "TODO OCC00000 ALL: TEST INCOMPLETE"
5 puts "========================"
7 puts "========================"
9 ###########################################
10 ## Exception during filet creation if it cross samedge of cylinder.
11 ###########################################
13 restore [locate_data_file OCC602.brep] a
18 if [catch {blend result a 20 a_9 } catch_result] {
19 puts "Faulty OCC602: function BLEND works wrongly"
21 puts "OCC602 OK: function BLEND works OK"