352ffd73 |
1 | puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces" |
2 | |
3 | puts "========" |
4 | puts "OCC567" |
5 | puts "========" |
6 | puts "" |
7 | ####################################### |
8 | ## Can not intersect two Rectangular Trimmed Surfaces . |
9 | ####################################### |
10 | |
11 | restore [locate_data_file OCC567a.draw] s1 |
12 | restore [locate_data_file OCC567b.draw] s2 |
13 | |
14 | if { [catch {intersect i s1 s2 } catch_result] } { |
15 | puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces" |
16 | } else { |
17 | set j 1 |
18 | repeat 11 { |
19 | set err [lindex [whatis i_$j] 5] |
20 | if { $err != "curve"} { |
21 | puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces" |
22 | break |
23 | } else { |
24 | puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j] |
25 | } |
26 | incr j} |
27 | } |
28 | |
29 | trim s1x s1 0 2*pi 0 2*pi/13 |
30 | trim s2x s2 0 2*pi 0 2*pi/13 |
31 | |
32 | if { [catch {intersect result s1x s2x } catch_result] } { |
33 | puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces" |
34 | } else { |
35 | set nom 0 |
36 | set j 1 |
37 | repeat 11 { |
38 | set err [lindex [whatis result_$j] 5] |
39 | if { $err != "curve"} { |
40 | break |
41 | } else { |
42 | set nom [expr $nom + 1] |
43 | } |
44 | incr j |
45 | } |
46 | if { $nom == 0} { |
47 | puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces" |
48 | } else { |
49 | puts " OCC565 OK: function intersection works with trimmed Surfaces" |
50 | } |
51 | } |
52 | |