71 lines
1.3 KiB
Markdown
71 lines
1.3 KiB
Markdown
|
|
|
|
// 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
|
|
|
|
);
|
|
|
|
|
|
|
|
////////////////////////////////////// |