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
-- Quand les aigus arrivent, il manque qqch qui vient apres
-- Quand les djf baissent, il manque un drop au retour
do
resetCycles
setcps (90/60/4)
let whenPont it = (someCyclesBy "<0!32 1!8 0!32>" it)
let gMask = mask "t!3 <t!7 f>"
let gDJFDown = ((someCyclesBy "<f!24 t!8>" (# djfbus 1 (range 0.5 0.1 saw))))
let gDJFUp = ((someCyclesBy "<f!32 t!16 f!16>" (# djfbus 2 (range 0.15 0.85 saw))))
let g = gDJFDown . gDJFUp
d1 $ g $ gMask -- Kick sub-bass
$ mask "<f!8 t!56>"
$ whenPont (# silence)
$ struct "[t*<1!8 <1 2!3> 1!6 <1 2>> <~ t>] ~!3 . ~ <~!8 t!8> ~ <~!3 <t <~ t>>>"
$ "jungbass"
# cut 1
d2 $ g $ gMask -- Snare adéquat + claps opportuns
$ mask "<f!7 [t f!3] t!56>" -- Intro
$ mask "<t!32 f!7 [t f] t!24>"
$ whenmod 64 0 ( -- claps opportuns
(whenmod 32 8 (ply "<1!3 2>"))
. fix (|* gain 0.85) "cp"
. superimpose ((# "[cp,ab:11]")
. (# lpf "<2000!3 [2500 3000]>") . (# room 0.2) . (# sz 0.9) . (# dry 1)))
$ whenPont (# lpf 2000)
$ whenmod 32 8 (fast 2)
$ "~ . [snare:5,sn:4] ~"
# gain 0.65
d3 $ g $ gMask -- Drumroll structuré
$ mask "<f!7 [t t f t] f!4 [t f] f!3 t!16>" -- Intro
$ degradeBy "0 . 0 <0.33!3 0.25> <0!3 0.38> 0" -- Élaguage
$ whenPont (# hpfbus 31 (slow 8 $ range 4500 0 (saw+sine/2)))
$ whenmod 4 3 (ply "[1|2|<1!3 2>]*4")
$ struct "[t*8 . t*<8!3 <16 [16 8] 16 [16 [32 16 32 [16 8]]]>>]"
$ "drum:2"
# pan 0.3
# room 1.2 # sz 0.2 # dry 1
# gain "<0.65!3 0.75>"
d4 $ g $ gMask -- Bassline de compagnie
$ whenmod 64 32 (# crushbus 41 (slow 4 $ range 12 4 saw)) -- Fade in final
$ whenmod 64 32 (|* gain (slow 32 $ range 0.5 1 saw)) -- Fade in final
$ whenmod 4 3 (off 0.5 (mask "f t"))
$ note "[ef4 c4]@3 [<as3 gs3 gs3 gs4>] . ~!3 <~!3 g4>"
# "bassWarsaw"
# gain 0.55
# lpfbus 41 (slow 32 $ (range 5500 500 saw + perlin)) -- Submarine
# room 0.8
# sz 0.56
# pan 0.8
d5 $ g -- Piano baseline
$ whenmod 64 32 (# speed 0.75)
$ mask "<f!4 t [t f]!3 t!24>"
$ whenmod 64 32 (|* gain (slow 32 $ range 0.5 0.9 saw)) -- Fade in final
$ mask "<t(<1!3 3>,4)!16 t!48>"
$ slice 8 ("0 <0!4 1!4> 2 <3!3 <[4 5] [5 6]>>"
+ "<0!8 4!8> <0!8 [4 <4!12 2!3 4>]!8>")
$ "fpiano:12"
# pan 0.42
# gain 0.6
# room (slow 8 $ range 0.3 0.45 saw)
# sz 0.8
# cut 5
d6 $ g $ gMask -- Breakbeat fidèle
$ mask "<f!64 t!64>"
$ someCyclesBy "<f!16 t!16 f!8 t!24>" (|* gain 0.8)
$ mask "<t(<1 2 3 4>,4)!16 t!16 f!8 t!24>"
$ whenmod 4 3 (ply "<1 2>" . rev)
$ slice 4 ("0 1" + "<0!3 <2 0> <2!3 <0 2>>>")
$ loopAt 2
$ "break:13"
# cut 6
# pan "<0.65!6 0.8 0.9>"
# gain (slow 32 $ range 0.5 0.75 saw)
# room 0.98
# sz 0.4
# dry "<1!3 0.993>"
d7 -- ChOiR
$ mask "<f!32 t!32>"
$ superimpose (+| note (arp "up" (
"<c'maj'8!3 c'min'4 c'man'8!2 c'min'4 g'min'4>"
- 24
)))
$ note "[ef4@4 <c4!3 g4 c4 g4 c4 g4 g4 g4 g4 c4 g4 g4 c4 g4>]"
# "moogBass"
# panbus 71 (range 0.13 "<0.5!3 0.8>" saw)
# gain 0.45
d8 $ g -- Nappes <3
$ mask "<f!8 t!56>"
$ note (
"[ef4 c4]@3 [<as3 gs3 as3 gs4*<1 2>>] . ~!3 <~!3 g4>"
+ 12)
# "moog:4"
# cut 8
# pan 0.96
# att 0.09
# rel 10
# gain 0.35