50 lines
2.1 KiB
Plaintext
50 lines
2.1 KiB
Plaintext
|
"/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);
|