"/home/rob/gtr/motherMIDISetup.scd".load;
TempoClock.default.tempo = 60/60;
////////////////////////////////////////
Pdef(\m_1).play(quant: 4);    // TOP MOTHER
Pdef(\m_1).stop;              // NOTEON
Pdef(\m_1_CC).play(quant:4);  // CC 1
Pdef(\m_1_CC).stop;
// --------------- /
Pdef(\m_2).play(quant: 4);    // BTM MOTHER NOTEON
Pdef(\m_2).stop;              // NOTEON
Pdef(\m_2_CC).play(quant:4);  // CC 1
Pdef(\m_2_CC).stop;
//////////////////////////////
Pbindef(\m_1,\scale,~s1,\degree,~d4,\dur,~r1,\octave,~o2, \mtranspose,0);
Pbindef(\m_2,\scale,~s1,\degree,~d4,\dur,~r2,\octave,~o2, \mtranspose,0);
// indiviudal controls //////////////
Pbindef(\m_1, \root, 4); Pbindef(\m_2, \root, 4);
Pbindef(\m_1, \mtranspose, 0); Pbindef(\m_2, \mtranspose, 0);
Pbindef(\m_1, \scale, ~s1 ); Pbindef(\m_2, \scale, ~s1);
Pbindef(\m_1, \octave, ~o0); Pbindef(\m_2, \octave, 2);
Pbindef(\m_1, \dur, ~r4);  Pbindef(\m_2, \dur, ~r0);
Pbindef(\m_1, \degree, ~d6); Pbindef(\m_2, \degree, ~d3);
// ground bass figure // chromatic //
Pbindef(\m_1, \dur, 8, \octave, 3, \scale,~s4,\degree,~d8, inf);
Pbindef(\m_2, \dur, 9, \octave, 2, \scale,~s4,\degree,~d8, inf);
// quasi-extended serialism
Pbindef(\m_1, \scale,~s4,\degree,~d6,\octave,~o3,\dur,~phrase);
Pbindef(\m_2, \scale,~s4,\degree,~d6,\octave,~o1,\dur,~phrase);
// chiptune minmalismo in melodic minor /////////////////////////////// r 0,1,3
Pbindef(\m_1, \scale,~s0,\degree,~d4,\octave,~o3,\dur,~rrr );
Pbindef(\m_2, \scale,~s0,\degree,~d4,\octave,~o3,\dur,~rrr );

////////$$$/////////
Pbindef(\m_1, \octave, 1, \scale, ~s3 )
Pbindef(\m_2, \scale,~s0, \mtranspose,0)


//// new
Pbindef(\m_1, \scale,~s0,\degree,~ddd,\octave, ~o3,\dur,~rr );
Pbindef(\m_2, \scale,~s0,\degree,~ddd,\octave, ~o2,\dur,~rrr );


// CC Control Message 1 --->  TOP Mother32 ASSIGN OUT
( Pdef(\m_1_CC,  Pbind( \type, \midi, \midicmd, \control, \midiout, ~m32_1,
	\ctlNum, 1, \control,
	//Pexprand(7,100, inf),
	\dur, ~r0)).play(quant:4));

// CC Control Message 1 --->  BOTTOM Mother32 ASSIGN OUT
Pdef(\m_2_CC,  Pbind( \type, \midi, \midicmd, \control, \midiout, ~m32_2, \ctlNum, 1, \control, Pexprand(77,127, inf), \dur, 1/8 )).play(quant:4);