45 lines
879 B
Markdown
45 lines
879 B
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 );
|
|
|
|
|
|
//////////////////////////////////
|
|
|
|
~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
|
|
|
|
);
|
|
|
|
|
|
|
|
////////////////////////////////////// |