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