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
|
puts "================"
puts "OCC25898"
puts "================"
puts ""
#######################################################################
# Wrong result obtained by intersection algorithm.
#######################################################################
# Before fix intersection algorithm threw an exception.
restore [locate_data_file bug25898_x001_1.draw] s1
restore [locate_data_file bug25898_x001_2.draw] s2
set CurveNumb [intersect i s1 s2]
if { [llength ${CurveNumb}] != 2 } {
puts "Error : Wrong result obtained by intersection algorithm."
} else {
puts "OK : Good result obtained by intersection algorithm."
}
smallview
fit
set only_screen_axo 1
|
