e8746a26 |
1 | puts "============" |
2 | puts "OCC25635" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Wrong result of 2D-extrema between two ellipsis |
7 | ###################################################### |
8 | |
9 | ellipse c1 0 0 2 1 |
10 | ellipse c2 4 0 2 1 |
11 | |
12 | set info [2dextrema c1 c2] |
13 | |
246c7a75 |
14 | set tol_abs 7.e-5 |
e8746a26 |
15 | set tol_rel 0.01 |
16 | |
17 | #-1 |
18 | regexp "dist 1: +(\[-0-9.+eE\]+)" ${info} full dist_1 |
19 | |
2fe4f8f3 |
20 | set expected_dist_1 0. |
e8746a26 |
21 | checkreal "Distance" ${dist_1} ${expected_dist_1} ${tol_abs} ${tol_rel} |
22 | |
23 | #-2 |
24 | set dump_list [dump ext_1] |
25 | |
26 | regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} ${dump_list} full Parameter1 Parameter2 |
27 | regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full OriginX OriginY |
28 | regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full AxisX AxisY |
29 | |
30 | set expected_Parameter1 0. |
31 | checkreal "Parameter1" ${Parameter1} ${expected_Parameter1} ${tol_abs} ${tol_rel} |
32 | |
2fe4f8f3 |
33 | set expected_Parameter2 0. |
e8746a26 |
34 | checkreal "Parameter2" ${Parameter2} ${expected_Parameter2} ${tol_abs} ${tol_rel} |
35 | |
2fe4f8f3 |
36 | set expected_OriginX 2. |
e8746a26 |
37 | checkreal "OriginX" ${OriginX} ${expected_OriginX} ${tol_abs} ${tol_rel} |
38 | |
246c7a75 |
39 | set expected_OriginY 0.0 |
e8746a26 |
40 | checkreal "OriginY" ${OriginY} ${expected_OriginY} ${tol_abs} ${tol_rel} |
41 | |
42 | set expected_AxisX 1. |
43 | checkreal "AxisX" ${AxisX} ${expected_AxisX} ${tol_abs} ${tol_rel} |
44 | |
2fe4f8f3 |
45 | set expected_AxisY 0. |
e8746a26 |
46 | checkreal "AxisY" ${AxisY} ${expected_AxisY} ${tol_abs} ${tol_rel} |