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