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
setcps 0.5
d1
$ degrade
$ whenmod 16 14 (# silence)
$ euclid 6 8
$ s "kick:7"
# gain 0.6
d3
$ someCyclesBy 0.1 (# s "snare:7") -- tok
$ someCyclesBy 0.1 (# s "snare:6") -- frappe
$ someCyclesBy 0.3 (# s "snare:5") -- etouffe
$ whenmod 16 10 (# s "sn:1")
$ someCycles (off 0.125 id)
$ s "~ snare"
# gain 0.6
d4
$ whenmod 32 0 ( -- variation
someCycles (off 0.25 (|- 7) . rev . degrade)
)
-- $ whenmod 8 4 (|- n 3) -- tierce
$ off 0.25 (|+ 5)
$ n (scale "ma" "<[0,3,7] [0,3,5] [0,3,4] [0,3,2] [0,3]>")
# s "defaultB"
# gain 0.7
# room 0.2
# size 0.2
d5
$ slow 2
$ whenmod 16 8 (degrade)
$ sometimes (off 0.125 id)
$ sometimes (off 0.25 (|+ note 3))
$ sometimes (|+ note 2)
$ note "<0 0*2 0?*4> <3?*4 3*2 3>"
# s "bass3"
# gain 0.7
# room 0.9
# size 0.7
# release (0.4 + rand / 2)