diff --git a/.gitignore b/.gitignore index 65085b8..9b3439b 100644 --- a/.gitignore +++ b/.gitignore @@ -17,4 +17,8 @@ doc/*.ind functions/*.[oa] tools/udp-dumper +tools/*.o + +specific/joy2laser +specific/*.o diff --git a/generators/moresinus.pl b/generators/moresinus.pl new file mode 100755 index 0000000..0a8324b --- /dev/null +++ b/generators/moresinus.pl @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w + + +use Net::OpenSoundControl::Client; +use Data::Dumper qw(Dumper); +use Getopt::Std; + +my $client; +my $verbose = 0; +my $dhost = "localhost"; +my $dport = 9000; + +# ---------------------------------------------------------- + +sub AskErase($) +{ +my $b = shift; +$client->send(['/joystick/b', 'i', $b, 'i', 1]); +$client->send(['/joystick/b', 'i', $b, 'i', 0]); +} + +# ---------------------------------------------------------- +print "--- Moresinus $$ ---\n"; + +getopts('d:v', \%options); + +if (defined $options{"d"}) { + # print Dumper $options{"d"}; + ($dhost, $dport) = split /:/, $options{"d"}; + } +$verbose = 1 if (defined $options{"v"}); +print "trashing ", $dhost, " on port ", $dport, "\n"; + +$client = Net::OpenSoundControl::Client->new( + Host => $dhost, Port => $dport) + or die "Could not start client: $@\n"; + +print Dumper $client if $verbose; + +# ---------------------------------------------------------- + +AskErase(50); +srand($$); +print " ", rand(1000), "\n"; + +my ($t, $v, $r1, $r2, $phi); + +$r1 = rand(100) + 1600; +$r2 = rand(100) + 3200; +$phi = rand(3124) / 1000.0; +print " $r1 $r2 $phi\n" if $verbose; + +for ($t = -32000; $t < 32000; $t+=150) { + + $v = 15000 * (sin($t / $r1) + cos($phi + ($t / $r2))); + + # print $t, " --> ", $v, "\n"; + + $client->send(['/joystick/xy', 'i', $t, 'i', $v]); + + sleep 1 if (($t % 16) == 0); + } + diff --git a/specific/Makefile b/specific/Makefile new file mode 100644 index 0000000..e9f3259 --- /dev/null +++ b/specific/Makefile @@ -0,0 +1,12 @@ + + +OPTS = -Wall -g -DDEBUG_LEVEL=0 + + +laserblast.o: laserblast.c Makefile + gcc -c ${OPTS} $< + +joy2laser: joy2laser.c Makefile laserblast.o + gcc ${OPTS} $< laserblast.o ../functions/libpocosc.a -llo -o $@ + + diff --git a/specific/README.md b/specific/README.md new file mode 100644 index 0000000..158fb0f --- /dev/null +++ b/specific/README.md @@ -0,0 +1,4 @@ +# joy2laser + +Kluge intuité pendant [Sonoptic 2020](https://sonoptic.net). + diff --git a/specific/joy2laser.c b/specific/joy2laser.c new file mode 100644 index 0000000..4ae1daa --- /dev/null +++ b/specific/joy2laser.c @@ -0,0 +1,131 @@ +/* + * Joystick to Laser + * + * Sonoptic 2020 + */ + + +#include +#include +#include +#include +#include + +#include /* OSC library */ + +#include "laserblast.h" + +/* ------------------------------------------------------------------- */ + +#define LOCAL_PORT "9000" +#define REMOTE_HOST "localhost" /* just loling */ +#define REMOTE_PORT "9999" + +int verbosity = 0; + +int scenenumber = 1, + lasernumber = 1; +/* ------------------------------------------------------------------- */ +int draw_this_point(int x, int y) +{ +float fx, fy; + +fx = (32768.0 + (float)x) / 94.7; +fy = (32768.0 + (float)y) / 94.7; + +#define SZ 10.0 + +blast_rewind(); +blast_addpoint(fx-SZ, fy-SZ, 0xffffff); +blast_addpoint(fx-SZ, fy+SZ, 0xffffff); +blast_addpoint(fx+SZ, fy+SZ, 0xffffff); +blast_addpoint(fx+SZ, fy-SZ, 0xffffff); +blast_addpoint(fx-SZ, fy-SZ, 0); + +blast_flush(0); + +return -1; +} +/* ------------------------------------------------------------------- */ +int xy_handler(const char *path, const char *types, lo_arg ** argv, + int argc, void *data, void *user_data) +{ +int val_x, val_y; +int foo; + +#if DEBUG_LEVEL +fprintf(stderr, "%s ( %s %s %d )\n", __func__, path, types, argc); +#endif + +val_x = argv[0]->i; val_y = argv[1]->i; + +if (verbosity) fprintf(stderr, "%6d %6d\n", val_x, val_y); + +foo = draw_this_point(val_x, val_y); + +return 0; +} +/* ------------------------------------------------------------------- */ +void error(int num, const char *msg, const char *path) +{ +fprintf(stderr, "liblo server error %d in path %s : %s\n", num, path, msg); +exit(1); +} +/* ------------------------------------------------------------------- */ +int help(int k) +{ +puts("HELP ME !"); +return 0; +} +/* ------------------------------------------------------------------- */ +int main(int argc, char *argv[]) +{ +char *local_port = LOCAL_PORT; +char *remote_host = REMOTE_HOST; +char *remote_port = REMOTE_PORT; + +int opt, foo; +lo_server_thread st; +long starttime; + +/* parsing command line options */ +while ((opt = getopt(argc, argv, "hp:vL:S:")) != -1) { + switch (opt) { + case 'h': if (help(0)) exit(1); break; + case 'p': local_port = optarg; break; + case 'R': remote_host = optarg; break; + case 'P': remote_port = optarg; break; + case 'L': lasernumber = atoi(optarg); break; + case 'S': scenenumber = atoi(optarg); break; + case 'v': verbosity++; break; + } + } + +if (verbosity) { + fprintf(stderr, "-----------: %s\n", argv[0]); + fprintf(stderr, "pid : %d\n", getpid()); + fprintf(stderr, "local port : %s\n", local_port); + fprintf(stderr, "scene : %d\n", scenenumber); + fprintf(stderr, "laser : %d\n", lasernumber); + } + +foo = blast_init(remote_host, remote_port, scenenumber, lasernumber); + + +st = lo_server_thread_new(local_port, error); +lo_server_thread_add_method(st, "/joystick/xy", "ii", xy_handler, NULL); + +lo_server_thread_start(st); + +starttime = time(NULL) / 60; + +for (;;) { + if (verbosity) + fprintf(stderr, "\tt = %ld min.\n", + (time(NULL)/60L) - starttime); + sleep(60); + } + +return 8; +} +/* ------------------------------------------------------------------- */ \ No newline at end of file diff --git a/specific/laserblast.c b/specific/laserblast.c new file mode 100644 index 0000000..cbeb536 --- /dev/null +++ b/specific/laserblast.c @@ -0,0 +1,104 @@ +/* + * laserblsat over OSC + * + * Sonoptic 2020 + */ + +#include +#include +#include +#include + +#include /* OSC library */ + +/* ------------------------------------------------------------------- */ + +#define BUFF_SIZE 8000 + +static char big_buffer[BUFF_SIZE+2]; +static int curpos; +static int la_scene, le_laser; +static lo_address lo_addr; + +extern int verbosity; + +/* ------------------------------------------------------------------- */ +int blast_init(char *host, char *port, int scene, int laser) +{ + +/* prepare OSC transmission */ +lo_addr = lo_address_new(host, port); +if (verbosity) { + fprintf(stderr, "%s is sending to %s:%s\n", __FILE__, host, port); + } + +la_scene = scene, le_laser = laser; + +/* manage our internals memories */ +big_buffer[0] = '\0'; /* clear buffer */ +curpos = 0; /* index in buffer */ + +return -1; +} +/* ------------------------------------------------------------------- */ +int blast_rewind(void) +{ + +if (verbosity) fprintf(stderr, "Blast rewind\n"); + +big_buffer[0] = '\0'; /* clear buffer */ +curpos = 0; /* index in buffer */ + +strcat(big_buffer, "["); curpos++; + +return -1; +} +/* ------------------------------------------------------------------- */ +int blast_addpoint(float x, float y, long col) +{ +char buff[100]; +int foo, sz; + +sz = sprintf(buff, "(%f, %f, %ld),", x, y, col); + +if (verbosity) + fprintf(stderr, "%s --> %s\n", __func__, buff); + +/* check free space in bigbuffer */ +if ( (curpos+sz) > BUFF_SIZE ) { + fprintf(stderr, "buffer overflow in %s\n", __func__); + exit(1); + } + +strcat(big_buffer, buff); curpos += sz; + +return -1; +} +/* ------------------------------------------------------------------- */ +int blast_flush(void) +{ +int foo; +char buffer[100]; + +big_buffer[curpos-1] = ']'; big_buffer[curpos] = '\0'; + +if (verbosity) + fprintf(stderr, "BLAST %s\n", big_buffer); + +sprintf(buffer, "/pl/%d/%d", la_scene, le_laser); + +foo = lo_send(lo_addr, buffer, "s", big_buffer); +if (-1==foo) { + fprintf(stderr, "%s : error %d\n", __func__, foo); + return -1; + } + +return 0; +} +/* ------------------------------------------------------------------- */ +/* ------------------------------------------------------------------- */ +/* ------------------------------------------------------------------- */ + + + + diff --git a/specific/laserblast.h b/specific/laserblast.h new file mode 100644 index 0000000..f80d1be --- /dev/null +++ b/specific/laserblast.h @@ -0,0 +1,12 @@ +/* + * laserblast.h + * + * sonoptic 2020 + */ + +int blast_init(char *host, char *port, int scene, int laser); +int blast_rewind(void); + +int blast_addpoint(float fx, float fy, long col); +int blast_flush(int notused); +