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