gtr/gtr.scd

// RUNME 0 =========================================
// todo countdown on density voices

( 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 -----------------------------------------
// Allocate a 4 second mono buffer
b = Buffer.alloc(s, s.sampleRate * 4.0, 1);
~b1 = Buffer.alloc(s, s.sampleRate * 4.0, 1);
f = Buffer.alloc(s, s.sampleRate * 4.0, 1);

// load a test file
//f = Buffer.read(s, thisProcess.nowExecutingPath.dirname +/+ "sounds/Front_Left.wav");
//b = Buffer.read(s,  "/usr/share/sounds/alsa/Front_Left.wav");

//b=f;

// Open port 57121 for ESP32 UDP OSC
thisProcess.openUDPPort(57121);
///////////////////////////////////////
~sourceGroup = Group.new;
~fxGroup = Group.after(~sourceGroup);
~reverbBus = Bus.audio(s, 1);
~ringModBus = Bus.audio(s, 1);


//load the gui

"/home/rob/gtr/gtr-gui-manual.scd".load;

);

s.plotTree;

// RUNME 2 ==========================================
// -------------------------------------------------
(( // DEFINE SYNTHS --------------------------------- <--
// -------------------------------------------------

( // direct signal + reverb -------------------------

SynthDef("dryIn", { arg in=0, instrPanModeIndex=0, out=0,  sensorInstrPan=0, instrPitch=0.7, instrAmp=1;
	var signal, dry, wet, instrPan, instrPanMode0, instrPanMode1, instrPanMode2, instrPanMode3, instrPanMode4, instrPanMode5;

	instrPanMode0 = 0; //LFNoise1.kr(100).range(-0.2, 0.2);
	instrPanMode1 = 1; //LFNoise1.kr(100).range(-0.2, 0.2);
	instrPanMode2 = SinOsc.kr(0.33).range(-0.2, 0.2);
	instrPanMode3 = LFNoise1.kr(10).range(-0.2, 0.2);
	instrPanMode4 = LFSaw.kr(0.33).bipolar.range(-1,1);
	instrPanMode5 = LFNoise1.kr(10).range(-1, 1);

	instrPan = Select.kr(instrPanModeIndex,
		[instrPanMode0, instrPanMode1, instrPanMode2, instrPanMode3,
		instrPanMode4, instrPanMode5, sensorInstrPan]);

	signal = SoundIn.ar(in);
	//signal = PanAz.ar(4, signal, instrPan);
	signal = signal * instrAmp;

	//wet = PitchShift.ar(signal, pitchRatio: instrPitch, pitchDispersion: 0.3, timeDispersion: 0.1);
	Out.ar(out, signal);
	//Out.ar(0, Mix.ar( [signal, wet] ));
}).add;
);

(
SynthDef("freeVerb", {
	arg in=0;
	var signal, dry, wet;
	dry = In.ar(in);
	wet = FreeVerb.ar(dry, mix:0.5, room:1, damp:0);
	signal = wet * 0.9;
	Out.ar(0, signal);
}).add;
);

SynthDef("ringModulator", {
	arg in=0, modulator=300, mulrate=0.2;
	var signal, rm , carrier, multiplier;
	signal = In.ar(in);
	multiplier = SinOsc.ar(mulrate);
	rm = signal * SinOsc.ar(modulator, mul:multiplier);
	signal = (rm + signal) * 0.5;
	Out.ar(0, signal!2);
}).add;
);


( // mono buffer recorder ----------------------------
// with loop and overdub modes /////////////////////
// make record togglable between looping, direct or onset detection trigger

SynthDef("recBuf",{
	arg in=0, out=0, bufnum=0, t_trig=0, l=0, overdub=0;
	var sig, chain, onsets;
	sig = SoundIn.ar(in);
	//	Onsets
	chain = FFT(LocalBuf(512), sig);
	onsets = Onsets.kr(chain, MouseX.kr(0,1), \rcomplex);

	RecordBuf.ar(sig, bufnum, loop:l,
		preLevel: overdub,
		doneAction: 0, trigger:t_trig,);
}).add;
);

// ---------~positionmode = 1; -------------------------------------------

(  // Granulator --------------------------------------
// ----------------------------------------------------

// a custom envelope
//var winenv;
//winenv = Env([0, 1, 0], [0.5, 0.5], [8, -8]);
//z = Buffer.sendCollection(s, winenv.discretize, 1);
// ~rndpos = LFNoise2.kr(0.1).range(0, 1);

SynthDef(\buf_grain, { | out=0, gate = 1, amp = 0.5,
	sndbuf, envbuf, pan=0,  imp=50,
	pitchmodeindex=0, sensorpitch=1, sensorgdur=0.1, sensorgpan=0,
	 positionmodeindex=0, gdurmodeindex=0, gpanmodeindex=0,
	sensorposition=0, impulsemodeindex=0, sensorimpulse=0,
	signalChannelIndex=1, dseqarrayIndex=1,
	rlow= -1, rhigh=10 |

	var signal, env, freqdev, pos,
	pitchmode0, pitchmode1, pitchmode2,pitchmode3,pitchmode4,pitchmode5, pitchmode6, pitch,
	gdurmode0, gdurmode1, gdurmode2, gdurmode3,  gdurmode4, gdurmode5,  gdurmode6, gdur,
	gpanmode0, gpanmode1, gpanmode2, gpan,
	positionmode0, positionmode1, positionmode2, positionmode3, position,
	impulsemode0, impulsemode1, impulse,
	xdseq, dseq_array1, dseq_array2, dseq_array3, dseq_array4, dseq_array5, dseq_array6,
	stereosignal, quadsignalL, quadsignalR, quadsignal, signalchannels;

	// grain duration mode -untransposed, random, or sensor controlled
	gdurmode0 = 0.2;
	gdurmode1 = 0.5;
	gdurmode2 = LFNoise1.kr.range(0.1, 0.3);
	gdurmode3 = LFNoise1.kr.range(0.1, 0.6);
	gdurmode4 = LFNoise1.kr.range(1, 2);
	gdurmode5 = LFNoise1.kr.range(1, 4);
	gdurmode6 = LFNoise1.kr.range(4, 4);

	gdur = Select.kr(gdurmodeindex,
		[gdurmode0, gdurmode1, gdurmode2, gdurmode3, gdurmode4, gdurmode5, gdurmode6, sensorgdur]);

	// grain pan mode STEREO, QUAD, ROTATING
	gpanmode0 = LFNoise1.kr(100).range(-0.2, 0.2);
	gpanmode1 = LFSaw.kr(0.33).bipolar.range(-1,1);
	gpanmode2 = LFNoise1.kr(100).range(-1, 1);
	gpan = Select.kr(gpanmodeindex,
		[gpanmode0, gpanmode1, gpanmode2, sensorgpan]);

		// grain pitch mode -untransposed, random, or sensor controlled

	Scale.minor.degrees.midiratio;

/*	 dseq_array1 = Dseq([1,-1, 2, 1, -1.5, 1, 1.33, 1,  -0.5, 1,  3, 1, 2.37, 1, -0.33, 1], inf);
	 dseq_array2 = Dseq([1,-1, -0.5, 1, 1.33, 1], inf);
	 dseq_array3 = Drand([(1..5).mirror.midiratio], inf);
	 dseq_array4 = Drand(Scale.minor.degrees.midiratio, inf);
	 dseq_array5 = Dseq([1,-1, -0.5, 1, 1.33, 1], inf);*/
	//

	// xdseq = [dseq_array1, dseq_array2,dseq_array3, dseq_array4, dseq_array5];

	//dseqarrayIndex =1;

	pitchmode0 = 1;
	//pitchmode1 = Demand.kr(Impulse.kr(imp), 0, Dseq([1,-1, 2, 1, -1.5, 1, 1.33, 1,  -0.5, 1,  3, 1, 2.37, 1, -0.33, 1], inf));
	pitchmode1 = Demand.kr(Impulse.kr(imp), 0, Drand([1,1, 1,1,1,1, 2, 3, 3, 0.5, 0.5], inf));
	pitchmode2 = Demand.kr(Impulse.kr(imp), 0, Drand(Scale.minor.degrees.midiratio, inf) * Drand([0.5, 0.25,1,2], inf));
	pitchmode3 = Demand.kr(Impulse.kr(imp), 0, Dseq([1,-1, -0.5, 1, 1.33, 1], inf));
	pitchmode4 = Demand.kr(Impulse.kr(imp), 0, Drand([0.5, 0.25,1,2], inf));
	pitchmode5 = Demand.kr(Impulse.kr(imp), 0, Drand(Scale.diminished.degrees.midiratio, inf));
	pitchmode6 = LFNoise1.kr(imp).range(rlow, rhigh);

	pitch = Select.kr(pitchmodeindex,
		[pitchmode0, sensorpitch, pitchmode1, pitchmode2 ,pitchmode3, pitchmode4, pitchmode5, pitchmode6]);

	// granular playhead mode - fixed random or sensor controlled
	positionmode0 = 0.2;
	positionmode1 = (Phasor.ar(0.01, 1 * BufRateScale.ir(b), 0, BufSamples.ir(b)) + LFNoise1.ar(100).bipolar(0.1 * SampleRate.ir) ) / BufSamples.ir(b);
	positionmode2 = LFNoise1.kr.range(0.05, (BufSamples.ir(b)-1) - 1000 );
	positionmode3 = LFNoise1.kr.range(0.1, 3.8 );

	position = Select.kr(positionmodeindex,
		[positionmode0, positionmode1, positionmode2, positionmode3, sensorposition]);

	//  grain impulse frequency mode - random, metric or sensor based impulse modes
	impulsemode0 = Impulse.kr(imp);
	impulsemode1 = Dust.kr(imp);
	impulse = Select.kr(impulsemodeindex,
		[impulsemode0, impulsemode1, sensorimpulse]);

	env = EnvGen.kr( Env([0, 1, 0], [1, 1], \sin, 1), gate, levelScale: amp, doneAction: 2);

	signal = TGrains.ar(4, impulse, b, pitch, position, gdur, gpan, amp, 4) * env;

	Out.ar(0, signal);

}).add;
);
)

