parent
517b381360
commit
244ff8d131
@ -0,0 +1,41 @@
|
||||
/* faire pouet avec chuck osc et un joystick
|
||||
-----------------------------------------
|
||||
reception des boutons
|
||||
*/
|
||||
|
||||
7778 => int InPort;
|
||||
|
||||
SqrOsc sl => Envelope envl => dac.left;
|
||||
SawOsc sr => Envelope envr => dac.right;
|
||||
0.5 => sl.gain => sr.gain;
|
||||
|
||||
0.1 => envl.time; 0.25 => envr.time;
|
||||
|
||||
OscIn oscin; OscMsg msg;
|
||||
|
||||
InPort => oscin.port; oscin.addAddress( "/joystick/b, ii" );
|
||||
|
||||
int button, value; 50 => int base;
|
||||
|
||||
<<< "listening on port", InPort >>>;
|
||||
|
||||
while( true ) {
|
||||
oscin => now;
|
||||
while ( oscin.recv(msg) ) {
|
||||
msg.getInt(0) => button;
|
||||
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+12+(button)) => sr.freq;
|
||||
1 => envl.keyOn => envr.keyOn;
|
||||
}
|
||||
else {
|
||||
1 => envl.keyOff => envr.keyOff;
|
||||
}
|
||||
// 0.2::second => now;
|
||||
}
|
||||
}
|
||||
|
||||
/* made in pi-ta-mere by tTh */
|
||||
|
@ -0,0 +1,33 @@
|
||||
/* faire pouet avec chuck osc et un joystick
|
||||
-----------------------------------------
|
||||
reception des XY
|
||||
*/
|
||||
|
||||
7777 => int InPort;
|
||||
|
||||
SqrOsc sl => dac.left;
|
||||
SawOsc sr => dac.right;
|
||||
0.0 => sl.gain => sr.gain;
|
||||
|
||||
OscIn oscin;
|
||||
OscMsg msg;
|
||||
|
||||
InPort => oscin.port;
|
||||
oscin.addAddress( "/joystick/xy, ii" );
|
||||
|
||||
int x, y;
|
||||
55 => int base;
|
||||
|
||||
<<< "listening on port", InPort >>>;
|
||||
|
||||
while( true ) {
|
||||
oscin => now;
|
||||
while ( oscin.recv(msg) ) {
|
||||
msg.getInt(0) => x;
|
||||
msg.getInt(1) => y;
|
||||
<<< "got (via ", InPort,") ", x, y >>>;
|
||||
}
|
||||
}
|
||||
|
||||
/* made in doubledragon2 by tTh */
|
||||
|
Loading…
Reference in new issue