makeBundle and OnserverBoot to automate timing of startup
Rob Canning
parent
9505ba4a52
commit
df2832ed89
|
|
@ -1,7 +1,7 @@
|
|||
(
|
||||
|
||||
Window.closeAll;
|
||||
w = Window.new().front;
|
||||
w = Window.new().front.background_(Color.black);
|
||||
|
||||
~inputGui = CompositeView(w, Rect(10,80,250,450))
|
||||
.background_(Color.rand)
|
||||
|
|
@ -99,10 +99,24 @@ l.criticalColor = Color.red(0.5);
|
|||
|
||||
///////////// END OF INPUT GUI BOX
|
||||
|
||||
//b
|
||||
|
||||
~bufferGui = CompositeView.new(w, bounds:Rect(40,750,750,200))
|
||||
.background_(Color.white)
|
||||
.alwaysOnTop_(true);
|
||||
|
||||
//~bufferPlotter = Plotter("plot", parent: ~bufferGui).value_([0, 1, 2, 3, 4].scramble * 100);
|
||||
|
||||
// todo howto do this ? see end of chapter one of marinos's book on archive.org
|
||||
//. or page 215 - of this https://escholarship.org/content/qt2d33344j/qt2d33344j.pdf
|
||||
//~bufferPlotter = Plotter("plot", parent: ~bufferGui).value_(b);
|
||||
//~bufferPlotter.val
|
||||
|
||||
|
||||
// ------------- GRAIN GUI
|
||||
|
||||
~grainGui = CompositeView.new(w, bounds:Rect(540,80,350,560))
|
||||
.background_(Color.white)
|
||||
~grainGui = CompositeView.new(w, bounds:Rect(540,80,250,760))
|
||||
.background_(Color.rand)
|
||||
.alwaysOnTop_(true);
|
||||
|
||||
~grainGui.decorator = FlowLayout(~grainGui.bounds);
|
||||
|
|
@ -156,12 +170,12 @@ VLayout(
|
|||
.items_(["1","2","3","5","8","13","21", "34", "55","89","144","233", "377"]) .font_(Font.default.size_(30)).background_(Color.yellow);
|
||||
|
||||
StaticText(~grainGui, Rect(50,50,150,40)).string_("IMPULSE").background_(Color.clear).stringColor_(Color.black).font_(Font.default.size_(30));
|
||||
|
||||
// ~impulseModeGui = QPopUpMenu.new(~grainGui, Rect(30,350,300,40))
|
||||
// .items_(["SYNCHRONIOUS","ASYNCHRONIOUS","Array"]) .font_(Font.default.size_(20)).background_(Color.yellow);
|
||||
|
||||
~impulseModeGui = CheckBox.new(~grainGui, Rect(30,350,80,60)).value_(1).string_("sync/async");
|
||||
|
||||
/* StaticText(~grainGui, Rect(50,50,150,40)).string_("Pointer Rate Freeze").background_(Color.clear).stringColor_(Color.black).font_(Font.default.size_(20));
|
||||
~ptrRateGui = NumberBox.new(~grainGui, Rect(30,450,80,40)).value_(1).increment(factor: 0.1).font_(Font.default.size_(30));*/
|
||||
|
||||
|
||||
~gPanModeGui = QPopUpMenu(~grainGui, Rect(10, 300, 220, 30))
|
||||
.items_(["OFF","STEREO FRONT","STEREO BACK", "STEREO PAN", "STEREO RND", "QUAD", "QUAD ROTATE", "QUAD RANDOM" ]).font_(Font.default.size_(24));
|
||||
|
||||
|
|
@ -180,9 +194,9 @@ VLayout(
|
|||
.background_(Color.rand)
|
||||
.alwaysOnTop_(true);
|
||||
|
||||
~inputGui.bounds_(Rect(10, 60, 250, 450)); // contents adjust since coords are relative
|
||||
~grainGui.bounds_(Rect(280, 60, 450, 650)); // contents adjust since coords are relative
|
||||
~iSpatGui.bounds_(Rect(10, 570, 250, 500)); // contents adjust since coords are relative
|
||||
~inputGui.bounds_(Rect(10, 60, 250, 450)); // contents adjust since coords are relative
|
||||
~grainGui.bounds_(Rect(280, 60, 450, 650)); // contents adjust since coords are relative
|
||||
~iSpatGui.bounds_(Rect(10, 570, 250, 500)); // contents adjust since coords are relative
|
||||
)
|
||||
|
||||
|
||||
|
|
|
|||
358
gtr.scd
358
gtr.scd
|
|
@ -1,51 +1,41 @@
|
|||
|
||||
// RUNME 0 =========================================
|
||||
// todo countdown on density voices
|
||||
|
||||
Server.default.waitForBoot { // see below .bundle timings for starting synths etc.
|
||||
|
||||
( s.reboot{
|
||||
s.options.numBuffers = 1024 * 256; // increase this if you need to load more samples
|
||||
s.options.sampleRate = 44100; // also tried with 44000 value
|
||||
s.options.memSize = 8192 * 32; // increase this if you get "alloc failed" messages
|
||||
s.options.numWireBufs = 64; // increase this if you get "exceeded number of interconnect buffers" messages
|
||||
s.options.maxNodes = 1024 * 32; // increase this if you are getting drop outs and the message "too many nodes"
|
||||
s.options.numInputBusChannels = 8;
|
||||
s.options.numOutputBusChannels = 8;
|
||||
})
|
||||
|
||||
|
||||
// RUNME 1 =========================================
|
||||
( // SETUP ---------------=--------------------------
|
||||
b = Buffer.alloc(s, s.sampleRate * 5.0, 1); // Allocate a 5 second mono buffer
|
||||
~b1 = Buffer.alloc(s, s.sampleRate * 4.0, 1);
|
||||
f = Buffer.alloc(s, s.sampleRate * 4.0, 1);
|
||||
// SETUP ---------------=--------------------------
|
||||
b = Buffer.alloc(s, s.sampleRate * 10, 1); // Allocate a 5 second mono buffer
|
||||
|
||||
// Open port 57121 for ESP32 UDP OSC
|
||||
thisProcess.openUDPPort(57121);
|
||||
///////////////////////////////////////
|
||||
|
||||
~sourceGroup = Group.new;
|
||||
~fxGroup = Group.after(~sourceGroup);
|
||||
// allocate busses
|
||||
~reverbBus = Bus.audio(s, 1);
|
||||
~ringModBus = Bus.audio(s, 1);
|
||||
~micBus = Bus.audio(s,1);
|
||||
~ptrBus = Bus.audio(s,1);
|
||||
|
||||
//~sourceGrp = Group.new;
|
||||
//~fxGrp = Group.after(~sourceGrp);
|
||||
|
||||
// create group order
|
||||
~micGrp = Group.new;
|
||||
~ptrGrp = Group.after(~micGrp);
|
||||
~recGrp = Group.after(~ptrGrp);
|
||||
~granGrp = Group.after(~recGrp);
|
||||
|
||||
~fxGrp = Group.after(~micGrp);
|
||||
|
||||
//load the gui
|
||||
"/home/rob/gtr/gtr-gui-manual.scd".load;
|
||||
s.plotTree;
|
||||
s.meter;
|
||||
);
|
||||
|
||||
// RUNME 2 ==========================================
|
||||
s.makeBundle(1.0, {
|
||||
// -------------------------------------------------
|
||||
// DEFINE SYNTHS ---------------------------------
|
||||
// -------------------------------------------------
|
||||
(( // DEFINE SYNTHS ---------------------------------
|
||||
// -------------------------------------------------
|
||||
( // direct signal + reverb -------------------------
|
||||
// direct signal + reverb -------------------------
|
||||
///// outs set to 2 /// for recording to ardour .... fork todo
|
||||
|
||||
SynthDef("dryIn", { arg in=0, instrPanModeIndex=0, out=2, sensorInstrPan=0, instrPitch=0.7, instrAmp=1;
|
||||
|
|
@ -67,9 +57,7 @@ SynthDef("dryIn", { arg in=0, instrPanModeIndex=0, out=2, sensorInstrPan=0, ins
|
|||
Out.ar(out, signal);
|
||||
//Out.ar(0, Mix.ar( [signal, wet] ));
|
||||
}).add;
|
||||
);
|
||||
|
||||
(
|
||||
SynthDef("freeVerb", {
|
||||
arg in=0, mix=0.5, room=0.8, damp = 0.5;
|
||||
var signal, dry, wet;
|
||||
|
|
@ -78,7 +66,6 @@ SynthDef("freeVerb", {
|
|||
signal = wet * 0.9;
|
||||
Out.ar(2, signal!2);
|
||||
}).add;
|
||||
);
|
||||
|
||||
SynthDef("ringModulator", {
|
||||
arg in=0, modulator=300, mulrate=0.2;
|
||||
|
|
@ -89,12 +76,7 @@ SynthDef("ringModulator", {
|
|||
//signal = (rm + signal) * 0.5;
|
||||
Out.ar(2, rm!2);
|
||||
}).add;
|
||||
);
|
||||
|
||||
|
||||
( ~micBus = Bus.audio(s,1); ~ptrBus = Bus.audio(s,1););
|
||||
|
||||
(
|
||||
SynthDef.new(\mic, {
|
||||
arg in=0, out=0, amp=1;
|
||||
var sig;
|
||||
|
|
@ -103,32 +85,26 @@ SynthDef.new(\mic, {
|
|||
}).add;
|
||||
|
||||
SynthDef.new(\ptr, {
|
||||
arg out=0, buf=0, ptrMode=0;
|
||||
arg out=0, buf=0, ptrMode=0, rate=1;
|
||||
var sig;
|
||||
sig = Select.ar(ptrMode, [
|
||||
Phasor.ar(0, BufRateScale.kr(buf), 0, BufFrames.kr(buf)),
|
||||
LFNoise1.ar(100).exprange(10000, 1001)
|
||||
Phasor.ar(0, BufRateScale.kr(buf) * rate, 0, BufFrames.kr(buf)),
|
||||
LFNoise1.ar(100).exprange(10000, 10001)
|
||||
//LFNoise1.ar(100).exprange(1/BufFrames.kr(buf), BufFrames.kr(buf))
|
||||
]);
|
||||
|
||||
Out.ar(out, sig);
|
||||
}).add;
|
||||
|
||||
SynthDef.new(\rec, {
|
||||
arg ptrIn=0, micIn=0, buf=0;
|
||||
var ptr, sig;
|
||||
ptr = In.ar(ptrIn, 1);
|
||||
sig = In.ar(micIn, 1);
|
||||
BufWr.ar(sig, buf, ptr);
|
||||
}).add;
|
||||
|
||||
( // mono buffer recorder ----------------------------
|
||||
// mono buffer recorder ----------------------------
|
||||
// with loop and overdub modes /////////////////////
|
||||
|
||||
SynthDef("recBuf",{
|
||||
arg micIn=0, out=0, ptrIn=0, bufnum=0, t_trig=0, l=0, overdub=0;
|
||||
arg micIn=0, ptrIn=0, bufnum=0, t_trig=0, l=0, overdub=0;
|
||||
var sig, ptr, chain, onsets;
|
||||
sig = In.ar(micIn, 1);
|
||||
|
||||
ptr = In.ar(ptrIn, 1);
|
||||
sig = In.ar(micIn, 1);
|
||||
|
||||
// Onsets
|
||||
//chain = FFT(LocalBuf(512), sig);
|
||||
|
|
@ -138,10 +114,8 @@ SynthDef("recBuf",{
|
|||
recLevel: 1,
|
||||
preLevel: overdub,
|
||||
doneAction: 0, trigger:t_trig,
|
||||
offset: ptr,
|
||||
);
|
||||
}).add;
|
||||
);
|
||||
offset: ptr);
|
||||
}).add;
|
||||
|
||||
SynthDef.new(\gran, {
|
||||
arg amp=0.5, out=0, buf=0,
|
||||
|
|
@ -188,37 +162,36 @@ SynthDef.new(\gran, {
|
|||
|
||||
}).add;
|
||||
|
||||
))
|
||||
}); //end make bundle
|
||||
|
||||
( // RUNME 3 ==========================================
|
||||
// START SYNTHS -------------------------------------
|
||||
// RUNME 3 ==========================================
|
||||
|
||||
r = Synth(\recBuf, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b, \t_trig, 0], ~recGrp); // recorder
|
||||
|
||||
~gtrIn = Synth(\dryIn, [\instrAmp, 1, \out, ~reverbBus], ~sourceGroup); // dry audio signaL
|
||||
~reverbFX = Synth(\freeVerb, [\in, ~reverbBus], ~fxGroup);
|
||||
~ringMod = Synth(\ringModulator, [\in, ~ringModBus], ~fxGroup);
|
||||
s.makeBundle(2.0, {
|
||||
|
||||
// START SYNTHS -------------------------------------
|
||||
|
||||
Synth(\mic, [\in, 0, \out, ~micBus], ~micGrp);
|
||||
~pointer = Synth(\ptr, [\buf, b, \out, ~ptrBus], ~ptrGrp);
|
||||
//.Synth(\rec, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b], ~recGrp);
|
||||
|
||||
// todo make togglable between fx and dry feeding sampler
|
||||
r = Synth(\recBuf, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b, \t_trig, 0], ~recGrp); // recorder
|
||||
~gtrIn = Synth(\dryIn, [\instrAmp, 1, \out, ~reverbBus], ~micGrp); // dry audio signaL
|
||||
~reverbFX = Synth(\freeVerb, [\in, ~reverbBus], ~fxGrp);
|
||||
~ringMod = Synth(\ringModulator, [\in, ~ringModBus], ~fxGrp);
|
||||
|
||||
b.zero;
|
||||
|
||||
~g = 4.collect({
|
||||
~g = 1.collect({
|
||||
arg n;
|
||||
Synth(\gran,[
|
||||
\amp, 0.15,
|
||||
\amp, 0.25,
|
||||
// \amp, n.linlin(0,4, -3,-20).dbamp,
|
||||
\buf, b, // which buffer
|
||||
\out, 0,
|
||||
\atk, 10,
|
||||
\rel, 10,
|
||||
\gate, 1,
|
||||
\sync, 1,
|
||||
\dens, 21, // exprand(2,80),
|
||||
\sync, 0,
|
||||
\dens, 1, // exprand(2,80),
|
||||
\baseDur, 1, //0.08
|
||||
\durRand, 1,
|
||||
\rate, 1,
|
||||
|
|
@ -233,29 +206,26 @@ b.zero;
|
|||
\minPtrDelay, 1000, // dont get any closer to the ptr than this
|
||||
], ~granGrp);
|
||||
});
|
||||
);
|
||||
|
||||
);
|
||||
}); // end makeBundle
|
||||
|
||||
s.makeBundle(2.0, {
|
||||
|
||||
|
||||
// RUNME 4 ==========================================
|
||||
// RUNME 4 ==========================================
|
||||
|
||||
// - - OSC Receivers // ENABLE SENSOR AND SWITCH VALUES
|
||||
|
||||
OSCFunc.trace(true); // Turn posting on
|
||||
OSCFunc.trace(false); // Turn posting off
|
||||
|
||||
( // ----------------------------------------------------
|
||||
|
||||
~overdubMode= 0; ~pitchMode = 0; ~posMode = 0; ~impulseMode = 0;
|
||||
~gdurMode=0; ~gpanMode=0; ~channelmode=0; ~instrPanMode=0;
|
||||
|
||||
/*
|
||||
~btnstate = [];
|
||||
~btnsA = [];
|
||||
~btnsB = [];
|
||||
~btnsC = [];*/
|
||||
r.set(\l, 1);
|
||||
~overdubMode= 0;
|
||||
~pitchMode = 0;
|
||||
~posMode = 6;
|
||||
~densMode= 4;
|
||||
~impulseMode = 0;
|
||||
~gdurMode=0;
|
||||
~gpanMode=0;
|
||||
~channelmode=0;
|
||||
~instrPanMode=0;
|
||||
|
||||
~btn0val = -1; ~btn1val = -1; ~btn2val = -1; ~btn3val = -1;
|
||||
~btn4val = -1; ~btn5val = -1; ~btn6val = -1; ~btn7val = -1;
|
||||
|
|
@ -264,40 +234,36 @@ OSCFunc.trace(false); // Turn posting off
|
|||
~btn9val = -1; ~btn10val = -1; ~btn11val = -1; ~btn12val = -1;
|
||||
~btn13val = -1; ~btn14val = -1; ~btn15val = -1; ~btn16val = -1;
|
||||
|
||||
//~pitchMode=7;
|
||||
|
||||
(( // accel gyro quaternion mapping ///////////////////
|
||||
|
||||
// msg[1] msg[2] msg[3] X Y Z ==> ROLL, PITCH, YAW
|
||||
// msg[1] msg[2] msg[3] X Y Z ==> ROLL, PITCH, YAW
|
||||
|
||||
o = OSCdef(\test, { arg msg, time, addr, recvPort, rlow, rhigh;
|
||||
o = OSCdef(\test, { arg msg, time, addr, recvPort, rlow, rhigh;
|
||||
|
||||
if ( ~pitchMode == 7,
|
||||
{
|
||||
//"it's 7".postln;
|
||||
msg.postln;
|
||||
~g.do({arg n; n.set(
|
||||
\rate, msg[2].linlin(-1, 1, 0.5, 2);
|
||||
\rateRand, msg[3].linlin(0, -0.5, 1, 10);
|
||||
)}; );
|
||||
},
|
||||
{"not 7".postln;} );
|
||||
if ( ~pitchMode == 7,
|
||||
{
|
||||
//"it's 7".postln;
|
||||
msg.postln;
|
||||
~g.do({arg n; n.set(
|
||||
\rate, msg[2].linlin(-0.5, 0.5, 0.125,2);
|
||||
//\rateRand, msg[3].linlin(0, -0.5, 1, 10);
|
||||
)}; );
|
||||
},
|
||||
{} );
|
||||
|
||||
if ( ~posMode == 7,
|
||||
{
|
||||
//"it's 7".postln;
|
||||
msg.postln;
|
||||
~ptr.do({arg n; n.set(
|
||||
//\ptrRandSamples, s.sampleRate * 0.125, \minPtrDelay, 1000, \ptrSampleDelay, s.sampleRate * msg[2].linlin(-0.3, 0.3, 0.1, 3) ;
|
||||
//\sig, BufFrames.kr(b) * msg[2].linlin(-0.3, 0.3, 0.1, 1)
|
||||
)}; );
|
||||
},
|
||||
{"not 7".postln;} );
|
||||
if ( ~posMode == 7,
|
||||
{
|
||||
//"it's 7".postln;
|
||||
msg.postln;
|
||||
~ptr.do({arg n; n.set(
|
||||
//\ptrRandSamples, s.sampleRate * 0.125, \minPtrDelay, 1000, \ptrSampleDelay, s.sampleRate * msg[2].linlin(-0.3, 0.3, 0.1, 3) ;
|
||||
//\sig, BufFrames.kr(b) * msg[2].linlin(-0.3, 0.3, 0.1, 1)
|
||||
)}; );
|
||||
}, {} );
|
||||
|
||||
|
||||
}; , '/euler');
|
||||
);
|
||||
|
||||
}; , '/euler');
|
||||
);
|
||||
|
||||
// ----------------------------------------------------
|
||||
// send message back to nodejs
|
||||
|
|
@ -309,44 +275,39 @@ m.sendMsg("/xyzc", 0);
|
|||
// ----------------------------------------------------
|
||||
// button press mapping ///////////////////////////////
|
||||
// ----------------------------------------------------
|
||||
|
||||
n = NetAddr("127.0.0.1", NetAddr.langPort);
|
||||
|
||||
p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
||||
//msg[1].postln;
|
||||
/* ~btnsA[~btn2val, ~btn3val];
|
||||
~btnsB[~btn4val, ~btn5val, ~btn6val, ~btn7val];
|
||||
~btnsC[~btn5val];*/
|
||||
|
||||
// ~btnstate = [~btnsA, ~btnsB, ~btnsC];
|
||||
|
||||
/// PRESETS !!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
if (msg[9] == 1 && msg[10] == 1, {
|
||||
|
||||
( ~btn0val = (~btn0val + 1) % 5 ) ;
|
||||
switch( ~btn0val,
|
||||
0, { "PONTALISTIFANTASTICO".postln;
|
||||
|
||||
~g.do({arg n; n.set(\baseDur, 0.5 )});
|
||||
~g.do({arg n; n.set(\durRand, 1)});
|
||||
~g.do({arg n; n.set(\dens, 32)});
|
||||
~g.do({arg n; n.set(\rate, 1)});
|
||||
~g.do({arg n; n.set(\rateRand, 32)});
|
||||
~g.do({arg n; n.set(\sync, 1)});
|
||||
~g.do({arg n; n.set(\ptrRandSamples, 6400000, )});
|
||||
},
|
||||
|
||||
1, { "DRONAUSAURUS".postln;
|
||||
~g.do({arg n; n.set([\baseDur, 1, \durRand, 2, \dens, 100, \rate, 1, \rateRand, 1, \sync, 0, \ptrRandSamples, 200000, ])}); },
|
||||
2, { "MINIMAL5THsISM".postln;
|
||||
~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
3, { "PONTALISTIFANTASTICO====".postln;
|
||||
~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
4, { "PONTALISTIFANTASTICO+++++++++".postln;
|
||||
~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
);
|
||||
|
||||
});
|
||||
// /// PRESETS !!!!!!!!!!!!!!!!!!!!!!!
|
||||
//
|
||||
// if (msg[9] == 1 && msg[10] == 1, {
|
||||
//
|
||||
// ( ~btn0val = (~btn0val + 1) % 5 ) ;
|
||||
// switch( ~btn0val,
|
||||
// 0, { "PONTALISTIFANTASTICO".postln;
|
||||
//
|
||||
// ~g.do({arg n; n.set(\baseDur, 0.5 )});
|
||||
// ~g.do({arg n; n.set(\durRand, 1)});
|
||||
// ~g.do({arg n; n.set(\dens, 32)});
|
||||
// ~g.do({arg n; n.set(\rate, 1)});
|
||||
// ~g.do({arg n; n.set(\rateRand, 32)});
|
||||
// ~g.do({arg n; n.set(\sync, 1)});
|
||||
// ~g.do({arg n; n.set(\ptrRandSamples, 6400000, )});
|
||||
// },
|
||||
//
|
||||
// 1, { "DRONAUSAURUS".postln;
|
||||
// ~g.do({arg n; n.set([\baseDur, 1, \durRand, 2, \dens, 100, \rate, 1, \rateRand, 1, \sync, 0, \ptrRandSamples, 200000, ])}); },
|
||||
// 2, { "MINIMAL5THsISM".postln;
|
||||
// ~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
// 3, { "PONTALISTIFANTASTICO====".postln;
|
||||
// ~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
// 4, { "PONTALISTIFANTASTICO+++++++++".postln;
|
||||
// ~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])}); },
|
||||
// );
|
||||
//
|
||||
//});
|
||||
|
||||
// ==============================
|
||||
// BUTTON MAPPING
|
||||
|
|
@ -391,13 +352,7 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
});
|
||||
|
||||
///// GUI UPDATER CODE /////////////////////////////////////////////////////////////////
|
||||
|
||||
|
||||
|
||||
//// sampler gui
|
||||
|
||||
|
||||
|
||||
case
|
||||
{~overdubMode == 0 }{{~overdubModeGui.value_(0) }.defer; r.set(\overdub, 0); }
|
||||
{~overdubMode == 1 }{{~overdubModeGui.value_(1) }.defer; r.set(\overdub, 0.3); }
|
||||
|
|
@ -434,7 +389,7 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
|
||||
case // \ptrSampleDelay
|
||||
{~posMode == 0 }{{~posModeGui.value_(0) }.defer; ~g.do({arg n; n.set(
|
||||
\ptrRandSamples, s.sampleRate * 0.125, \minPtrDelay, 1000, \ptrSampleDelay, s.sampleRate * 1) }); }
|
||||
\ptrRandSamples, s.sampleRate * 0, \minPtrDelay, 1000, \ptrSampleDelay, s.sampleRate * 1) }); }
|
||||
|
||||
{~posMode == 1 }{{~posModeGui.value_(1) }.defer; ~g.do({arg n; n.set(
|
||||
\ptrRandSamples, s.sampleRate * 0.25, \minPtrDelay, 1500, \ptrSampleDelay, s.sampleRate * 1) }); }
|
||||
|
|
@ -514,9 +469,8 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
{~fxMode == 11 }{{~fxModeGui.value_(11) }.defer; ~gtrIn.set(\out, ~ringModBus); ~ringMod.set(\modulator, rrand(1,1111), \mulrate, 1); }
|
||||
{~fxMode == 12 }{{~fxModeGui.value_(12) }.defer; ~gtrIn.set(\out, ~ringModBus); ~ringMod.set(\modulator, rrand(1,22111), \mulrate, 1); };
|
||||
|
||||
////////////////////////////////////////////////////////////////////
|
||||
|
||||
// BUTTON X ----> toggle fx
|
||||
// BUTTON X ----> toggle fx ////////////////////////////////////
|
||||
if (msg[13]==1,
|
||||
{
|
||||
( ~btn4val = (~btn4val + 1) % 13 ) ;
|
||||
|
|
@ -544,7 +498,7 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
( ~btn5val = (~btn5val + 1) % 2 ) ;
|
||||
switch( ~btn5val,
|
||||
0, { ~pitchMode = 0; "PITCH RESET TO UNTRANSPOSED MODE".postln; },
|
||||
1, { ~pitchMode = 1; "PITCH IN SENSOR MODE".postln; }
|
||||
1, { ~pitchMode = 7; "PITCH IN SENSOR MODE".postln; }
|
||||
);
|
||||
});
|
||||
|
||||
|
|
@ -591,11 +545,9 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
)
|
||||
});
|
||||
|
||||
|
||||
}, /// SHIFT 0 LOGIC ENDS HERE --------------------------------------------
|
||||
|
||||
{
|
||||
// SHIFT IN STATE 1 ======================= ..........................
|
||||
{ // SHIFT IN STATE 1 ======================= ..........................
|
||||
|
||||
// GTR INPUT =======================
|
||||
if (msg[11]==1,
|
||||
|
|
@ -682,95 +634,11 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
|
||||
}); // SHIFT ONE LOGIC ENDS HERE ================
|
||||
|
||||
} , '/keys');
|
||||
// } , '/localhostInLevels');
|
||||
));
|
||||
//} , '/keys');
|
||||
} , '/localhostInLevels');
|
||||
);
|
||||
);
|
||||
}); // end makeBundle for OSC code
|
||||
}; // end wait for boot
|
||||
|
||||
|
||||
~gdurMode = 2;
|
||||
|
||||
|
||||
// ----------------------------------------------------
|
||||
// LIVE CODE / PERFORMABLE PARAMETERS /////////////////
|
||||
// ----------------------------------------------------
|
||||
// set recorder loop and overdub modes ////////////
|
||||
|
||||
// start recording (without button)
|
||||
|
||||
r.set(\in, 0, \l, 1, \overdub, 0.2, \t_trig, 1);
|
||||
r.set(\l, 0); // looping record on/off 0/1 - MAPPED TO SWITCH 3
|
||||
r.set(\overdub, 0.9); // overdub mode 0 - 0.99 - MAPPED TO SWITCH 4
|
||||
|
||||
~ptrGrp.set(\rate, 0.2);
|
||||
|
||||
~g.set(\gate, 0);
|
||||
~g.do({arg n; n.set(\gate, 1 )});
|
||||
~g.do({arg n; n.set(\rate, 2 )});
|
||||
|
||||
\amp, n.linlin(0,4, -3,-20).dbamp,
|
||||
|
||||
~g.do({arg n; n.set(\amp, 0.8)});
|
||||
~g.do({arg n; n.set(\rateRand, 300 )});
|
||||
~g.do({arg n; n.set(\amp, 0.3, \dens, 4 )});
|
||||
~g.do({arg n; n.set(\rateRand, 0)});
|
||||
|
||||
~g.do({arg n; n.set(\baseDur, 2)});
|
||||
~g.do({arg n; n.set(\durRand, 100)});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\panRand, 1)});
|
||||
~g.do({arg n; n.set(\sync, 1 )});
|
||||
~g.do({arg n; n.set(\atk, exprand(0.1, 1) )});
|
||||
~g.do({arg n; n.set(\atk, exprand(0.1, 1) )});
|
||||
~g.do({arg n; n.set(\atk, 1000 )});
|
||||
|
||||
~g.do({arg n; n.set(\rel, 1000 )});
|
||||
~g.do({arg n; n.set(\dens, exprand(1,80) )});
|
||||
|
||||
~g.do({arg n; n.set(\dens,10)});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\panRand, 1 )});
|
||||
|
||||
\ptrSampleDelay, n.linlin(0,4, 20000, s.sampleRate*5),
|
||||
|
||||
~g.do({arg n; n.set(\ptrSampleDelay, s.sampleRate * 4) });
|
||||
~g.do({arg n; n.set(\ptrRandSamples, s.sampleRate * 4 )});
|
||||
|
||||
~g.do({arg n; n.set(\ptrRandSamples, 2000 )});
|
||||
|
||||
~g.do({arg n; n.set(\minPtrDelay, 200 )});
|
||||
|
||||
~g.do({arg n; n.set([\baseDur, 0.0100])});
|
||||
~g.do({arg n; n.set([\durRand, 1000])});
|
||||
|
||||
|
||||
~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\baseDur, 0.3, \durRand, 1, \sync, 1, \dens, 155 )});
|
||||
~g.do({arg n; n.set([\baseDur, 1.08, \durRand, 3, \sync, 0, \dens, 25 ])});
|
||||
|
||||
|
||||
~rec.set(\overdubLevel, 0.1);
|
||||
|
||||
~pointer.set(\ptrMode, 1);
|
||||
|
||||
////////////////////////////////////////////////////////////////////////
|
||||
|
||||
thisProcess.platform.recordingsDir;// find where the recordings are written to
|
||||
s.record(numChannels:4); // record
|
||||
|
||||
|
||||
|
||||
// CODE DUMP ZONE ///////////////////////////////
|
||||
|
||||
// switch to the custom env
|
||||
//~g1.set(\envbuf, z);
|
||||
//~g1.set(\envbuf, -1);
|
||||
n = NetAddr("127.0.0.1", NetAddr.langPort);
|
||||
//n = NetAddr.new("224.0.1.9", 6696);
|
||||
|
||||
|
||||
|
||||
// todo countdown on density voices
|
||||
|
|
|
|||
Loading…
Reference in New Issue