add generators/lissajous.pl

generators/lissajous.pl

@@ -0,0 +1,75 @@
+#!/usr/bin/perl -w
+
+#
+#		Ugly code by tTh
+#
+
+
+my $port = 9000;
+my $target = "localhost";
+
+# ----------------------------------------------------------
+
+use Net::OpenSoundControl::Client;
+use Data::Dumper qw(Dumper);
+use Getopt::Std;
+
+my $client;
+my $verbose = 0;
+
+# ----------------------------------------------------------
+
+sub lissajous($$$)
+{
+my $kx = shift;		my $ky = shift;
+my $phi = shift;
+
+my ($i, $rads, $x, $y);
+	
+for ($i = 0; $i <= 360; $i++) {
+	$rads = $i * (3.141592654/180);	
+	$x = int(31250*sin(($rads*$kx)+$phi));
+	$y = int(31250*cos($rads*$ky));
+	# printf "%5d  %9f   %6d  %6d\n", $i, $rads, $x, $y;
+	$client->send(['/joystick/xy', 'i', $x, 'i', $y]);
+	# sleep 0.42;
+	}
+sleep 2+rand(2);
+$client->send(['/joystick/b', 'i', 50, 'i', 1]);
+$client->send(['/joystick/b', 'i', 50, 'i', 0]);
+}
+
+# ----------------------------------------------------------
+#		main proggy
+
+getopts('d:v', \%options);
+
+if (defined $options{"d"}) {
+	# print Dumper $options{"d"};
+	($target, $port) = split /:/, $options{"d"};
+	}
+$verbose = 1 if (defined $options{"v"});
+print "trashing ", $target, " on port ", $port, "\n";
+
+
+$client =  Net::OpenSoundControl::Client->new(
+		Host => $target, Port => $port)
+		or die "Could not start client: $@\n";
+
+print Dumper $client if $verbose;
+
+my ($xk, $yk, $phase);
+
+for ($xk=1; $xk<4; $xk++) {
+	for ($yk=1; $yk<4; $yk++) {
+		print "$$   ->   $xk  $yk\n";
+		for ($phase=0.0; $phase<1.5705; $phase+=0.0911) {
+			print "phi = ", $phase, "\n" if $verbose;
+			lissajous($xk, $yk, $phase);
+			}
+		}
+	}	 
+
+
+
+