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 "OCC25708"
puts "========"
puts ""
###########################################################
# GeomAPI_ExtremaCurveCurve does not return all intersection points in 6.8.0
###########################################################
set BugNumber OCC25708
restore [locate_data_file bug25708_interror.brep] b
explode b e
mkcurve c1 b_1
mkcurve c2 b_2
set extrema_res [extrema c1 c2]
set extrema_length [llength ${extrema_res} ]
if {${extrema_length} != 2 } {
puts "Error: GeomAPI_ExtremaCurveCurve does not return all intersection points"
} else {
puts "OK: GeomAPI_ExtremaCurveCurve return all intersection points"
# Distance check
set info [dump ext_1]
regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength1
if {${extLength1} > 1e-14 } {
puts "1. Error: bad distance points obtained"
} else {
puts "1. OK: good distance between obtained points "
}
set info [dump ext_2]
regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength2
if {${extLength2} > 1e-14 } {
puts "2. Error: bad distance points obtained"
} else {
puts "2. OK: good distance between obtained points "
}
}
|
