Browse Source

variations

master
tth 2 years ago
parent
commit
845450cad2
  1. 6
      generators/lissajous.pl

6
generators/lissajous.pl

@ -34,7 +34,7 @@ for ($i = 0; $i <= 360; $i++) { @@ -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; @@ -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;

Loading…
Cancel
Save