5 ################################################
6 # Wrong result obtained by Extrema Curve/Curve
7 ################################################
9 restore [locate_data_file bug24504_c1] c1
10 restore [locate_data_file bug24504_c2] c2
12 trim c1t c1 1435.4903148955743 1484.9899809123547
13 trim c2t c2 2590.8671336821694 4503.5062290971819
15 if { [llength [extrema c1t c2t]] != 1 } {
16 puts "Error: expected only one line as result of extrema!"
21 regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength
22 if {$extLength > 1e-12 } {
23 puts "Error: bad distance points obtained"
25 puts "OK: good distance between obtained points "