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
setcps 1
d1
$ whenmod 8 7 (fast 2)
$ whenmod 8 7 (# gain 1)
$ whenmod 8 6 (# gain 0)
-- $ sometimes (fast 2)
$ s "bd*2 < ~ [bd*2 ~]>"
# s (wchoose [
("kicklinn", 0.8),
("reverbkick", 0.15),
("cp", 0.05)
])
d2
$ whenmod 64 48 (# silence)
$ whenmod 32 24 (# n 4)
$ whenmod 16 8 (rev)
$ sometimes (off 0.125 (|+ 0))
$ s "bass3(<<1 5> 3>, 8)"
# note "0 5 7"
# pan 0.2
# gain 0.9
--
-- d4
-- $ sometimes (fast 2)
-- $ s "glitch:2(<1 2>,4)"
-- # gain 0.7
d3
$ whenmod 8 7 rev
$ whenmod 8 6 (# note "0 4 7 4")
$ whenmod 8 6 (off 0.125 (|+ 0))
-- $ sometimes (jux rev)
$ sometimes (off 0.25 (|+ "<0 7>"))
$ sometimes (off 0.5 rev)
$ often (off 0 (|+ 7))
$ euclid 3 8
$ s "blip"
# note "<0 [3,7] 0 [0,7]>"
# pan (0.25 + rand / 2)
# gain 0.6
d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique