1 puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
7 #######################################
8 ## Can not intersect two Rectangular Trimmed Surfaces .
9 #######################################
11 restore [locate_data_file OCC567a.draw] s1
12 restore [locate_data_file OCC567b.draw] s2
14 if { [catch {intersect i s1 s2 } catch_result] } {
15 puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
19 set err [lindex [whatis i_$j] 5]
20 if { $err != "curve"} {
21 puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
24 puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
29 trim s1x s1 0 2*pi 0 2*pi/13
30 trim s2x s2 0 2*pi 0 2*pi/13
32 if { [catch {intersect result s1x s2x } catch_result] } {
33 puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
38 set err [lindex [whatis result_$j] 5]
39 if { $err != "curve"} {
42 set nom [expr $nom + 1]
47 puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
49 puts " OCC565 OK: function intersection works with trimmed Surfaces"