1 puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"
3 puts "========================"
5 puts "========================"
7 ############################
8 ## Wrong intersection between two tores.
9 ############################
11 restore [locate_data_file OCC604a.draw] a
12 restore [locate_data_file OCC604b.draw] b
14 if { [catch { intersect result a b } catch_result] } {
15 puts "Faulty OCC604: function INTERSECTION works with exception"
20 set err [lindex [whatis res_$j] 5]
21 if { $err != "curve"} {
24 set nom [expr $nom + 1]
29 puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
31 puts "OCC604 OK : Result of intersection operation is CORRECT !!! "