bsplinecurve b1 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
copy b1 b2
pl
pl
pl
pl
repeat 10 {
rotate b2 0 0 0 1 0 0 10
copy b2 .
}
renamevar b2 result
set length 6.8205704232858668