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
do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
$ midiOn "^74" (fast 2)
$ midiOn "^42" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k . <k!3 [~ k] k k ~ [~ <~ k>]>")
$ "kick:5"
# midiG' "^78" 0 1.3
d2 $ "~ s" # "sn:1"
# gain 0.7
# midiG' "^78" 0 1.3
d3 $ g2
$ "~ h ~ h ~ h*<1 2> ~ [h*<1!8 2 1!7> <~!3 h*2>]" # "hh"
# midiG' "^80" 0 1
d4 $ g2
$ midiOn "^57" (chop 4)
$ midiOn "^89" (chop 4)
$ note ("<c g af f>" + "3")
# "rootsBass"
# crushbus 40 (range 16 1.8 "^53")
# room 0.4 # sz 0.3
# midiG' "^81" 0 1
# cut 4
d5
$ sometimesBy "0 <0.125!7 1>" (off "e" id)
$ note ("~ 0 ~ <0!3 0?>" + "<c g af f>" + "[0,<7!7 5>]")
# "superpiano"
# velocity 0.8
# room 0.3
# sz 0.6
# delay "<0.5!7 <0.85 0.9>>" # delaytime "<e!15 q>"
# delayfb "<0.4!7 0.8>"
# midiG' "^82" 0 0.9
d9 $ g1
$ midiOn "^92" (ply 2)
$ midiOn "^60" (striate 2)
$ chop 8
$ loopAt 2 $ "break:13"
# octerbus 90 (range 0 0.62 "^36")
# octersubbus 91 (range 0 0.51 "^36")
# midiG' "^84" 0 0.8
once $ "90s_matrix" # cut 7