tests/geometry/2dbsplinecurve/B1

   1 2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 1  1 0.5 1   2 1 1  2 2 1  3 1.5 1  4 1.5 1   5 2 1
   2 2dcvalue b1 2.0 x y  dx dy
   3 set delta 0.005
   4 point p1 x y
   5 set dyvalue [dval dy]
   6 repeat 100  {
   7         cmovetangent b1 2.0  x y dx $dyvalue 1
   8         set dyvalue [expr $dyvalue + $delta ]
   9         repaint }
  10 copy b1 result
  11 set length 5.9590472422107315
  12