reverse neopixel color and clean up

sc/live_touch_instrument.scd

@@ -55,20 +55,20 @@ s.waitForBoot{
 
 	~oPA = 8.collect({
 		arg itt, rate=1, out=0, sdir=\bowl,
-		amp=0.9, loop=1,  panRate=rrand(0.05,0.75), group=~sGA;
+		amp=0.9, loop=0,  panRate=rrand(0.05,0.75), group=~sGA;
 		Synth.new(\splay,  [ \bufnum, ~smp[sdir][rrand(0,~smp[sdir].size-1)], \out, out, \loop, loop,  panRate: panRate], group);
 	});
 
 	~oPB = 8.collect({
 		arg itt, rate=1, out=0, sdir=\green,
-		amp=0.5, loop=1,  panRate=rrand(0.05,0.75), group=~sGB;
+		amp=0.5, loop=0,  panRate=rrand(0.05,0.75), group=~sGB;
 		Synth.new(\splay,  [\bufnum, ~smp[sdir][rrand(0,~smp[sdir].size-1)], \out, out, \loop, loop,  panRate: panRate], group);
 	});
 
 
 	// RECEIVE OSC MESSAGES FROM ESP32s
 
-	~modeA = 0;
+	~transpositionsA = 0;
 	~modeB = 0;
 	~modeC = 0;
 	~modeD = 0;
@@ -83,13 +83,20 @@ s.waitForBoot{
 
 	~sampleDir = [\green, \bowl, \blue, \green];
 
-	~lsA=1; // loop state
+	~lsA=0; // loop state
-	~lsB=1; // loop state
+	~lsB=0; // loop state
 
-	~scaleMode = [Scale.major, Scale.minor, Scale.chromatic, Scale.ajam.pitchesPerOctave];
+	~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[0];
-	~scaleB = ~scaleMode[3];
+	~scaleB = ~scaleMode[0];
 
 	~ssA = 0; // scale index
     ~ssB = 0;
@@ -100,6 +107,11 @@ s.waitForBoot{
 	~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];
+
+	//~dirState.put(3,1);
+
 	//~scales[2].tuning; ~scales[2].size; ~scales[2].pitchesPerOcatave;
 
 	s.sync;
@@ -111,14 +123,12 @@ s.waitForBoot{
 		// msg[3] is it a touch [1] or a release [0]
 		// msg[4] which of the connected mpr121 boards is sending
 
-		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 )  {
-				b.sendMsg("/led", msg[2], 7, msg[4]);
-			};
-		};
 
-		if (msg[1] == mac && msg[3] == 1 && msg[4] == 0 )  {
+		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]);
 
