0023471: Intersection algorithm produces overlapping intersection curves
[occt.git] / tests / bugs / moddata_2 / bug567
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 { [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
22 if { [catch {intersect i s1 s2 } catch_result] } {
23     puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
24 } else {
25    set j 1
26    repeat ${N_repeat} {
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
37 trim s1x s1 0 2*pi 0 2*pi/13
38 trim s2x s2 0 2*pi 0 2*pi/13
39
40 if { [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