aa094b3e |
1 | puts "============" |
2 | puts "OCC24327" |
3 | puts "============" |
4 | puts "" |
5 | ################################################# |
6 | # Wrong result obtained by Exterma Curve/Curve |
7 | ################################################# |
8 | |
9 | restore [locate_data_file bug24200_c1] c1 |
10 | restore [locate_data_file bug24200_c2] c2 |
11 | |
12 | trim c1t c1 0. 1260. |
13 | trim c2t c2 0. 6142. |
14 | |
15 | set info_1 [extrema c1t c2t] |
16 | set extrema_N [llength ${info_1}] |
17 | if { ${extrema_N} < 1 } { |
18 | puts "Error : Extrema is wrong" |
19 | } else { |
20 | for { set i 1 } { ${i} <= ${extrema_N} } { incr i } { |
21 | set info_2 [length ext_${i}] |
22 | regexp { is +([-0-9.+eE]+)} ${info_2} full edge_length |
23 | if { ${i} == 1 } { |
24 | set min_length ${edge_length} |
25 | } |
26 | if { ${min_length} > ${edge_length} } { |
27 | set min_length ${edge_length} |
28 | } |
29 | } |
30 | set expected_length 2.8421709430404007e-13 |
31 | set tol_abs_length 1.0e-07 |
32 | set tol_rel_length 0.01 |
33 | checkreal "Minimal length" ${min_length} ${expected_length} ${tol_abs_length} ${tol_rel_length} |
34 | } |