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
do
-- resetCycles
setcps (140/60/4)
let maskFirstBar = mask "<f!1 t!31>"
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gCrush = (# crushbus 2 (range 16 4.5 "^29"))
let g = maskFirstBar . gDJF . gCrush
d1 $ g
-- $ mask "<t!12 f!4>"
$ fix ((|* gain 0.9) . (# lpf 5000)) "kick"
$ "k ~ ~ k . ~ ~" # "[ifdrums,kick]"
-- # midiG' "^78" 0 1.3
# pan 0.4
d2 $ g
$ superimpose (const $ g
$ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8
-- # midiG' "^79" 0 1
)
$ mask "<f t!15>"
$ "~ s ~ <s!3 ~>"
# "[snare:10,drum:2]"
-- # midiG' "^79" 0 1
d3 $ g
$ midiOn "^76" (ply 2)
-- $ mask "<f!16 t!16>"
$ "hh*[8 8 8 <8!3 [16 8]>]"
# att 0.01 # rel 0.5 # cut 3 # hpf 5000
-- # midiG' "^80" 0 1.3
d4 $ gDJF
$ midiOn "^92" (ply 2)
$ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
# "bassWarsaw"
# legato 0.9
# room 0.1
# sz 0.1
# cut 7
# crushbus 71 (range 16 1.5 "^53")
-- # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^92" (mask "<f!7 t>")
$ midiOn "^60" (rev)
$ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
# "FMRhodes1"
# legato 4
# room "0!15 0.4"
# attack 0.05
# modIndex "^55"
# rel 2
# sz 0.5
# pan 0.9
-- # midiG' "^83" 0 1.1