1puts "================"
2puts "OCC25416"
3puts "================"
4puts ""
5#######################################################################
6# Wrong section curve
7#######################################################################
8
9#Check if intersection algorithm produces overlapped curves
10
11restore [locate_data_file bug25416_s1.draw] s1
12restore [locate_data_file bug25416_s2.draw] s2
13
14set ll [intersect ii s1 s2]
15
16set status 0
17if { [llength $ll] < 1 } {
18    set status 1
19}
20
21foreach i $ll {
22   foreach j $ll {
23      if { $i >= $j } continue
24
25      mkedge e1 $i
26      mkedge e2 $j
27      set coe [checkoverlapedges e1 e2]
28
29      puts "$i<->$j: $coe"
30      if { [regexp "Edges are not overlapped" $coe] != 1 } {
31         set status 2
32      }
33   }
34}
35
36if { $status != 0 } {
37    puts "Wrong section. Error with code $status"
38} else {
39    puts "OK: Good section"
40}
41