tests/geometry/law/A1

   1 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
   2 set delta 0.01
   3 2dcvalue law1 1.5 x y dx dy
   4 set value [dval y]
   5 repeat 50 {
   6     movelaw law1 1.5 $value dy  0
   7     set value [expr $value + $delta]
   8     repaint
   9 }
  10 copy law1 result
  11 checklength result -l 3.3374712943009293