5 #################################################
6 # Wrong result obtained by Extrema Curve/Curve
7 #################################################
9 restore [locate_data_file bug24200_c1] c1
10 restore [locate_data_file bug24200_c2] c2
11 set info_1 [extrema c1 c2]
13 trim c1t c1 677.8 678.8
17 cvalue c1t 678.34269564178146 x y z
19 cvalue c2t 2478.1205500811761 x y z
22 regexp {([-0-9.+eE]+)} [dump d_val] full dist
24 set checkdist 1.13686837721616e-013
26 if { [expr 1.*abs($checkdist - $dist)/$checkdist] > 0.1 } {
27 puts "Error : Distance is wrong"
29 puts "OK: Distance is correct"