1 puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
2 puts "TODO ?OCC12345 ALL: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
3 puts "TODO ?OCC12345 MacOS: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
9 #######################################
10 ## Can not intersect two Rectangular Trimmed Surfaces .
11 #######################################
13 restore [locate_data_file OCC567a.draw] s1
14 restore [locate_data_file OCC567b.draw] s2
16 if { [string compare $tcl_platform(platform) "windows"] == 0 } {
17 puts "OS = Windows NT"
24 if { [catch {intersect i s1 s2 } catch_result] } {
25 puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
29 set err [lindex [whatis i_$j] 5]
30 if { $err != "curve"} {
31 puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
34 puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
39 trim s1x s1 0 2*pi 0 2*pi/13
40 trim s2x s2 0 2*pi 0 2*pi/13
42 if { [catch {intersect result s1x s2x } catch_result] } {
43 puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
48 set err [lindex [whatis result_$j] 5]
49 if { $err != "curve"} {
52 set nom [expr $nom + 1]
57 puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
59 puts " OCC565 OK: function intersection works with trimmed Surfaces"