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
-- Late hardcore beat
d1 -- kick regulos
$ every' 8 7 (<| s "k*8")
$ s "k k <k k k k*2> [<k k ~ ~> <~ k k k>]"
# s "kick:5"
# pan 0.4
# gain 0.9
d2
$ sometimes (# pan (rand * 0.75))
$ whenmod 16 12 (# s "ulgab gabbaloud")
$ whenmod 16 8 (# s "ulgab")
$ whenmod 12 4 (# s "gabbaloud ulgab")
$ euclid (slow 4 $ "<<3 <8 7>> 5>") 8
$ s "gabbaloud"
# gain 0.7
d3
$ whenmod 8 4 (sometimesBy "<0.25 0.5 0.75 0.95>" (off (1/16) id))
$ whenmod 16 8 (<| s "d*8")
$ s "d*4"
# s "drum:18"
# pan (slow 3 $ sine)
d4
$ whenmod 32 16 rev
$ arp "<up down updown converge down up downup disconverge>"
$ note (
whenmod 16 12 (0 - )
"c'maj'<4 5> e'min"
)
# sound "cheapPiano1"
# gain (slow 18 $ sine * 0.2 + 0.5)
# room 0.4
d5
$ arp "<up down updown converge down up downup disconverge>"
$ note (
whenmod 16 12 (0 - )
"c'maj'<4 5> e'min"
)
# sound "bassWarsaw"
# gain 0.8
# room 0.4
|- note 12