5 #################################################
6 # Wrong result obtained by Exterma Curve/Curve
7 #################################################
9 restore [locate_data_file bug24200_c1] c1
10 restore [locate_data_file bug24200_c2] c2
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"
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
24 set min_length ${edge_length}
26 if { ${min_length} > ${edge_length} } {
27 set min_length ${edge_length}
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}