5 #########################################################################
6 # Cannot project point on curve
7 #########################################################################
9 2dbsplinecurve b9 2 8 1 2 2 1 3 1 4 1 5 1 6 1 7 1 8 2 4 -3 1 6 8 1 10 11 1 10 11 1 10 11 1 14 14 1 5 8 1
10 2dbsplinecurve b10 2 8 2 2 2.5 1 3 1 3.5 1 4 1 4.5 1 5 1 5.5 2 5 20 1 8 15 1 12 18 1 12 18 1 12 18 1 16 21 1 7 12 1
11 set info [2dextrema b9 b10]
14 for { set i 1 } { $i <= 1 } { incr i 1 } {
15 regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp
16 if { abs($pp - 3.8268201236765877) > 1.0e-7 } {
17 puts "Error : Extrema is wrong on dist $i"
23 puts "Error : Extrema is wrong"
25 puts "OK: Extrema is valid"