@@ -130,56 +140,66 @@ s.waitForBoot{
 					{ msg[2] == 4} { ~oPA[4].set(\rate, ~scaleA[~psetA[4]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1); }
 					{ msg[2] == 5} { ~oPA[5].set(\rate, ~scaleA[~psetA[5]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1);  }
 					{ msg[2] == 6} { ~oPA[6].set(\rate, ~scaleA[~psetA[6]].midiratio, \t_trig, 1, \gate, 1, \tpse, 1, \dir, 1);  }
-			{ msg[2] == 7} { ~oPA[7].set(\rate, ~scaleA[~psetA[7]].midiratio + 1 , \t_trig, 1, \gate, 1); }
 
-			// LOOP mode on off
+					// TODO: LOGIC TO FIX NEXT OCTAVE IN 7 NOTE VS OTHER NOTE LENGTH SCALES ~psetA.size
-			{ msg[2] == 8 } {  // touch 7 = toggle looping of all samplers
+					// 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);
+						postln("notes in scale: " + ~scaleA );};
+
+					if (~scaleA.size == 12 ) {  ~oPA[7].set(\te, ~scaleA[~psetA[0]].midiratio,\t_trig, 1, \gate, 1, \tpse, 2);
+						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
+
+			};
+
+			// LOOP mode on off // GROUP //////////////////////////////
+
+			if ( 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 );
 			};
-		};
 
-		// SHIFT logic for board A - 2 function=  shift off on
+			// SHIFT state ///////////////////////////////////
-		///if SHIFT IS DEPRESSED on board 0 - shift enabled while 11 depressed
 
-/*		if (msg[1] == mac && msg[2] == 11 && msg[4] == 0 )  {
+			if ( msg[2] == 11 )  {
-			if (msg[3]==1){
-				~shiftA = (~shiftA + 1)% 3;
-				postln("SHIFT: " + ~shiftA);
-				b.sendMsg("/led", msg[2], ~shiftA, msg[4]);
-			};
-		};*/
-
-		// SHIFT state
-
-		if (msg[1] == mac && msg[2] == 11 && msg[4] == 0 )  {
 				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
+			// CTRL state ////////////////////////////////////
 
-		if (msg[1] == mac && msg[2] == 10 && msg[4] == 0 )  {
+			if (msg[2] == 10 )  {
 				if (msg[3]==1){
-				~ctrlA = 1; postln("ctrl is enabled"  ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);}
+					~ctrlA = 1; postln("CTRL enabled"  ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);}
-			{   ~ctrlA = 0; postln("ctrl is disabled" ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);};
+				{   ~ctrlA = 0; postln("CTRL disabled" ); b.sendMsg("/led", msg[2], ~ctrlA, msg[4]);};
 			};
 
-		// SCALE CHANGER
+			// SCALE CHANGER ---------------------------------
 
 			if (~shiftA==1 && msg[2] == 9 && msg[3] == 1)  {
-			~ssA = (~ssA + 1) % 4;
+				if (msg[3]==1){
+					~ssA = (~ssA + 1) % 14; // fourteen slots for scales
 					// use key release to
 					~scaleA = ~scaleMode[~ssA];
-			postln("SCALE: " + ~scaleA.name);
+					postln("SCALE: " + ~scaleA.name + " : " + ~scaleA);
-			b.sendMsg("/led", 9, ~ssA, msg[4]);
+					//b.sendMsg("/led", 9, ~ssA, msg[4]);
+				};
+				// todo color code for SCALE CHANGER... red not updating
+				b.sendMsg("/led", msg[2], ~ssA, msg[4]);
 			};
 
-		// PITCH SET SCRAMBLER
+			// 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;
@@ -187,23 +207,25 @@ s.waitForBoot{
 				b.sendMsg("/led", 9, ~ssA, msg[4]);
 			};
 
-		if (~shiftA==1  && ~ctrlA==0 && msg[2] == 9 && msg[3] == 1)  {
+			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
+			// SAMPLE DIRECTORY CHANGER ---------------------------------
 
-		if (~ctrlA==1 && msg[2] == 9 && msg[3] == 1)  {
+			if (~shiftA==1 && msg[2] == 8 && msg[3] == 1)  {
 				~smpA = (~smpA + 1) % 4;
 				// use key release to
 				~sdir = ~sampleDir[~smpA];
-			//~smp[sdir]
+
-			//~sGA.set(\sdir, \green); // toggle this
+				postln("NEW SAMPLE DIRECTORY SELECTED:"+ ~sampleDir[~smpA+1] + " : " + ~sampleDir);
-			//~sGA.set(\bufnum, ~smp[\green][1]);
+
 			};
 
+			// SAMPLE DIRECTORY MAPPINGS ---------------------------------
+
 			if (~smpA == 0){
 				w = case
 				{ msg[2] == 0} { ~oPA[0].set(\bufnum, ~smp[\bowl][0]); }
@@ -215,7 +237,6 @@ s.waitForBoot{
 				{ msg[2] == 6} { ~oPA[6].set(\bufnum, ~smp[\bowl][0]); }
 				{ msg[2] == 7} { ~oPA[7].set(\bufnum, ~smp[\bowl][0]); };
 
-			postln("SAMPLE DIR: " + ~smpA + " sample: " + ~smp[\bowl][0]);
 				b.sendMsg("/led", 9, ~smpA, msg[4]);
 			};
 
@@ -231,64 +252,94 @@ s.waitForBoot{
 				{ msg[2] == 6} { ~oPA[6].set(\bufnum, x[2]); }
 				{ msg[2] == 7} { ~oPA[7].set(\bufnum, x[3]); };
 
-			postln("SAMPLE DIR: " + ~smpA + " sample: " + x[0] );
 				b.sendMsg("/led", 9, ~smpA, msg[4]);
 			};
 
-		//--------------------------------------------------------------------
+			if (~smpA == 2){
+				x =~smp[\blue];
+				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]); };
 
-		// MODE logic for board A ////////////////////////////////////////////
+				b.sendMsg("/led", 9, ~smpA, msg[4]);
+			};
 
-		if (~ctrlA == 1 && msg[1] == mac  && msg[4] == 0 )  {
+			if (~smpA == 3){
+				x =~smp[\red];
+				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", 9, ~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); }
+						{ msg[2] == 0} { ~oPA[0].set(\dir, -1, \spos, 44100); }
-				{ msg[2] == 1} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 1} { ~oPA[1].set(\dir, -1, \t_trig, 1, \gate, 1, ); }
-				{ msg[2] == 2} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 2} { ~oPA[2].set(\dir, -1 ); }
-				{ msg[2] == 3} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 3} { ~oPA[3].set(\dir, -1 ); }
-				{ msg[2] == 4} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 4} { ~oPA[4].set(\dir, -1 ); }
-				{ msg[2] == 5} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 5} { ~oPA[5].set(\dir, -1 ); }
-				{ msg[2] == 6} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 6} { ~oPA[6].set(\dir, -1 ); }
-				{ msg[2] == 7} { ~oPA[1].set(\dir, -1 ); }
+						{ msg[2] == 7} { ~oPA[7].set(\dir, -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
 
-		// mode setter
+			if (~shiftA == 1 && msg[2] == 10 )  {
-
-		if (~shiftA == 1 && msg[1] == mac && msg[2] == 10 && msg[4] == 0 )  {
 				if (msg[3]==1){
-				~modeA = ~modeA+1 % 6;
+					~transpositionsA = ~transpositionsA+1 % 6;
 					w = case
-				{ ~modeA == 0} { postln("MODE: ------> NORMAL" ); }
+					{ ~transpositionsA == 0} { postln("MODE: ------> NORMAL" ); }
-				{ ~modeA == 1} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-DOWN" ); }
+					{ ~transpositionsA == 1} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-DOWN" ); }
-				{ ~modeA == 2} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-DOWN" ); }
+					{ ~transpositionsA == 2} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-DOWN" ); }
-				{ ~modeA == 3} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-UP"   ); }
+					{ ~transpositionsA == 3} { postln("MODE: ------> TRANSPOSE ---- 1 8VE-UP"   ); }
-				{ ~modeA == 4} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-UP"   ); }
+					{ ~transpositionsA == 4} { postln("MODE: ------> TRANSPOSE ---- 2 8VE-UP"   ); }
-				{ ~modeA == 5} { postln("MODE: ------> TRANSPOSE ---- RANDOM 0.25 <-> 5"   ); };
+					{ ~transpositionsA == 5} { postln("MODE: ------> TRANSPOSE ---- RANDOM 0.25 <-> 5"   ); };
-
-				b.sendMsg("/led", msg[2], ~modeA, msg[4]);
 				};
-				b.sendMsg("/led", msg[2], ~modeA, msg[4]);
+				b.sendMsg("/led", msg[2], ~transpositionsA, msg[4]);
 
 			};
 
 			// modes ----
 
-		if (~shiftA==0 && msg[1] == mac && msg[3] == 1 && msg[4] == 0 ){
+			if (~shiftA==0 && msg[3] == 1 ){
 
-			if (~modeA == 0)  {
+				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[1].set(\tpse, 1 ); }
+					{ msg[2] == 2} { ~oPA[2].set(\tpse, 1 ); }
-				{ msg[2] == 3} { ~oPA[1].set(\tpse, 1 ); }
+					{ msg[2] == 3} { ~oPA[3].set(\tpse, 1 ); }
-				{ msg[2] == 4} { ~oPA[1].set(\tpse, 1 ); }
+					{ msg[2] == 4} { ~oPA[4].set(\tpse, 1 ); }
-				{ msg[2] == 5} { ~oPA[1].set(\tpse, 1 ); }
+					{ msg[2] == 5} { ~oPA[5].set(\tpse, 1 ); }
-				{ msg[2] == 6} { ~oPA[1].set(\tpse, 1 ); }
+					{ msg[2] == 6} { ~oPA[6].set(\tpse, 1 ); }
-				{ msg[2] == 7} { ~oPA[1].set(\tpse, 1 ); }
+					{ msg[2] == 7} { ~oPA[7].set(\tpse, 1 ); }
 				};
 
-			if (~modeA == 1)  {
+				if (~transpositionsA == 1)  {
 					w = case
 					{ msg[2] == 0} { ~oPA[0].set(\tpse, 0.5); }
 					{ msg[2] == 1} { ~oPA[1].set(\tpse, 0.5 ); }
@@ -300,7 +351,7 @@ s.waitForBoot{
 					{ msg[2] == 7} { ~oPA[7].set(\tpse, 0.5 ); }
 				};
 
-			if (~modeA == 2 )  {
+				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 ); }
@@ -312,7 +363,7 @@ s.waitForBoot{
 					{ msg[2] == 7} { ~oPA[7].set(\tpse, [0.25].choose ); }
 				};
 
-			if (~modeA == 3 )  {
+				if (~transpositionsA == 3 )  {
 					w = case
 					{ msg[2] == 0} { ~oPA[0].set(\tpse, [2].choose ); }
 					{ msg[2] == 1} { ~oPA[1].set(\tpse, [2].choose ); }
@@ -324,7 +375,7 @@ s.waitForBoot{
 					{ msg[2] == 7} { ~oPA[7].set(\tpse, [2].choose ); }
 				};
 
-			if (~modeA == 4 )  {
+				if (~transpositionsA == 4 )  {
 				w = case
 					{ msg[2] == 0} { ~oPA[0].set(\tpse, [3].choose ); }
 					{ msg[2] == 1} { ~oPA[1].set(\tpse, [3].choose ); }
@@ -336,7 +387,7 @@ s.waitForBoot{
 					{ msg[2] == 7} { ~oPA[7].set(\tpse, [3].choose ); }
 				};
 
-			if (~modeA == 5 )  {
+			if (~transpositionsA == 5 )  {
 					x = [0.25, 0.5, 1, 2, 3, 4, 5];
 					w = case
 					{ msg[2] == 0} { ~oPA[0].set(\tpse, x.choose); }
@@ -348,70 +399,40 @@ s.waitForBoot{
 					{ msg[2] == 6} { ~oPA[6].set(\tpse, x.choose ); }
 					{ msg[2] == 7} { ~oPA[7].set(\tpse, x.choose ); }
 				};
+
+
 			};
 
-		if (~shiftA == 0 && ~ctrlA == 1 && msg[2] == 9  ){
+			// 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)
+				};
+			} {} ;
 
 		};
 
 		//////////////////////////////////////////////////////////////////////////
 
-		//////////// second board
-
-		if (msg[1] == mac && msg[3] == 1 && msg[4] == 1)  {
-
-			~rpitch = rrand(0,47);
-			~rpitch = ~rpitch%11;  postln("second board" + msg[2] + "color: " + ~rpitch );
-			b.sendMsg("/led", msg[2], ~rpitch, msg[4]);
-
-			w = case
-			{ msg[2] == 0} { ~oPB[0].set(\rate, Scale.major[0].midiratio, \t_trig, 1, \gate, 1, \tpse, 1); }
-			{ msg[2] == 1} { ~oPB[1].set(\rate, Scale.major[1].midiratio, \t_trig, 1, \gate, 1, \tpse, 1); }
-			{ msg[2] == 2} { ~oPB[2].set(\rate, Scale.major[2].midiratio, \t_trig, 1, \gate, 1, \tpse, 1); }
-			{ msg[2] == 3} { ~oPB[3].set(\rate, Scale.major[3].midiratio, \t_trig, 1, \gate, 1,\tpse, 1); }
-			{ msg[2] == 4} { ~oPB[4].set(\rate, Scale.major[4].midiratio, \t_trig, 1, \gate, 1,\tpse, 1); }
-			{ msg[2] == 5} { ~oPB[5].set(\rate, Scale.major[5].midiratio, \t_trig, 1, \gate, 1,\tpse, 1); }
-			{ msg[2] == 6} { ~oPB[6].set(\rate, Scale.major[6].midiratio, \t_trig, 1, \gate, 1,\tpse, 1); }
-			{ msg[2] == 7} { ~oPB[7].set(\rate, Scale.major[7].midiratio, \t_trig, 1, \gate, 1,\tpse, 1); }
-
-			{ msg[2] == 8 } {  // touch 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 state set as:" + ~lsB + "    7 " + msg[2]  );
-			};
-		};
-
-		// select with SHIFT key - toggle effect = apply with enter key
-		// set a state // release of shift key acts as enter
-
-		// 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 SHIFT IS DEPRESSED on board 1 - shift enabled while 11 depressed
+		// board 2 logic here
+
 
-		if (msg[1] == mac && msg[2] == 11 && msg[4] == 1 )  {
-			if (msg[3]==1){
-				~shiftB = 1; postln("shift is enabled"  )}
-			{   ~shiftB = 0; postln("shift is disabled" )}
-		};
 
-		if (~shift==1)  {
-			postln(" shift is pressed " + msg[2]);
-			w = case
-			{ msg[2] == 0} { ~oPB[0].set(\rate, 16); }
-			{ msg[2] == 1} { ~oPB[1].set(\rate, 14); }
-			{ msg[2] == 2} { ~oPB[2].set(\rate, 12); }
-			{ msg[2] == 3} { ~oPB[3].set(\rate, 10); }
-			{ msg[2] == 4} { ~oPB[4].set(\rate, 8); }
-			{ msg[2] == 5} { ~oPB[5].set(\rate, 6); }
-			{ msg[2] == 6} { ~oPB[6].set(\rate, 4); }
-			{ msg[2] == 7} { ~oPB[7].set(\rate, 2); }
-		}
 
 		//////////////////////////////////////////////////////////////////////////