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

