tTh/gadgets-OSC
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

variations

Browse Source
This commit is contained in:
tth 2020-10-12 13:53:08 +02:00
parent 14c673f7e0
commit 845450cad2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
generators/lissajous.pl
View File

@ -34,7 +34,7 @@ for ($i = 0; $i <= 360; $i++) {
$client->send(['/joystick/xy', 'i', $x, 'i', $y]); $client->send(['/joystick/xy', 'i', $x, 'i', $y]);
# sleep 0.42; # 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', 1]);
$client->send(['/joystick/b', 'i', 50, 'i', 0]); $client->send(['/joystick/b', 'i', 50, 'i', 0]);
} }
@ -60,8 +60,8 @@ print Dumper $client if $verbose;
my ($xk, $yk, $phase); my ($xk, $yk, $phase);
for ($xk=1; $xk<4; $xk++) { for ($xk=1; $xk<6; $xk++) {
for ($yk=1; $yk<4; $yk++) { for ($yk=1; $yk<6; $yk++) {
print "$$ -> $xk $yk\n"; print "$$ -> $xk $yk\n";
for ($phase=0.0; $phase<1.5705; $phase+=0.0911) { for ($phase=0.0; $phase<1.5705; $phase+=0.0911) {
print "phi = ", $phase, "\n" if $verbose; print "phi = ", $phase, "\n" if $verbose;