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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
do
setcps (85/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick variable
$ midiOn "^75" (fast 2)
$ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
$ fix (|* gain 0.8) "kick:4"
$ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
-- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
-- $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
-- # midiG' "^78" 0 1
d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
$ midiOn "^42" ( -- STAY FOR THE SNARE
(<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
. (# "[snare:57,909:2]")
)
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff ("^43"+"^42") (<| "~ <~!4 c ~!3> ~ c*<1!7 2>")
$ fix (|* gain 0.8) "snare"
$ "[snare:40,bssnare:3]"
# pan 0.6
# room 0
# note "-2"
# legato 0.5
d3 $ gF1 $ gMute2
$ midiOn "^44" (ply "1 2")
$ midiOn "^76" (ply "<2 [2 4]>")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# pan 0.35
d4 $ gF2 $ gMute3 -- COME WITH THE BASS
$ superimpose (const $ gF2
$ whenmod 16 8 (rev . chop 4)
$ n "[19 <21!3 <20 22>>]"
# "meth_bass"
# cut 41
# pan 0.8
# midiG' "^33" 0 0.8
# room 0.3
# lpf 5000
)
$ slow 2
$ midiOn "^89" (ply "1 <4 2>")
$ midiOn "^57" (ply 2 . chop "8 . <8!3 16> <8 16>")
$ n ("<[0 0]!6 [1 1] <2 [2 2]>>")
# "come_bass"
# cut 4
# crushbus 43 (range 16 3.5 "^53")
# room 0
# dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035
# pan 0.2
d5 $ gM3 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (>| n "<3 ~ 3 ~>")
$ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
# "come_eguitar"
# cut 5
# pan 0.8
-- # speed 1.25
# room 0.2 # sz 0.3 # dry 1.2
# crushbus 51 (range 16 5.5 "^54")
# gain 1.3
d6 $ gM3 $ gF3 -- Sky's companion
$ midiOn "^58" (mask "f")
-- $ mask "<f!8 t!24>"
$ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
$ "come_guitar"
# n "3"
# cut 6
# pan 0.9
# gain (range 0 1.3 "^34")
d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11")
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2")
$ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- COME <3
$ midiOff ("^59" + "^91" + "^35")-- YEAH
(>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
$ "come_voice"
# crushbus 71 (range 16 "<5 10>" "^55")
# hpfbus 72 (range 0 3500 "^55")
# cut 7
d8 $ gM $ gF1 -- Angel Breaks
$ midiOn "^92" (ply "<2 2 4 8>")
$ midiOn "^60" (mask "f <t t f t>")
$ chop 8
-- $ someCyclesBy "^20" ((loopAt 1) . (# "break:15"))
$ someCyclesBy "^36" ((loopAt 1) . (# n 30))
$ someCyclesBy "^56" (slice 8 "0 1 2 3 4 5 6 7" . (loopAt 0.5) . (# n 4))
-- $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>"
# cut 10
# lpf 5000