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.40
d1
$ whenmod 32 30 (# silence)
$ whenmod 32 24 (# gain 0.6)
$ s "k k <k k k k*2> <k k*2 k k*2>"
# s "kick808"
# gain 0.8
d2
$ s "[d d] <d d d*2 d*4>]"
# s "dr"
# gain 0.7
d3
$ someCyclesBy 0.9 (# s "cp")
$ (0.25 ~>)
$ s "cp ~ <cp cp <cp cp*2> cp*2> ~"
# gain 0.7
# n "<0 [0 1]>"
d5
$ someCycles (rev)
$ someCycles (# gain 0.7)
$ every' 2 1 (# silence)
$ sometimes (slow 2 . degradeBy 0.2 . (off 0.125 (|+ 7)) . (# gain 0.5))
$ rarely (degrade . (# note (scale "major" "c'maj'2")))
$ rarely (# note (choose [0, 7] + scale "major" "c'maj'"))
$ arp "updown"
$ s "superhammond*4"
# note (4 + scale "major" "c'maj'")
# gain 0.6
d6
$ whenmod 48 24 (# gain 0.5)
$ jux rev
$ off 0.125 (|+ n 12)
$ off 0.25 (|+ n 7)
$ note (scale "major" "c'maj'4")
# sound "superpiano"
# gain 0