puts "============"
puts "OCC23706"
puts "============"
puts ""
#########################################################################
# Cannot project point on curve
#########################################################################

pload XSDRAW
2dbsplinecurve c1 2 5 0 3 0.2 1 0.3 1 0.4 1 0.5 3 2 0 1 3 -1 1 5 5 1 5 5 1 6 8 1 4 7 1
offset2dcurve o1 c1 2

set info [length o1]
regexp {The length o1 is+ +([-0-9.+eE]+)} $info full ll
set ll_check 19.244437838214424

if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
   puts "Error : The lenght of result shape is $ll"
}