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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
class:: PstepNadd
summary:: pattern that returns combinatoric sums
related:: Classes/Pstep3add
categories:: Streams-Patterns-Events>Patterns>Time
description::
Combines an arbitrary number of patterns by summing (depth first traversal). When a stream ends it is recreated from its pattern until the top stream ends.
Examples::
code::
// comparing PstepNadd and Pstep3add (test)
(
x = PstepNadd(Pseq([1, 2, 3]), Pseq([10, 20, 30, 40]), Pseq([100, 200, 300])).asStream;
y = Pstep3add(Pseq([1, 2, 3]), Pseq([10, 20, 30, 40]), Pseq([100, 200, 300])).asStream;
50.do({ [x.next, y.next].postln });
)
// pattern return stream until the longest stream ended
(
x = PstepNadd(
Plazy({ "pattern1.asStream".postln; Pseq([1, 2, 3], 2) }),
Plazy({ "pattern2.asStream".postln; Pshuf([10, 20, 30, 40]) }),
Plazy({ "pattern3.asStream".postln; Pseq([100, 200, 300]) }),
Plazy({ Pseries(1, 1, 4) * 0.01 })
).asStream;
150.do({ x.next.postln });
)
// if the last pattern loops it the combinatorics loop there:
x = PstepNadd(Pseq([1, 2, 3]), Pseq([10, 20, 30, 40]), Pseq([100, 200, 300], inf)).asStream;
50.do({ x.next.postln });
// if the first pattern loops, the whole iteration loops as if it was used in a Pn(.., inf):
x = PstepNadd(Pseq([1, 2, 3], inf), Pseq([10, 20, 30, 40]), Pseq([100, 200, 300])).asStream;
y = Pn(PstepNadd(Pseq([1, 2, 3]), Pseq([10, 20, 30, 40]), Pseq([100, 200, 300])), inf).asStream;
150.do({ [x.next, y.next].postln });
// sound example
(
Pbind(
\octave, 4,
\degree, PstepNadd(
Pseq([1, 2, 3]),
Pseq([0, -2, [1, 3], -5]),
Pshuf([1, 0, 3, 0], 2),
Pseq([1, -1], 5)
),
\dur, PstepNadd(
Pseq([1, 0, 0, 1], 2),
Pshuf([1, 1, 2, 1], 2)
).loop * (1/8),
\legato, Pn(Pshuf([0.2, 0.2, 0.2, 0.5, 0.5, 1.6, 1.4], 4), inf),
\scale, #[0, 1, 3, 4, 5, 7, 8]
).play;
)
::
|