((  // RUNME 3  ==========================================
	// START SYNTHS ---------------------------------
	// ----------------------------------------------------

	r = Synth(\recBuf, [\in, 0, \out, 0, \bufnum, b, \t_trig, 0]); // recorder
	~g1 = Synth(\buf_grain, [\sndbuf, b, \amp, 0.5, \envbuf, -1, \gate, 1, doneAction: 2, ], ~fxGroup); // granulate
	~gtrIn = Synth(\dryIn, [\instrAmp, 1, \out, ~ringModBus], ~sourceGroup); // dry audio signaL
	~reverbFX = Synth(\freeVerb, [\in, ~reverbBus], ~fxGroup);
	~ringMod = Synth(\ringModulator, [\in, ~ringModBus], ~fxGroup);

));


~ringMod.set(\in, 9);
~gtrIn.set(\out, 0);
~gtrIn.set(\out, ~ringModBus);
~gtrIn.set(\out, ~reverbBus);
~gtrIn.set(\out, [~reverbBus, ~ringModBus]);

~ringMod.set(\modulator, 0);
~ringMod.set(\mulrate, 0);



// RUNME 4  ==========================================
// ----------------------------------------------
OSCFunc.trace(true); // Turn posting on
OSCFunc.trace(false); // Turn posting off


