Browse Source

osc+chuck=wip

master
tth 2 months ago
parent
commit
7c91072873
5 changed files with 52 additions and 14 deletions
  1. +4
    -0
      chuck/README.md
  2. +12
    -10
      chuck/dessiner.ck
  3. +23
    -0
      chuck/midi2osc.ck
  4. +2
    -2
      chuck/pouet.ck
  5. +11
    -2
      chuck/zwouit.ck

+ 4
- 0
chuck/README.md View File

@ -1,5 +1,9 @@
# trucs en ChucK
Attention, il faut parfois utiliser l'option `--silent`
pour lancer Chuck sans connexion audio.
## dessiner.ck
## pouet.ck


+ 12
- 10
chuck/dessiner.ck View File

@ -7,7 +7,7 @@
*
*/
9000 => int OSCPort;
7777 => int OSCPort;
31000.0 => float Amplitude;
OscOut xmit;
@ -15,13 +15,7 @@ float dx, dy;
xmit.dest("localhost", OSCPort);
// ---- clear the screen
xmit.start("/joystick/b");
50 => xmit.add; 1 => xmit.add;
xmit.send();
xmit.start("/joystick/b");
50 => xmit.add; 0 => xmit.add;
xmit.send();
clear_the_screen();
for (0 => int foo; foo<25800; foo++) {
<<< foo >>>;
@ -34,7 +28,15 @@ for (0 => int foo; foo<25800; foo++) {
Std.ftoi(dy) => xmit.add;
xmit.send();
0.03::second => now;
0.02::second => now;
}
fun void clear_the_screen()
{
xmit.start("/joystick/b");
50 => xmit.add; 1 => xmit.add;
xmit.send();
xmit.start("/joystick/b");
50 => xmit.add; 0 => xmit.add;
xmit.send();
}

+ 23
- 0
chuck/midi2osc.ck View File

@ -5,6 +5,29 @@
* nouveau Rural Art System 2021 - TerreBlanque
*/
MidiIn input;
MidiMsg msg;
1 => int port; // please explain
if (!input.open(port)) {
<<< "erreur open" >>>;
me.exit();
}
// print out device that was opened
<<< "MIDI device:", input.num(), " -> ", input.name() >>>;
// infinite loop
while (1) {
input => now;
while ( input.recv(msg) ) {
<<< msg.data1, msg.data2, msg.data3 >>>;
}
}

+ 2
- 2
chuck/pouet.ck View File

@ -26,14 +26,14 @@ while( true ) {
msg.getInt(1) => value;
<<< "got (via ", InPort,")\tb", button, "\tv", value >>>;
if (1 == value) { /* button down */
Std.mtof(base+(button)) => sl.freq;
Std.mtof(base+(button)) => sl.freq;
Std.mtof(base+12+(button)) => sr.freq;
1 => envl.keyOn => envr.keyOn;
}
else {
1 => envl.keyOff => envr.keyOff;
}
// 0.2::second => now;
0.2::second => now;
}
}


+ 11
- 2
chuck/zwouit.ck View File

@ -11,13 +11,14 @@ SawOsc sr => dac.right;
OscIn oscin;
OscMsg msg;
InPort => oscin.port;
oscin.addAddress( "/joystick/xy, ii" );
int x, y;
55 => int base;
0.5 => sl.gain => sr.gain;
<<< "listening on port", InPort >>>;
while( true ) {
@ -25,9 +26,17 @@ while( true ) {
while ( oscin.recv(msg) ) {
msg.getInt(0) => x;
msg.getInt(1) => y;
<<< "got (via ", InPort,") ", x, y >>>;
<<< "got (via ", InPort,") ", x, y >>>;
x => sl.freq;
y => sr.freq;
}
}
/* made in doubledragon2 by tTh */
/* --------------------------------------------------------
conversion coordonnées vers frequence */

Loading…
Cancel
Save