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
do
solo 1 -- Kick
solo 2 -- Snare contretemps/rush
solo 3 -- Snare roll
solo 4 -- Sax
solo 5 -- Vibe
-- Didgeri do it
do
setcps (140/60/4)
d1 -- Kick techno morphant transe
$ mask "t(<0!4 1!12 2!12 3!12 0!4 1!20>,3)!4"
$ "k*<1!8 3!8> k*[1|3] k*<1 3> k"
# "[jazz,reverbkick]"
# lpf 5000 # lpq "<0!4 0.2!4>"
# gain (slow 16 $ range 0.8 1 saw)
d2 -- Snare contretemps/rush
$ fast "1 <~!8 1!4 4 4 8 8>"
$ "snare:24" # gain 0.8
d3 -- Snare roll
$ mask "<f!3 t!29 f!32>"
$ mask "t([1,2],<1 2!2 4!4>)"
$ fast "4 <8!3 16>"
$ "snare:23"
# note "<0!8 -2!4 -4!2 -8!2>"
# gain (slow 16 $ range 0.65 1.2 sine)
# pan (slow 4 $ range 0.2 0.8 sine)
d4 -- Saxeridoo
$ juxBy 0.8 rev
$ whenmod 64 8 (slice 8 (run "<2!4 8!3 16>"))
$ whenmod 4 2 (often (swing 4))
$ whenmod 128 64 (iter 4 $)
$ note (-18
+ (arp "<up downup>" "<g'min7 g'min7'4>")
)
# "sax"
# gain (slow 16 $ range 0.9 1.25 perlin)
# room (slow 64 $ range 0.1 0.4 sine) # sz 0.3
# cut 4
d5
$ superimpose (off "h" (|+ note "<0!4 12!4>"))
$ note ("c3'maj" + "<c!3 <<c6!4 g!12> g>>")
# "supervibe"
# gain 0.5
-- Sandbox
d6 -- Piano rise up
$ whenmod 8 6 (swing 2)
$ superimpose (arp "<up!7 down>" . (|+ note 12))
$ note ("c4'maj" + "<c!3 <<c6!4 g!12> g>>")
# "superpiano"
# velocity 0.3