5 #########################################################################
6 # Cannot project point on curve
7 #########################################################################
10 bsplinecurve cc 3 2 0 4 1 4 -1 -1 2 1 0 -1 2 1 0 0 2 1 0 0 2 1
12 offsetcurve o cc .5 pp
14 regexp {The length o is+ +([-0-9.+eE]+)} $info full ll
15 set ll_check 2.3717833300483151
17 if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
18 puts "Error : The lenght of result shape is $ll"