0023476: Integration of test grid "cge" into the new testing system
[occt.git] / tests / geometry / 2dbsplinecurve / A9
1 2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0.8  1 0.5 0.6   2 1 0.5  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.01
4 set yvalue [dval y] 
5 repeat 100  {
6         cmovetangent b1 2.0  x $yvalue  dx dy  1
7         set yvalue [expr $yvalue + $delta ]
8         repaint }
9 copy b1 result
10 set length 6.9832866524628034
11