67 lines
882 B
Markdown
67 lines
882 B
Markdown
|
|
TempoClock.default.tempo = 30/60;
|
|
|
|
~drepeat = Pseq([
|
|
Pseq([0],16),
|
|
Pseq([7,8,9],4),
|
|
Pseq([9],16),
|
|
Pseq([1,3,5],5),
|
|
Pseq([2],16),
|
|
Pseq([8],16),
|
|
Pseq([10,9,4],6),
|
|
Pseq([10],16),
|
|
Pseq([10,11],8),
|
|
], 4);
|
|
|
|
~rp0 = 1/8;
|
|
|
|
~rp1 = Pseq([
|
|
1/8,
|
|
1/8,
|
|
1/16,
|
|
1/16,
|
|
1/16,
|
|
1/16,
|
|
|
|
1/8,
|
|
1/8,
|
|
1/16,
|
|
1/16,
|
|
1/16,
|
|
1/16 ], 1);
|
|
|
|
~rp2 = Pseq([
|
|
1/8,
|
|
1/8,
|
|
1/16,
|
|
1/16,
|
|
1/16,
|
|
1/16,
|
|
1/8,
|
|
1/8,
|
|
Rest(1)
|
|
],1);
|
|
|
|
~pr = Pseq([
|
|
Pseq([~rp0],16),
|
|
Pseq([~rp2],4),
|
|
Pseq([~rp0],16),
|
|
Pseq([~rp2],1),
|
|
Pseq([~rp1],4)],
|
|
4);
|
|
|
|
~pr2 = Pseq([
|
|
Pseq([~rp2],4),
|
|
Pseq([~rp0],16),
|
|
Pseq([~rp0],16),
|
|
Pseq([~rp2],1),
|
|
Pseq([~rp1],4)],
|
|
4);
|
|
|
|
Pbindef(\m_1, \scale,~s4,\degree,~drepeat,\octave, ~o1,\dur, ~pr );
|
|
Pbindef(\m_2, \scale,~s4,\degree,~drepeat,\octave, ~o3,\dur, ~pr2 );
|
|
|
|
Pbindef(\m_1, \octave, 4, \dur, ~r0 );
|
|
Pbindef(\m_2, \octave, 6, \dur, ~r0 );
|
|
|
|
///////////////////////////////////////////////////// |