Browse Source

variations

master
tth 1 year ago
parent
commit
845450cad2
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      generators/lissajous.pl

+ 3
- 3
generators/lissajous.pl View File

@ -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;


Loading…
Cancel
Save