(( // OSC Receivers // ENABLE SENSOR AND SWITCH VALUES  <--
// ----------------------------------------------------
~overdubmode= 0; ~pitchmode = 0; ~positionmode = 0; ~impulsemode = 1;
~gdurmode=0; ~gpanmode=0; ~channelmode=0;
~instrPanMode=0;

~btnstate = [];
~btnsA = [];
~btnsB = [];
~btnsC = [];

~btn0val = -1; ~btn1val = -1; ~btn2val = -1; ~btn3val = -1;
~btn4val = -1; ~btn5val = -1; ~btn6val = -1; ~btn7val = -1;
~btn8val = -1; // shift buttons


~btn9val = -1; ~btn10val = -1; ~btn11val = -1; ~btn12val = -1;
~btn13val = -1; ~btn14val = -1; ~btn15val = -1; ~btn16val = -1;



	( // accel gyro quaternion mapping ///////////////////
		// msg[1] msg[2] msg[3]  X Y Z ==> ROLL, PITCH, YAW

		o = OSCdef(\test, { arg msg, time, addr, recvPort, rlow, rhigh;
			// PAN ------- X Roll
			~g1.set(\pan, msg[1].linlin(-0.3,  0.3,  -1, 1));
			~g1.set(\gpanmodeindex, ~gpanmode );

			// PITCH ------- Y Pitch
			~g1.set(\sensorpitch,  msg[3]+1 * 2);
			~g1.set(\pitchmodeindex, ~pitchmode );

			// POSITION ------- Z Yaw
			~g1.set(\sensorposition, msg[1].linlin(-0.2, 0.6, 0.05, 3.99));
			~g1.set(\positionmodeindex, ~positionmode );

			// RATE ------- X (roll [with PAN])

			~g1.set(\sensorimpulse, msg[2].linlin(-1, 1, 5, 50));
			~g1.set(\impulsemodeindex, ~impulsemode );

			~g1.set(\sensorgdur, msg[2].linlin(-1, 1, 0.1, 1));
			~g1.set(\gdurmodeindex, ~gdurmode );

			~g1.set(\sensorgpan, msg[2]);
			~g1.set(\gpanmodeindex, ~gpanmode );

			//~g1.set(\sensorgpan, msg[2].linlin(-1, 1, -1, 1));
			//~g1.set(\signalChannelIndex, ~channelmode );

			~gtrIn.set(\sensorInstrPan, msg[2].wrap(0, 5).linlin(0, 5, -1, 1));
			~gtrIn.set(\instrPanModeIndex, ~instrPanMode);
			//msg.postln;

		}; , '/euler');
	);


// ----------------------------------------------------
// send message back to nodejs
	m = NetAddr("127.0.0.1", 57100);
	// on off osconoff accelerometer data
	m.sendMsg("/xyzc", 1);
	m.sendMsg("/xyzc", 0);

// ----------------------------------------------------
// button press mapping ///////////////////////////////
// ----------------------------------------------------
	n = NetAddr("127.0.0.1", NetAddr.langPort);

	//~switchArray = [0, 0, 0, 0 ,0 ,0 ,0, 0, 0, 0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ];
	//~switchArray.put(15, 1); ~switchArray.put(11, 1); ~switchArray.put(10, 1);  ~switchArray.put(9, 1);

	//j = List.new;

	//j = ~switchArray.replace("[", "").replace("]", "");

	//n.sendMsg("/keys", 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
	//n.sendMsg("/keys",);

	//n.sendMsg("/keys", 1,2,3,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1);


	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];

		if (msg[9] == 1 &&  msg[10] == 1,   {~btnstate.postln;});

		//msg.println;
		// ==============================
		// BUTTON MAPPING
		// ==============================

		// TRIGGER BUTTONS (3) ------------------------------

		// if SHIFT key is 0:
		if (msg[9] == 0, {

		// BUTTON X ----- TRIGGER ONESHOT BUFFER RECORD
			if (msg[10] == 1, { r.set( \in, 0, \l, 0, \t_trig, 1);
				"/////////// SAMPLING!".postln; { ~recTrigButton.value_(0) }.defer  }, { { ~recTrigButton.value_(1) }.defer } );

			// BUTTON X ----> LOOP RECORDING MODE ON/OFF
			if (msg[11]==1,
				{
					( ~btn2val = (~btn2val + 1) % 3 ) ;
					switch( ~btn2val,
						0, { r.set(\l, 0); "RECORD LOOPING OFF".postln;  { ~recModeGui.value_(0) }.defer },
						1, { r.set(\l, 1); "RECORD LOOPING ON".postln;   { ~recModeGui.value_(1) }.defer },
						2, { r.set(\l, 1); "ONSET DETECTION ON".postln;  { ~recModeGui.value_(2) }.defer },
					);
			});

			// BUTTON X ----> OVERDUB RECORDING MODE ON/OFF
			if (msg[12]==1,
				{
					( ~btn3val = (~btn3val + 1) % 6 ) ;
					switch( ~btn3val,
						0, { r.set(\overdub, 0);     "SAMPLE OVERDUB OFF".postln;     { ~overdubModeGui.value_(0) }.defer },
						1, { r.set(\overdub, 0.3);   "SAMPLE OVERDUB ON 30%".postln;  { ~overdubModeGui.value_(1) }.defer },
						2, { r.set(\overdub, 0.5);   "SAMPLE OVERDUB ON 50%".postln;  { ~overdubModeGui.value_(2) }.defer },
						3, { r.set(\overdub, 0.75);  "SAMPLE OVERDUB ON 75%".postln;  { ~overdubModeGui.value_(3) }.defer },
						4, { r.set(\overdub, 0.90);  "SAMPLE OVERDUB ON 90%".postln;  { ~overdubModeGui.value_(4) }.defer },
						5, { r.set(\overdub, 1);     "SAMPLE OVERDUB ON 100%".postln; { ~overdubModeGui.value_(5) }.defer },
					)
			});



			// BUTTON X ----> toggle fx
			if (msg[13]==1,
				{
					( ~btn4val = (~btn4val + 1) % 4 ) ;
					switch( ~btn4val,
						0, { r.set(\l, 0); "dry".postln;  { 	~gtrIn.set(\out, ~ringModBus); ~ringMod.set(\modulator, 0, \mulrate, 0); ~fxModeGui.value_(0) }.defer },
						1, { r.set(\l, 1); "ring mod".postln;   { ~gtrIn.set(\out, ~ringModBus); ~ringMod.set(\modulator, 77, \mulrate, 0.1); ~fxModeGui.value_(1) }.defer },
						2, { r.set(\l, 1); "reverb".postln;  { ~gtrIn.set(\out, ~reverbBus);  ~fxModeGui.value_(2) }.defer },
						3, { r.set(\l, 1); "reverb + ringmod".postln;  { ~gtrIn.set(\out, [~reverbBus, ~ringModBus]);  ~fxModeGui.value_(3) }.defer },

					);
			});

			~gtrIn.set(\out, ~ringModBus);



			/////////////////// RESET RANDOM PITCH TO FIXED PITCH IN ONE TAP

			if (msg[14]==1,
				{
					( ~btn5val = (~btn5val + 1) % 2 ) ;
					switch( ~btn5val,
						0, { ~pitchmode = 0; "PITCH RESET TO UNTRANSPOSED MODE".postln; { ~pitchModeGui.value_(0) }.defer },
						1, { ~pitchmode = 1; "PITCH IN SENSOR MODE".postln; { ~pitchModeGui.value_(1) }.defer }
					);
			});

			// INCREASE IMPULSE RATE ---------------------------------------

			if (msg[15]==1,
				{
					( ~btn6val = (~btn6val + 1) % 8 ) ;
					switch(~btn6val,
						0, {  ~g1.set(\imp, 1);   "IMPULSE = 1".postln;  { ~densityModeGui.value_(0) }.defer },
						1, {  ~g1.set(\imp, 2);   "IMPULSE = 2".postln;  { ~densityModeGui.value_(1) }.defer },
						2, {  ~g1.set(\imp, 4);   "IMPULSE = 4".postln;  { ~densityModeGui.value_(2) }.defer },
						3, {  ~g1.set(\imp, 8);   "IMPULSE = 8".postln;  { ~densityModeGui.value_(3) }.defer },
						4, {  ~g1.set(\imp, 16);  "IMPULSE = 16".postln; { ~densityModeGui.value_(4) }.defer },
						5, {  ~g1.set(\imp, 32);  "IMPULSE = 32".postln; { ~densityModeGui.value_(5) }.defer },
						6, {  ~g1.set(\imp, 64);  "IMPULSE = 64".postln; { ~densityModeGui.value_(6) }.defer },
						7, {  ~g1.set(\imp, 64);  "IMPULSE = 64".postln; { ~densityModeGui.value_(7) }.defer },
					)
			});

			// BUTTON X ----- G PANNING MODE
			if (msg[16]==1,
				{
					( ~btn7val = (~btn7val + 1) % 3 ) ;
					switch( ~btn7val,
						0, { ~gpanmode = 0 ; "PAN STEREO".postln; },
						1, { ~gpanmode = 1 ; "PAN QUAD ROTATIONS".postln; },
						2, { ~gpanmode = 2 ; "PAN RANDOM QUAD".postln; },
					)
			});


		}, /// SHIFT 0 LOGIC ENDS HERE --------------------------------------------

		{
			// SHIFT IN STATE 1 ======================= ..........................

			// GTR INPUT =======================
			if (msg[11]==1,
				{
					( ~btn10val = (~btn10val + 1) % 9 ) ;

					switch(~btn10val,

						0, { ~gtrIn.set(\instrAmp, 0 );   "DRY SIGNAL OFF".postln;{ ~instrPanModeGui.value_(0)}.defer },
						1, {  ~gtrIn.set(\in, 0, \instrAmp, 1 ); ~instrPanMode=0;  "DRY FRONT {STERE0}".postln; { ~instrPanModeGui.value_(1)}.defer },
						2, {  ~gtrIn.set(\in, 0 ); ~instrPanMode=1;  "DRY BACK {STERE0}".postln;  { ~instrPanModeGui.value_(2)}.defer },
						3, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=2;  "DRY RaND {STEREO}".postln; { ~instrPanModeGui.value_(3)}.defer },
						4, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=3;  "L/R PAN {STEREO}".postln; { ~instrPanModeGui.value_(4)}.defer },
						5, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=4;  "DRY ROTATE {QUAD}".postln; { ~instrPanModeGui.value_(5)}.defer },
						6, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=5;  "DRY RaND {QUAD}".postln; { ~instrPanModeGui.value_(6)}.defer },
						7, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=6;  "DRY SENSOR {QUAD}".postln; { ~instrPanModeGui.value_(7)}.defer },
						8, {  ~gtrIn.set(\in, 0 );  ~instrPanMode=7;  "DRY SENSOR {QUAD}".postln; { ~instrPanModeGui.value_(8)}.defer },

					)
			});


			// BUTTON X && X RESET/ZERO SENSORS [in firmware just here for notificaton]
			if (msg[12] == 1, { " ===== EULER ZEROED! =====".postln }, {});


			// BUTTON X ----- GRANULAR POSITION MODE
			if (msg[13]==1,
				{
					( ~btn12val = (~btn12val + 1) % 5 ) ;
					switch(~btn12val,
						0, { ~positionmode = 0;  "PLAYHEAD MODE FIXED".postln;      { ~positionModeGui.value_(0) }.defer },
						1, { ~positionmode = 1;  "PLAYHEAD MODE LOOPING".postln;    { ~positionModeGui.value_(1) }.defer },
						2, {  ~positionmode = 2;  "PLAYHEAD MODE RANDOM".postln;    { ~positionModeGui.value_(2) }.defer },
						3, {  ~positionmode = 3; "PLAYHEAD CONSTRAINED RND".postln; { ~positionModeGui.value_(3) }.defer },
						4, {  ~positionmode = 4; "PLAYHEAD MODE SENSOR".postln;     { ~positionModeGui.value_(4) }.defer },
					)
			});

			// BUTTON X ----- GRANULAR PITCH MODE
			if (msg[14]==1,
				{
					( ~btn13val = ((~btn13val + 1) % 9 ) ) ;
					switch(~btn13val,
						0, { ~pitchmode = 0;  "pitch array 0".postln; { ~pitchModeGui.value_(0) }.defer  },
						1, { ~pitchmode = 1;  "pitch array 1".postln; { ~pitchModeGui.value_(1) }.defer  },
						2, { ~pitchmode = 2;  "pitch array 0".postln; { ~pitchModeGui.value_(2) }.defer  },
						3, { ~pitchmode = 3;  "pitch array 0".postln; { ~pitchModeGui.value_(3) }.defer  },
						4, { ~pitchmode = 4;  "pitch array 2".postln; { ~pitchModeGui.value_(4) }.defer  },
						5, { ~pitchmode = 5;  "pitch array 3".postln; { ~pitchModeGui.value_(5) }.defer  },
						6, { ~pitchmode = 6;  "pitch array 4".postln; { ~pitchModeGui.value_(6) }.defer  },
						7, { ~pitchmode = 7; ~g1.set(\rlow, -0.8 ); ~g1.set(\rhigh, 1.5);
							"PITCH MODE RANDOM 4".postln;  { ~pitchModeGui.value_(7) }.defer  },
						8, { ~pitchmode = 7; ~g1.set(\rlow, -3 ); ~g1.set(\rhigh, 3);
							"PITCH MODE RANDOM 5".postln; { ~pitchModeGui.value_(8) }.defer  },
						9, { ~pitchmode = 7; ~g1.set(\rlow, -8 ); ~g1.set(\rhigh, 8);
							"PITCH MODE RANDOM 6".postln; { ~pitchModeGui.value_(9) }.defer  },
					)
			});

			//~durBtn = 1;

			// BUTTON X ----- GRAIN DURATION MODE
			if (msg[15]==1,
				{
					( ~btn14val = (~btn14val + 1) % 8 ) ;
					switch(~btn14val,
						0, {  ~gdurmode = 0; "DURATION MODE 0".postln; { ~durModeGui.value_(0) }.defer },
						1, {  ~gdurmode = 1; "DURATION MODE 1".postln; { ~durModeGui.value_(1) }.defer },
						2, {  ~gdurmode = 2; "DURATION MODE 2".postln; { ~durModeGui.value_(2) }.defer },
						3, {  ~gdurmode = 3;  "DURATION MODE 3".postln; { ~durModeGui.value_(3) }.defer },
						4, {  ~gdurmode = 4;  "DURATION MODE 4".postln; { ~durModeGui.value_(4) }.defer },
						5, {  ~gdurmode = 5;  "DURATION MODE 5".postln; { ~durModeGui.value_(5) }.defer },
						6, {  ~gdurmode = 6;  "DURATION MODE 6".postln; { ~durModeGui.value_(6) }.defer },
						7, {  ~gdurmode = 7;  "DURATION MODE: SENSOR".postln; { ~durModeGui.value_(7) }.defer },

					)
			});

			// BUTTON X ----- GRANULAR IMPULSE MODE
			if (msg[16]==1,
				{
					( ~btn15val = (~btn15val + 1) % 3 ) ;
					switch( ~btn15val,
						0, { ~g1.set(\impulsemodeindex, 0 ); "IMPULSE MODE FIXED".postln;  { ~impulseModeGui.value_(0) }.defer  },
						1, { ~g1.set(\impulsemodeindex, 1 ); "IMPULSE MODE DUST".postln;   { ~impulseModeGui.value_(1) }.defer  },
						2, { ~g1.set(\impulsemodeindex, 2 ); "IMPULSE MODE SENSOR".postln; { ~impulseModeGui.value_(2) }.defer  },
					)
			});

		}); // SHIFT ONE LOGIC ENDS HERE ================

	} , '/keys');
));

