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

~s1 = Scale.melodicMinor;
//c = Place(#[0, 0, [0, 4, 7], [1, 5, 8], [2, 6, 9]], inf) + 67;


~op1 =  Scale.new(#[4,5,1,3,0,2,8,9,10,6,7,11], name: "op27_I");

Pbindef(\m_1, \scale,~s1,\degree,~d4,\octave,7,\dur,~rrr );
Pbindef(\m_2, \scale,~s1,\degree,~d4,\octave,~o3,\dur,~rrr );




(
p = Pn(Plazy {

	Pbindef(\m_1, \scale,~s1,\degree,~d4,\octave,rrand(3,8),\dur,1/8 )

},3).play
)



( a = Pbind( \type, \midi, \midicmd, \noteOn, \midiout, ~m32_1,
	\scale,~s1,\degree, Pseq([0,1,2,3,4,5], 4), \octave, 5, \dur,1/8)
).asStream;

( b = Pbind( \type, \midi, \midicmd, \noteOn, \midiout, ~m32_1,
	\scale,~s1, \degree,Pseq([0,1,2,3,4,5,6,7,8], 4), \octave,3, \dur,1/8)
).asStream;


Prand([a,b],inf).play;

Ppar


//////////////////////////////////

~d = Pseq((0..7), inf);
~r = Place([1/8, 1/4, 1/8, 1/8, [1/4,1,2]], inf);


~op1 =  Scale.new(#[4,5,1,3,0,2,8,9,10,6,7,11], name: "op27_I");

Pbindef(\m_1, \scale,~op1,

	\degree,~d,
	\octave,7,
	\dur, ~r

);

Pbindef(\m_2, \scale,~op1,
	\degree,~d,
	\octave,~o3,
	\dur, ~r

);



//////////////////////////////////////