«another primitive arpeggio sequence» by emergent

on 19 Jul'20 18:24 in
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
// More fun with arpeggios in F Major

~prog = [\Fmajor7, \Dm7, \Bbmajor7, \Cdom7]

~chords = ~prog.collect({ arg item, i; ChordSymbol.asDegrees(item, Scale.major)}); // collect the chords into a 2D array

p = [0, 2, 1, 3]// new pattern

o = [0, 7, 7, 0]

(
~bass = Pbind(
	\instrument, \default,
	\octave, 4,
	\scale, Scale.major,
	\dur, Pbjorklund2(6, 16) * 0.125,
	\degree, Pseq(
		[
			Pseq([~chords[0][0]],6),
			Pseq([~chords[1][0]],6),
			Pseq([~chords[2][0]]-7,6),
			Pseq([~chords[3][0]],6),
		],
		inf),
	\legato, 0.3
).play;

~chordtest = Pbind(
	\instrument, \default,
	\scale, Scale.major,
	\dur, 0.5,
	\degree, Pseq(
		[
			Pseq(~chords[0][p] + o, 1),
			Pseq(~chords[1][p] + o, 1),
			Pseq(~chords[2][p]-7 + o, 1),
			Pseq(~chords[3][p] + o, 1),
		],
		inf)
).play;
)
(
~chordtest.stop;
~bass.stop;
)
raw 859 chars (focus & ctrl+a+c to copy)
reception
comments
lambda user 22 Jul'20 03:58

you might find panola interesting