// ----------------------------------------------------
// LIVE CODE / PERFORMABLE PARAMETERS /////////////////
// ----------------------------------------------------

thisProcess.platform.recordingsDir;// find where the recordings are written to
s.record(numChannels:4); // record

// set recorder loop and overdub modes ////////////
// start recording (without button)
r.set(\in, 0, \l, 0, \t_trig, 1);
r.set(\l, 1); // looping record on/off 0/1  -  MAPPED TO SWITCH 3
r.set(\overdub, 0.9); // overdub mode 0 - 0.99 - MAPPED TO SWITCH 4

/////////////////////
~g1.set(\pitchmodeindex, 1); // pitchmode
~g1.set(\gdurmodeindex, 1); // grain duration mode
~g1.set(\imp,2); // grain impulse rate
~g1.set(\impulsemodeindex, 1); // 0 1 2 imp, dust, sensor
~g1.set(\positionmodeindex, 1); // playhead FIXED.RND.SENSOR 0 1 2
~g1.set(\gpanmodeindex, 1); // pan mode
~g1.set(\amp, 0); // amplitude

~ringMod.set(\modulator, 0); // 0 to disable

/// random pitch/rate low and high values

~g1.set(\rlow, 10); // APPLIES ONLY TO PITCH MODE 7
~g1.set(\rhigh, 1);

~dseqarrayIndex=0;

~g1.set(\dseqarrayIndex, 0);

~g1.set(\gpan, -1 );

~channelmode = 1;

~ringMod.set(\in, 9);
~gtrIn.set(\out, 0);
~gtrIn.set(\out, ~ringModBus);
~gtrIn.set(\out, ~reverbBus);
~gtrIn.set(\out, [~reverbBus, ~ringModBus]);

~ringMod.set(\modulator, 77, \mulrate, 0.1);
~ringMod.set(\modulator, 0, \mulrate, 0);
~ringMod.set(\mulrate, 0);


~gtrIn.set(\instrAmp, 1);



// fix doneaction
~g1.set(\gate, 1); // granulator on
~g1.set(\gate, 0); // granulator off
~g1.set(\amp, 1); // granulator off

a = Scale.major;

/////////////////////////////////////////////////
// -----------------------------------------------


 // list all open ports

// -----------------------------------------------
// 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);