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
do
setcps (85/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ g1 $ gMute
$ midiOn "^42" (<| "k . ~ k ~ ~")
$ midiOff "^42" ( -- JuxGhost
juxBy 0.4 ((sometimesBy "0 1" (rev . (|* gain 0.8)))))
$ midiOff "^42" (<| "k . k(<3!7 [<3 8> 5]>,8,<0!3 1>)")
$ "jazz"
# midiG' "^78" 0 1.4
d2 $ g1 $ gM
-- $ "~ s ~ s ~ <s [~ s]> ~ <s [s ~ s <~ s>]>"
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s")
$ "meth_snare:2"
# midiG' "^79" 0 1.4
d3 $ g1 $ gM $ loopAt 2 $ "jungle_breaks"
# pan 0.2
# midiG' "^84" 0 1.4
d4 $ g1 $ gM
$ fix (|* gain 0.9) "dr"
$ "h*4 h*<4 [2 <2 4>]> h*<4 4 2 4> h*<3!3 12>"
# "[jungle,dr]"
# midiG' "^80" 0 1.4
d5 $ g2 $ gM
$ whenmod 64 0 ( -- Délire
(whenmod 4 3 (ply "1 4" . slice 4 (run 2))) .
(# pan "<0.8 0.8 0.2 0.8>")
)
$ "jungle_vocals:0"
# att 0.05
# rel 10
# pan 0.8
# cut 5
# gain 0.5
# midiG' "^83" 0 0.6
d6
$ slice 8 "4 <[<4 5 4 [4 5]> <5!7 1>] [4 2 <4!3 3> <2!3 3>]> "
$ "fepiano:18"
# hpf 2500
# rel 0.9
# midiG' "^82" 0 1.4
# pan 0.8