[occt.git] / tests / geometry / law / A2

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
Commit	Line	Data
18e25fc9	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.007
	3	2dcvalue law1 1.5 x y dx dy
	4	set tvalue [dval dy]
	5	repeat 100 {
	6	movelaw law1 1.5 y $tvalue 1
	7	set tvalue [expr $tvalue + $delta]
	8	repaint }
	9	copy law1 result
	10	set length 3.3254491241005475
	11