--- /dev/null
+law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6 0 0 0.1 0.2 0.7 0.3 1 1
+set delta 0.007
+2dcvalue law1 1.5 x y dx dy
+set tvalue [dval dy]
+repeat 100 {
+ movelaw law1 1.5 y $tvalue 1
+ set tvalue [expr $tvalue + $delta]
+ repaint }
+copy law1 result
+set length 3.3254491241005475
+