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
unmute 2
unmute 6
do
setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.5 # lpf 400
d2 $ s "~ snare:1" # gain 0.75 # delay 0.5
d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.8
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # cut 4 # gain "0.75 0.86"
d5
$ whenmod 32 16 ( -- folie aigue
juxBy 0.25 ((0.125 ~>) . rev . fast 4 . (|+ note 12))
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano"
# velocity (slow 100 $ range 0.42 0.54 sine)
# pan 0.7
d6
$ note ("d3"
+ "[0,3(3,8,2)]"
)
# s "supersaw" # voice 0.1
# release "2 0.8!7"
# gain (slow 88 $ range 0.25 0.5 cosine)
d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.76 # pan 0.2
-- Intro atm
do
setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "bd" # gain 0.6
d2 $ s "~ snare:1" # gain 0.5 # delay 0.5
d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.5
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # gain "0.5 0.6"
d5
$ whenmod 32 16 ( -- folie aigue
jux ((0.125 ~>) . rev . fast 4 . (|+ note 12))
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.45
d6
$ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>"
+ "[0,3(3,8,2)]")
# s "supersaw" # voice 0.1
# release "2 0.8!7"
# gain 0.5