Commit | Line | Data |
---|---|---|
18e25fc9 | 1 | 2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4 0 0 1 1 2 1 2 2 1 2 2 1 3 2 1 4 2 1 5 4 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 7.7885445456401925 | |
11 |