Browse Source

premiere version du translateur Joystick -> Laser

master
tth 6 months ago
parent
commit
a2e28adcd9
7 changed files with 330 additions and 0 deletions
  1. +4
    -0
      .gitignore
  2. +63
    -0
      generators/moresinus.pl
  3. +12
    -0
      specific/Makefile
  4. +4
    -0
      specific/README.md
  5. +131
    -0
      specific/joy2laser.c
  6. +104
    -0
      specific/laserblast.c
  7. +12
    -0
      specific/laserblast.h

+ 4
- 0
.gitignore View File

@ -17,4 +17,8 @@ doc/*.ind
functions/*.[oa]
tools/udp-dumper
tools/*.o
specific/joy2laser
specific/*.o

+ 63
- 0
generators/moresinus.pl View File

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

+ 12
- 0
specific/Makefile View File

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

+ 4
- 0
specific/README.md View File

@ -0,0 +1,4 @@
# joy2laser
Kluge intuité pendant [Sonoptic 2020](https://sonoptic.net).

+ 131
- 0
specific/joy2laser.c View File

@ -0,0 +1,131 @@
/*
* Joystick to Laser
*
* Sonoptic 2020
*/
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <getopt.h>
#include <time.h>
#include <lo/lo.h> /* 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;
}
/* ------------------------------------------------------------------- */

+ 104
- 0
specific/laserblast.c View File

@ -0,0 +1,104 @@
/*
* laserblsat over OSC
*
* Sonoptic 2020
*/
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <lo/lo.h> /* 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;
}
/* ------------------------------------------------------------------- */
/* ------------------------------------------------------------------- */
/* ------------------------------------------------------------------- */

+ 12
- 0
specific/laserblast.h View File

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

Loading…
Cancel
Save