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
45
46
|
puts "============"
puts "OCC25635"
puts "============"
puts ""
######################################################
# Wrong result of 2D-extrema between two ellipsis
######################################################
ellipse c1 0 0 2 1
ellipse c2 4 0 2 1
set info [2dextrema c1 c2]
set tol_abs 1.e-5
set tol_rel 0.01
#-1
regexp "dist 1: +(\[-0-9.+eE\]+)" ${info} full dist_1
set expected_dist_1 0.
checkreal "Distance" ${dist_1} ${expected_dist_1} ${tol_abs} ${tol_rel}
#-2
set dump_list [dump ext_1]
regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} ${dump_list} full Parameter1 Parameter2
regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full OriginX OriginY
regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full AxisX AxisY
set expected_Parameter1 0.
checkreal "Parameter1" ${Parameter1} ${expected_Parameter1} ${tol_abs} ${tol_rel}
set expected_Parameter2 0.
checkreal "Parameter2" ${Parameter2} ${expected_Parameter2} ${tol_abs} ${tol_rel}
set expected_OriginX 2.
checkreal "OriginX" ${OriginX} ${expected_OriginX} ${tol_abs} ${tol_rel}
set expected_OriginY 7.e-05
checkreal "OriginY" ${OriginY} ${expected_OriginY} ${tol_abs} ${tol_rel}
set expected_AxisX 1.
checkreal "AxisX" ${AxisX} ${expected_AxisX} ${tol_abs} ${tol_rel}
set expected_AxisY 0.
checkreal "AxisY" ${AxisY} ${expected_AxisY} ${tol_abs} ${tol_rel}
|
