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
setcps 0.52
d1
$ whenmod 16 10 (fast 2)
$ euclid 2 4
$ s "kick:7"
d2
-- $ sometimes
$ euclid "<3 5>" 8
$ s "sn:0"
# gain 0.8
d1 -- beat + dark amp
$ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
$ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
$ whenmod 32 0 (fix (# gain 0) (s "arp"))
$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "kick:14 [electro1:2, arp]"
# gain 1
d2 -- drumroll
$ off 0.125 id
$ degradeBy "0.5 0.2 0.5 0.8 0.5 0.9 0.5 0.1"
$ s "dr*8"
# n 0
d6 -- bass
$ whenmod 16 10 ( fast 2)
$ superimpose (|+ note "<3 3 10 3>")
$ note (scale "aeolian" "<c(3,8) a5>")
|- note 20
# s "bassWarsaw"
# gain 0.9
d3 -- vibration montante!
$ superimpose (|+ note 5)
$ every' 4 "<0 1 2 3>" (someCycles rev)
$ sound "bd"
# note "<42 42 42 36>"
-- # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
segment (wchoose [(50,0.1), (250,0.9)])
$ range 1 3 saw
)
# gain 0.5
# legato 2
d7 -- musical forks
$ off 0.25 ((# room 0.5) . (|- 12))
$ superimpose (|+ note "< 5 3 2 0>")
$ s "f f f <f <f*2 ~>>"
# s "superfork"
# gain 0.7