1 bsplinecurve bscurv 3 2 -1.0 4 1.0 4 0 0 0 1 1 0 0 1 2 0 0 1 3 0 0 1
3 translate bscurv 0 -4 0
5 repeat 100 {cmovepoint bscurv 0 0. 0.05 0.0 ; incr i 1; repaint}
7 repeat 100 {cmovepoint bscurv 0 0. -0.05 0.0 ; incr i 1; repaint}
8 renamevar bscurv result
9 set length 3.0000000000000004