l l1 1 0 0.0 n1 m m1 0 1 0 n1 n2 pd P n2 set P.re P re lock test $P.re -0.1 1e-6 -1 put l1 P $test noxaxis