818 lines
29 KiB
Plaintext
818 lines
29 KiB
Plaintext
/*RUN*/
|
|
|
|
s.options.numInputBusChannels = 8;
|
|
s.options.numOutputBusChannels = 8;
|
|
|
|
~channels = 2;
|
|
|
|
b = NetAddr.new("192.168.0.100", 8888); // create the NetAddr
|
|
//b.sendMsg("/led", [0,1].choose); // send the application the message "hello" with the parameter "there"
|
|
|
|
//OSCFunc.trace(true); // Turn posting on
|
|
//OSCFunc.trace(false); // Turn posting off
|
|
|
|
s.waitForBoot{
|
|
///////////////////////////////////////////////////////////////////////////
|
|
// set path for sample location and make dictionary of subdirectories
|
|
//~samplepath = thisProcess.nowExecutingPath.dirname ++ "/samples";
|
|
~samplepath = "/home/rizoma/collaborative_capacitive/sc/samples"; // CHANGE THIS TO YOUR OWN PATH
|
|
~smp = Dictionary.new;
|
|
//~smp[\green];
|
|
|
|
PathName(~samplepath).entries.do{
|
|
arg subfolder;
|
|
~smp.add(
|
|
subfolder.folderName.asSymbol ->
|
|
Array.fill(
|
|
subfolder.entries.size,
|
|
{ arg i; Buffer.read(s, subfolder.entries[i].fullPath).normalize;}
|
|
)
|
|
);
|
|
};
|
|
// e.g. green sample subdirectory of ~samplepath: ~smp[\green][1] //
|
|
///////////////////////////////////////////////////////////////////////
|
|
|
|
// allocate busses
|
|
~reverbBus = Bus.audio(s, 1);
|
|
~ringModBus = Bus.audio(s, 1);
|
|
|
|
// create group order
|
|
~sGA = Group.new; ~sGB = Group.new; ~sGC = Group.new; ~sGD = Group.new;
|
|
|
|
s.sync;
|
|
|
|
//// SYNTHS //////////////////////////////////
|
|
|
|
SynthDef.new(\splay, {| out=0, bufnum=0, tpse=1, t_trig=0, amp=0.8, rate=1,
|
|
atk=1, rel=1, loop=0, spos=0, gate=0, panRate=0.2, dir=1 |
|
|
var env, sig;
|
|
env= EnvGen.kr(Env.asr(atk,1,rel),gate, doneAction:2);
|
|
sig = PlayBuf.ar(1, bufnum, rate*tpse*dir, t_trig, startPos: spos, loop:loop, doneAction: 0);
|
|
sig = sig * env * amp;
|
|
//sig = Pan2.ar(sig, FSinOsc.kr(panRate));
|
|
//sig = PanAz.ar(4, sig, FSinOsc.kr(panRate));
|
|
/// //sig = Pan4.ar(sig, FSinOsc.kr(panRate));
|
|
|
|
|
|
Out.ar(out, sig);
|
|
}).add;
|
|
|
|
s.sync;
|
|
|
|
~oPA = 8.collect({
|
|
arg itt, rate=1, out=0, sdir=\bowl,
|
|
amp=0.8, loop=0, panRate=rrand(0.05,0.15), group=~sGA;
|
|
Synth.new(\splay, [ \bufnum, ~smp[sdir][rrand(0,~smp[sdir].size-1)], \out, rrand(0,(~channels-1)), \loop, loop, panRate: panRate], group);
|
|
});
|
|
|
|
~oPB = 8.collect({
|
|
arg itt, rate=1, out=0, sdir=\bowl,
|
|
amp=0.8, loop=0, panRate=rrand(0.05,0.15), group=~sGB;
|
|
Synth.new(\splay, [\bufnum, ~smp[sdir][rrand(0,~smp[sdir].size-1)], \out, rrand(0,(~channels-1)), \loop, loop, panRate: panRate], group);
|
|
});
|
|
|
|
// RECEIVE OSC MESSAGES FROM ESP32s
|
|
|
|
~transpositionsA = 0;
|
|
~transpositionsB = 0;
|
|
|
|
~modeB = 0;
|
|
~modeC = 0;
|
|
~modeD = 0;
|
|
|
|
~loopA = 0; // loop state
|
|
~loopA = 0; //
|
|
|
|
~shiftA = 0; // shift state
|
|
~shiftB = 0; // shift state
|
|
~shiftC = 0; // shift state
|
|
~shiftD = 0; // shift state
|
|
|
|
~ctrlA = 0; // ctrl state
|
|
~ctrlB = 0; // ctrl state
|
|
|
|
~sampleDir = [\bowl, \green, \bowed, \zither];
|
|
|
|
~lsA=0; // loop state
|
|
~lsB=0; // loop state
|
|
|
|
~scaleMode = [
|
|
Scale.major, Scale.minor, Scale.melodicMinor,
|
|
Scale.minorPentatonic, Scale.ionian(\pythagorean),
|
|
Scale.whole, Scale.chromatic,
|
|
Scale.gong, Scale.indian, Scale.egyptian,
|
|
Scale.major, Scale.minor, Scale.melodicMinor, Scale.chromatic
|
|
|
|
];
|
|
|
|
~scaleA = ~scaleMode[1]; // default to natural minor
|
|
~scaleB = ~scaleMode[1];
|
|
|
|
~ssA = 0; // scale index
|
|
~ssB = 0;
|
|
|
|
~psetA = Array.series(~scaleA.size, start: 0, step: 1);
|
|
~psetB = Array.series(~scaleB.size, start: 0, step: 1);
|
|
|
|
~smpA = 0; // sample bank index
|
|
~smpB = 0;
|
|
|
|
~dirStateA = [0,0,0,0,0,0,0,0];
|
|
~dirStateB = [0,0,0,0,0,0,0,0];
|
|
|
|
~loopStateA = [0,0,0,0,0,0,0,0];
|
|
~loopStateB = [0,0,0,0,0,0,0,0];
|
|
|
|
//~dirState.put(3,1);
|
|
|
|
//~scales[2].tuning; ~scales[2].size; ~scales[2].pitchesPerOcatave;
|
|
|
|
s.sync;
|
|
|
|
~esp32Receive = { arg name ,mac; OSCdef(name, { arg msg, time;
|
|
|
|
// msg[1] sender mac address
|
|
// msg[2] which of the [0 - 11] sensors is touched
|
|
// msg[3] is it a touch [1] or a release [0]
|
|
// msg[4] which of the connected mpr121 boards is sending
|
|
|
|
|
|
if (msg[1] == mac && msg[4] == 0 ) {
|
|
|
|
if (msg[2] < 8) { // if sensor 0 - 7 and looper
|
|
|
|
if ( msg[3]== 1 ) {
|
|
|
|
postln("PITCHCLASS: " + ~psetA[msg[2]] );
|
|
|
|
b.sendMsg("/led", msg[2], ~psetA[msg[2]], msg[4]);
|
|
|
|
~loopStateA.put(msg[2],0);
|
|
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\rate, ~scaleA[~psetA[0]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 1} { ~oPA[1].set(\rate, ~scaleA[~psetA[1]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 2} { ~oPA[2].set(\rate, ~scaleA[~psetA[2]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 3} { ~oPA[3].set(\rate, ~scaleA[~psetA[3]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 4} { ~oPA[4].set(\rate, ~scaleA[~psetA[4]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 5} { ~oPA[5].set(\rate, ~scaleA[~psetA[5]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
{ msg[2] == 6} { ~oPA[6].set(\rate, ~scaleA[~psetA[6]].midiratio,
|
|
\t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0, \spos, 0, \out, rrand(0,~channels-1)); }
|
|
|
|
// TODO: LOGIC TO FIX NEXT OCTAVE IN 7 NOTE VS OTHER NOTE LENGTH SCALES ~psetA.size
|
|
// if logic below not workingif (~scaleA.size == 7 ) {t
|
|
//{ msg[2] == 7} { ~oPA[7].set(\rate, ~scaleA[~psetA[7]].midiratio,\t_trig, 1, \gate, 1, \tpse, 1); }
|
|
|
|
{ msg[2] == 7} { if (~scaleA.size == 7 ) {
|
|
|
|
~oPA[7].set(\rate, ~scaleA[~psetA[0]].midiratio + 1 ,\t_trig, 1, \gate, 1, \tpse, 1, \loop, 0, \spos, 0);
|
|
postln("notes in scale: " + ~scaleA )};
|
|
|
|
if (~scaleA.size == 12 ) { ~oPA[7].set(\rate, ~scaleA[~psetA[0]].midiratio,\t_trig, 1, \gate, 1, \tpse, 2, \loop, 0, \spos, 0);
|
|
postln("notes in scale: " + ~scaleA + "not>>> debug")}
|
|
}
|
|
} {
|
|
~dirStateA.put(msg[2],0);
|
|
//postln("release");
|
|
} // if first 8 sensors are released after being touched set state to
|
|
|
|
};
|
|
|
|
// SHIFT state ///////////////////////////////////
|
|
|
|
if ( msg[2] == 11 ) {
|
|
if (msg[3]==1){
|
|
~shiftA = 1; postln("shift is enabled" )}
|
|
{ ~shiftA = 0; postln("shift is disabled" )};
|
|
b.sendMsg("/led", msg[2], ~shiftA, msg[4]);
|
|
};
|
|
|
|
// CTRL state ////////////////////////////////////
|
|
|
|
if (msg[2] == 10 ) {
|
|
if (msg[3]==1){
|
|
~ctrlA = 1; postln("CTRL enabled" ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);}
|
|
{ ~ctrlA = 0; postln("CTRL disabled" ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);};
|
|
};
|
|
|
|
// LOOP state ////////////////////////////////////
|
|
|
|
if (msg[2] == 8 ) {
|
|
if (msg[3]==1){
|
|
~loopA = 1; postln("LOOP READY"); b.sendMsg("/led", msg[2], ~loopA, msg[4])}
|
|
{ ~loopA = 0; b.sendMsg("/led", msg[2], ~loopA, msg[4])};
|
|
};
|
|
|
|
// LOOP GROUP mode on off // GROUP //////////////////////////////
|
|
|
|
if ( ~ctrlA == 1 && ~shiftA == 0 && msg[2] == 8 && msg[3] == 0 ) {
|
|
// release 7 = toggle looping of all samplers
|
|
~lsA = (~lsA + 1)% 2;
|
|
~sGA.set(\loop, ~lsA ); // toggle this
|
|
b.sendMsg("/led", msg[2], ~lsA, msg[4]);
|
|
postln("LOOP: " + ~lsA );
|
|
};
|
|
|
|
// INDIVIDUAL LOOPS ///////////////////////////////////////////////////
|
|
|
|
if (~loopA == 1 ) { // while control pressed
|
|
if (msg[2] < 8 ){ // only applies to the first 8 sensors
|
|
if (msg[3] == 1 ){ // if touched
|
|
postln("LOOP sample @ index: " ++ msg[2] );
|
|
~loopStateA.put(msg[2],1);
|
|
postln("loop state {all} : " ++ ~loopStateA);
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\loop, 1 ); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\loop, 1 ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\loop, 1 ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\loop, 1 ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\loop, 1 ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\loop, 1 ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\loop, 1 ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\loop, 1 ); }
|
|
} {
|
|
//~dirStateA.put(msg[2],1);
|
|
//postln("loop release");
|
|
} // if not 1 (released after CTRL+touch)
|
|
} // set the state for neopixel // when released
|
|
};
|
|
|
|
// SCALE CHANGER ---------------------------------
|
|
|
|
if (~shiftA==1 && msg[2] == 9 && msg[3] == 1) {
|
|
~ssA = (~ssA + 1) % 14; // fourteen slots for scales
|
|
// use key release to
|
|
~scaleA = ~scaleMode[~ssA];
|
|
postln("SCALE: " + ~scaleA.name + " : " + ~scaleA);
|
|
b.sendMsg("/led", 9, ~ssA, msg[4]);
|
|
};
|
|
// todo color code for SCALE CHANGER... red not updating
|
|
//b.sendMsg("/led", 9, ~ssA, msg[4]);
|
|
|
|
// PITCH SET SCRAMBLER ---------------------------------
|
|
|
|
if (~shiftA==0 && ~ctrlA==0 && msg[2] == 9 && msg[3] == 1) {
|
|
~psetA = Array.series(~scaleA.size+1, start: 0, step: 1).scramble;
|
|
postln(~scaleA.name + " SCALE SCRAMBLED: " + ~psetA);
|
|
b.sendMsg("/led", 9, ~ssA, msg[4]);
|
|
};
|
|
|
|
if (~shiftA==0 && ~ctrlA==1 && msg[2] == 9 && msg[3] == 1) {
|
|
~psetA = Array.series(~scaleA.size+1, start: 0, step: 1);
|
|
postln(~scaleA.name + " SCALE ORDER RESTORED: " + ~psetA);
|
|
b.sendMsg("/led", 9, ~ssA, msg[4]);
|
|
};
|
|
|
|
// SAMPLE DIRECTORY CHANGER ---------------------------------
|
|
|
|
if (~shiftA==1 && msg[2] == 8 && msg[3] == 1) {
|
|
~smpA = (~smpA + 1) % 4;
|
|
// use key release to
|
|
~sdir = ~sampleDir[~smpA];
|
|
postln("NEW SAMPLE DIRECTORY SELECTED:"+ ~sampleDir[~smpA] + " : " + ~sampleDir);
|
|
b.sendMsg("/led", 8, ~smpA, msg[4]);
|
|
};
|
|
|
|
// SAMPLE DIRECTORY MAPPINGS ---------------------------------
|
|
|
|
if (~smpA == 0){
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\bufnum, ~smp[\bowl][0]); };
|
|
|
|
b.sendMsg("/led", 8, ~smpA, msg[4]);
|
|
};
|
|
|
|
if (~smpA == 1){
|
|
x =~smp[\green];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\bufnum, x[1]); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\bufnum, x[1]); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\bufnum, x[1]); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\bufnum, x[2]); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\bufnum, x[2]); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\bufnum, x[2]); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\bufnum, x[3]); };
|
|
|
|
b.sendMsg("/led", 8, ~smpA, msg[4]);
|
|
};
|
|
|
|
if (~smpA == 2){
|
|
x =~smp[\bowed];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\bufnum, x[0]); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\bufnum, x[0]); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\bufnum, x[0]); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\bufnum, x[0]); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\bufnum, x[0]); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\bufnum, x[0]); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\bufnum, x[0]); };
|
|
|
|
b.sendMsg("/led", 8, ~smpA, msg[4]);
|
|
};
|
|
|
|
if (~smpA == 3){
|
|
x =~smp[\zither];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\bufnum, x[0]); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\bufnum, x[0]); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\bufnum, x[0]); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\bufnum, x[0]); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\bufnum, x[0]); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\bufnum, x[0]); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\bufnum, x[0]); };
|
|
|
|
b.sendMsg("/led", 8, ~smpA, msg[4]);
|
|
};
|
|
|
|
// REVERSE SAMPLES ////////////////////////////////////////////
|
|
|
|
if (~ctrlA == 1 ) { // while control pressed
|
|
if (msg[2] < 8 ){ // only applies to the first 8 sensors
|
|
if (msg[3] == 1 ){ // if touched
|
|
postln("reverse sample @ index: " + msg[2] );
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\dir, -1, \spos, 441000, \loop, 1 ); }
|
|
} { ~dirStateA.put(msg[2],1);
|
|
postln("set direction state to 1 reverse magenta");
|
|
} // if not 1 (released after CTRL+touch)
|
|
} // set the state for neopixel // when released
|
|
};
|
|
|
|
// TRANSPOSITION MODE SETTER
|
|
|
|
if (~shiftA == 1 && msg[2] == 10 ) {
|
|
if (msg[3]==1){
|
|
~transpositionsA = ~transpositionsA+1 % 6;
|
|
w = case
|
|
{ ~transpositionsA == 0} { postln("MODE: ----------------------------> NORMAL" ); }
|
|
{ ~transpositionsA == 1} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-DOWN" ); }
|
|
{ ~transpositionsA == 2} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-DOWN" ); }
|
|
{ ~transpositionsA == 3} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-UP" ); }
|
|
{ ~transpositionsA == 4} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-UP" ); }
|
|
{ ~transpositionsA == 5} { postln("MODE: ------> TRANSPOSE ---- RANDOM 0.25 <-> 5" ); };
|
|
};
|
|
b.sendMsg("/led", msg[2], ~transpositionsA, msg[4]);
|
|
|
|
};
|
|
|
|
// modes ----
|
|
|
|
if (~shiftA==0 && msg[3] == 1 ){
|
|
|
|
if (~transpositionsA == 0) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, 1); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, 1 ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, 1 ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, 1 ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, 1 ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, 1 ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, 1 ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, 1 ); }
|
|
};
|
|
|
|
if (~transpositionsA == 1) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, 0.5); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, 0.5 ); }
|
|
};
|
|
|
|
if (~transpositionsA == 2 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, [0.25].choose ); }
|
|
};
|
|
|
|
if (~transpositionsA == 3 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, [2].choose ); }
|
|
};
|
|
|
|
if (~transpositionsA == 4 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, [3].choose ); }
|
|
};
|
|
|
|
if (~transpositionsA == 5 ) {
|
|
x = [0.25, 0.5, 1, 2, 3, 4, 5];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPA[0].set(\tpse, x.choose); }
|
|
{ msg[2] == 1} { ~oPA[1].set(\tpse, x.choose); }
|
|
{ msg[2] == 2} { ~oPA[2].set(\tpse, x.choose ); }
|
|
{ msg[2] == 3} { ~oPA[3].set(\tpse, x.choose ); }
|
|
{ msg[2] == 4} { ~oPA[4].set(\tpse, x.choose ); }
|
|
{ msg[2] == 5} { ~oPA[5].set(\tpse, x.choose ); }
|
|
{ msg[2] == 6} { ~oPA[6].set(\tpse, x.choose ); }
|
|
{ msg[2] == 7} { ~oPA[7].set(\tpse, x.choose ); }
|
|
};
|
|
|
|
|
|
};
|
|
|
|
// UPDATE THE NEOPIXELS STATUS
|
|
|
|
if (msg[2] < 8) { // when not touched turn led 0-7 black/off(12) gray/9
|
|
|
|
if (msg[1] == mac && msg[3] == 0 && msg[4] == 0 ) { // released
|
|
|
|
|
|
if (~dirStateA[msg[2]] == 0){ // if the direction state is 0 (forward)
|
|
|
|
b.sendMsg("/led", msg[2], 7, msg[4]); // set the neopixel to 7 (orange)
|
|
|
|
} {
|
|
|
|
b.sendMsg("/led", msg[2], 5, msg[4]);
|
|
|
|
} // else (dirState reverse) set the neopixel to 5 (cyan)
|
|
};
|
|
} {} ;
|
|
|
|
};
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////
|
|
// board 2 logic here
|
|
|
|
if (msg[1] == mac && msg[4] == 1 ) {
|
|
|
|
if (msg[2] < 8) { // if sensor 0 - 7 and looper
|
|
|
|
if ( msg[3]== 1 ) {
|
|
postln("PITCHCLASS: " + ~psetB[msg[2]] );
|
|
b.sendMsg("/led", msg[2], ~psetB[msg[2]], msg[4]);
|
|
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\rate, ~scaleB[~psetB[0]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\rate, ~scaleB[~psetB[1]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\rate, ~scaleB[~psetB[2]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\rate, ~scaleB[~psetB[3]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\rate, ~scaleB[~psetB[4]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\rate, ~scaleB[~psetB[5]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\rate, ~scaleB[~psetB[6]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1, \loop, 0); }
|
|
|
|
// TODO: LOGIC TO FIX NEXT OCTAVE IN 7 NOTE VS OTHER NOTE LENGTH SCALES ~psetA.size
|
|
// if logic below not workingif (~scaleB.size == 7 ) {t
|
|
//{ msg[2] == 7} { ~oPB[7].set(\rate, ~scaleB[~psetB[7]].midiratio,\t_trig, 1, \gate, 1, \tpse, 1); }
|
|
|
|
{ msg[2] == 7} { if (~scaleB.size == 7 ) {
|
|
|
|
~oPB[7].set(\rate, ~scaleB[~psetB[0]].midiratio + 1 ,\t_trig, 1, \gate, 1, \tpse, 1);
|
|
postln("notes in scale: " + ~scaleB );};
|
|
|
|
if (~scaleB.size == 12 ) { ~oPB[7].set(\rate, ~scaleB[~psetB[0]].midiratio,\t_trig, 1, \gate, 1, \tpse, 2);
|
|
postln("notes in scale: " + ~scaleB + "not>>> debug");}
|
|
}
|
|
} { ~dirStateB.put(msg[2],0);
|
|
postln("release");
|
|
} // if first 8 sensors are released after being touched set state to
|
|
|
|
};
|
|
|
|
// LOOP mode on off // GROUP //////////////////////////////
|
|
|
|
if ( msg[2] == 8 && msg[3] == 0 ) { // release 7 = toggle looping of all samplers
|
|
~lsB = (~lsB + 1)% 2;
|
|
~sGB.set(\loop, ~lsB ); // toggle this
|
|
b.sendMsg("/led", msg[2], ~lsB, msg[4]);
|
|
postln("LOOP: " + ~lsB );
|
|
};
|
|
|
|
// SHIFT state ///////////////////////////////////
|
|
|
|
if ( msg[2] == 11 ) {
|
|
if (msg[3]==1){
|
|
~shiftB = 1; postln("shift is enabled" )}
|
|
{ ~shiftB = 0; postln("shift is disabled" )};
|
|
b.sendMsg("/led", msg[2], ~shiftB, msg[4]);
|
|
};
|
|
|
|
// CTRL state ////////////////////////////////////
|
|
|
|
if (msg[2] == 10 ) {
|
|
if (msg[3]==1){
|
|
~ctrlB = 1; postln("CTRL enabled" ); b.sendMsg("/led", msg[2], ~ctrlB, msg[4]);}
|
|
{ ~ctrlB = 0; postln("CTRL disabled" ); b.sendMsg("/led", msg[2], ~ctrlB, msg[4]);};
|
|
};
|
|
|
|
// SCALE CHANGER ---------------------------------
|
|
|
|
if (~shiftB==1 && msg[2] == 9 && msg[3] == 1) {
|
|
if (msg[3]==1){
|
|
~ssB = (~ssB + 1) % 14; // fourteen slots for scales
|
|
// use key release to
|
|
~scaleB = ~scaleMode[~ssB];
|
|
postln("SCBLE: " + ~scaleB.name + " : " + ~scaleB);
|
|
//b.sendMsg("/led", 9, ~ssB, msg[4]);
|
|
};
|
|
// todo color code for SCALE CHANGER... red not updating
|
|
b.sendMsg("/led", msg[2], ~ssB, msg[4]);
|
|
};
|
|
|
|
// PITCH SET SCRAMBLER ---------------------------------
|
|
|
|
if (~shiftB==0 && ~ctrlB==0 && msg[2] == 9 && msg[3] == 1) {
|
|
~psetB = Array.series(~scaleB.size+1, start: 0, step: 1).scramble;
|
|
postln(~scaleB.name + " SCALE SCRAMBLED: " + ~psetB);
|
|
b.sendMsg("/led", 9, ~ssB, msg[4]);
|
|
};
|
|
|
|
if (~shiftB==0 && ~ctrlB==1 && msg[2] == 9 && msg[3] == 1) {
|
|
~psetB = Array.series(~scaleB.size+1, start: 0, step: 1);
|
|
postln(~scaleB.name + " SCALE ORDER RESTORED: " + ~psetB);
|
|
b.sendMsg("/led", 9, ~ssB, msg[4]);
|
|
};
|
|
|
|
// SAMPLE DIRECTORY CHANGER ---------------------------------
|
|
|
|
if (~shiftB==1 && msg[2] == 8 && msg[3] == 1) {
|
|
~smpB = (~smpB + 1) % 4;
|
|
// use key release to
|
|
~sdir = ~sampleDir[~smpB];
|
|
|
|
postln("NEW SAMPLE DIRECTORY SELECTED:"+ ~sampleDir[~smpB] + " : " + ~sampleDir);
|
|
|
|
};
|
|
|
|
// SAMPLE DIRECTORY MAPPINGS ---------------------------------
|
|
|
|
if (~smpB == 0){
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\bufnum, ~smp[\bowl][0]); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\bufnum, ~smp[\bowl][0]); };
|
|
|
|
b.sendMsg("/led", 9, ~smpB, msg[4]);
|
|
};
|
|
|
|
if (~smpB == 1){
|
|
x =~smp[\green];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\bufnum, x[1]); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\bufnum, x[1]); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\bufnum, x[1]); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\bufnum, x[2]); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\bufnum, x[2]); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\bufnum, x[2]); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\bufnum, x[3]); };
|
|
|
|
b.sendMsg("/led", 9, ~smpB, msg[4]);
|
|
};
|
|
|
|
if (~smpB == 2){
|
|
x =~smp[\bowed];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\bufnum, x[0]); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\bufnum, x[0]); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\bufnum, x[0]); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\bufnum, x[0]); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\bufnum, x[0]); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\bufnum, x[0]); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\bufnum, x[0]); };
|
|
|
|
b.sendMsg("/led", 16, ~smpB, msg[4]);
|
|
};
|
|
|
|
if (~smpB == 3){
|
|
x =~smp[\zither];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\bufnum, x[0]); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\bufnum, x[0]); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\bufnum, x[0]); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\bufnum, x[0]); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\bufnum, x[0]); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\bufnum, x[0]); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\bufnum, x[0]); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\bufnum, x[0]); };
|
|
|
|
b.sendMsg("/led", 9, ~smpB, msg[4]);
|
|
};
|
|
|
|
// REVERSE SAMPLES ////////////////////////////////////////////
|
|
|
|
if (~ctrlB == 1 ) { // while control pressed
|
|
if (msg[2] < 8 ){ // only applies to the first 8 sensors
|
|
if (msg[3] == 1 ){ // if touched
|
|
postln("reverse sample @ index: " + msg[2] );
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\dir, -1, \spos, 44100); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\dir, -1, \t_trig, 1, \gate, 1, ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\dir, -1 ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\dir, -1 ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\dir, -1 ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\dir, -1 ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\dir, -1 ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\dir, -1 ); }
|
|
} { ~dirStateB.put(msg[2],1);
|
|
postln("set direction state to 1 reverse magenta");
|
|
} // if not 1 (released after CTRL+touch)
|
|
} // set the state for neopixel // when released
|
|
};
|
|
|
|
// TRANSPOSITION MODE SETTER
|
|
|
|
if (~shiftB == 1 && msg[2] == 10 ) {
|
|
if (msg[3]==1){
|
|
~transpositionsB = ~transpositionsB+1 % 6;
|
|
w = case
|
|
{ ~transpositionsB == 0} { postln("MODE: ------> NORMAL" ); }
|
|
{ ~transpositionsB == 1} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-DOWN" ); }
|
|
{ ~transpositionsB == 2} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-DOWN" ); }
|
|
{ ~transpositionsB == 3} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-UP" ); }
|
|
{ ~transpositionsB == 4} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-UP" ); }
|
|
{ ~transpositionsB == 5} { postln("MODE: ------> TRANSPOSE ---- RANDOM 0.25 <-> 5" ); };
|
|
};
|
|
b.sendMsg("/led", msg[2], ~transpositionsB, msg[4]);
|
|
|
|
};
|
|
|
|
// modes ----
|
|
|
|
if (~shiftB==0 && msg[3] == 1 ){
|
|
|
|
if (~transpositionsB == 0) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, 1); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, 1 ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, 1 ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, 1 ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, 1 ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, 1 ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, 1 ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, 1 ); }
|
|
};
|
|
|
|
if (~transpositionsB == 1) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, 0.5); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, 0.5 ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, 0.5 ); }
|
|
};
|
|
|
|
if (~transpositionsB == 2 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, [0.25].choose ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, [0.25].choose ); }
|
|
};
|
|
|
|
if (~transpositionsB == 3 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, [2].choose ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, [2].choose ); }
|
|
};
|
|
|
|
if (~transpositionsB == 4 ) {
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, [3].choose ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, [3].choose ); }
|
|
};
|
|
|
|
if (~transpositionsB == 5 ) {
|
|
x = [0.25, 0.5, 1, 2, 3, 4, 5];
|
|
w = case
|
|
{ msg[2] == 0} { ~oPB[0].set(\tpse, x.choose); }
|
|
{ msg[2] == 1} { ~oPB[1].set(\tpse, x.choose); }
|
|
{ msg[2] == 2} { ~oPB[2].set(\tpse, x.choose ); }
|
|
{ msg[2] == 3} { ~oPB[3].set(\tpse, x.choose ); }
|
|
{ msg[2] == 4} { ~oPB[4].set(\tpse, x.choose ); }
|
|
{ msg[2] == 5} { ~oPB[5].set(\tpse, x.choose ); }
|
|
{ msg[2] == 6} { ~oPB[6].set(\tpse, x.choose ); }
|
|
{ msg[2] == 7} { ~oPB[7].set(\tpse, x.choose ); }
|
|
};
|
|
|
|
|
|
};
|
|
|
|
// UPDATE THE NEOPIXELS STATUS
|
|
|
|
if (msg[2] < 8) { // when not touched turn led 0-7 black/off(12) gray/9
|
|
|
|
if (msg[1] == mac && msg[3] == 0 && msg[4] == 0 ) { // released
|
|
|
|
|
|
if (~dirStateB[msg[2]] == 0){ // if the direction state is 0 (forward)
|
|
|
|
b.sendMsg("/led", msg[2], 7, msg[4]); // set the neopixel to 7 (orange)
|
|
|
|
} {
|
|
|
|
b.sendMsg("/led", msg[2], 5, msg[4]);
|
|
|
|
} // else (dirState reverse) set the neopixel to 5 (cyan)
|
|
};
|
|
} {} ;
|
|
|
|
};
|
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
|
|
},'/touch') };
|
|
|
|
|
|
|
|
s.sync;
|
|
|
|
~esp32Receive.('anything', '3C:E9:0E:AD:A5:48');
|
|
|
|
~sG.set(\amp, 1);
|
|
~sG.set(\rate, -1);
|
|
//~sGB.set(\amp, 0.2);
|
|
|
|
"patch loaded and ready...".postln;
|
|
|
|
};
|