From 845450cad279fc9e88b0be40e59697526816d1f9 Mon Sep 17 00:00:00 2001 From: tth Date: Mon, 12 Oct 2020 13:53:08 +0200 Subject: [PATCH] variations --- generators/lissajous.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/generators/lissajous.pl b/generators/lissajous.pl index 1b2542e..a0881f8 100755 --- a/generators/lissajous.pl +++ b/generators/lissajous.pl @@ -34,7 +34,7 @@ for ($i = 0; $i <= 360; $i++) { $client->send(['/joystick/xy', 'i', $x, 'i', $y]); # sleep 0.42; } -sleep 2+rand(2); +sleep 1+rand(2); $client->send(['/joystick/b', 'i', 50, 'i', 1]); $client->send(['/joystick/b', 'i', 50, 'i', 0]); } @@ -60,8 +60,8 @@ print Dumper $client if $verbose; my ($xk, $yk, $phase); -for ($xk=1; $xk<4; $xk++) { - for ($yk=1; $yk<4; $yk++) { +for ($xk=1; $xk<6; $xk++) { + for ($yk=1; $yk<6; $yk++) { print "$$ -> $xk $yk\n"; for ($phase=0.0; $phase<1.5705; $phase+=0.0911) { print "phi = ", $phase, "\n" if $verbose;