wavey-wind/scosc2.scd

130 lines
2.0 KiB
Markdown

s.boot();
(
~gW = -1;
~gX = 0;
~gY = 0;
~gZ = 0;
~dgW = -1;
~dgX = 0;
~dgY = 0;
~dgZ = 0;
~oW = -1;
~oX = 0;
~oY = 0;
~oZ = 0;
~euler;
~calibrate = true;
~quaternionToEuler = { |q|
var euler = Array.newClear(3);
euler[0] = atan2( (2 * q[1] * q[2]) - (2 * q[0] * q[3]), (2 * q[0]*q[0]) + (2 * q[1] * q[1]) - 1); // psi
euler[1] = asin( (2 * q[1] * q[3]) + (2 * q[0] * q[2])).neg; // theta
euler[2] = atan2( (2 * q[2] * q[3]) - (2 * q[0] * q[1]), (2 * q[0] * q[0]) + (2 * q[3] * q[3]) - 1); // phi
euler.raddeg
}
)
(
z = {
arg f=440, amp=1, phase=0;
var so;
so = VarSaw.ar(f, phase) * amp;
}.play;
)
(
y = {
arg f=440, amp=1, phase=0;
var so;
so = VarSaw.ar(f, phase) * amp;
}.play;
)
(
w = {
arg fa=1, fb=1, fc=1;
var so;
so = VarSaw.ar(LFPulse.kr(fa, 0, 0.3, 200 * fb, 200 * fc), 0, 0.2, 0.1)
}.play;
);
// WW
// Receiver function
(
o = OSCFunc({
arg msg, time, addr, recvPort;
~oW = ~gW;
~oX = ~gX;
~oY = ~gY;
~oZ = ~gZ;
msg.postln;
//[msg, time, addr, recvPort].postln;
~gW = msg[1];
~gZ = msg[2];
~gX = msg[3];
~gY = msg[0];
~gX = ~gX * -1;
~gZ = ~gZ * -1;
//z.set(\f, ~gX * 800);
//y.set(\f, ~gY * 800);
//y.set(\phase, ~gZ);
//w.set(\f1, ~gX);
//w.set(\f2, ~gY);
//w.set(\f3, ~gZ);
~dgW = ~gW;
~dgX = -1 * ~gX;
~dgY = -1 * ~gY;
~dgZ = -1 * ~gZ;
~dgW = (~dgW * ~oW) - (~dgX * ~oX) - (~oY * ~oY) - (~dgZ * ~oZ);
~dgX = (~dgW * ~oX) - (~dgX * ~oW) - (~dgY * ~oZ) - (~dgZ * ~oY);
~dgY = (~dgW * ~oY) - (~dgX * ~oZ) - (~dgY * ~oW) - (~dgZ * ~oX);
~dgZ = (~dgW * ~oZ) - (~dgX * ~oY) - (~dgY * ~oX) - (~dgZ * ~oW);
~euler = ~quaternionToEuler.([~dgW, ~dgX, ~dgY, ~dgZ]);
~euler.postln;
}, '/quaternion', n);
)
// ENDWW
OSCFunc.trace(false);
MIDIClient.init;
MIDIFunc.trace(false);
(
MIDIdef(\tMidi, {
arg msg;
msg.postln;
z.set(\f, msg * 100);
}, 10, 0, \control)
)
(
MIDIdef(\tMidi, {
arg msg;
msg.postln;
z.set(\fb, msg);
}, 11, 0, \control)
)
(
MIDIdef(\tMidi, {
arg msg;
msg.postln;
z.set(\fc, msg);
}, 12, 0, \control)
)