variations
This commit is contained in:
parent
14c673f7e0
commit
845450cad2
@ -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…
Reference in New Issue
Block a user