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
resetCycles
import Sound.Tidal.ParVagues.Control
setcps (159/60/4)
-- Perce-neige Printanier
-- ..... 0 Intro -> 8 Drop DNB -> 16 Var1 -- 32 Montee - 40 Drop2
-- Kick . . . ...... . . . . . . . . . . . . . . . ..... . . . .
-- S -- HELLO SNARE -- SNARE2
-- Drumroll Lent - - -
-- C
do
let g = id
let mel = "c"
let prog = ("<cs5!4 a4 a4 b4 gs4>")
let chorus = pF "chorus"
let mix = pF "mix"
let modIndex = pF "modIndex" -- 0.2
d1 $ g
$ someCyclesBy "<1!8 0!24>" (<| "k*<1 1 2 2 4 4 8 16>")
$ someCyclesBy "<0!8 1!24>" (<| "k . ~ k ~ ~")
$ "reverbkick" # sus "0.25"
# gain 0.85
d2
$ mask "<f!8 t!24>"
$ "~ s ~ s*<1 2 1 1>"
# "[snare:21,snare:22,snare:3]"
# note "<0!16 -4!16>"
d3 -- Drumroll
$ mask "<f!16 t!16>"
$ mask "<t(4,8)!8 t!8>"
$ "drum:2*[8 <8 16 32> 8 16]"
# pan 0.75
# room 0.4
# gain "<0.75 0.8!15>" * 1.4
d4 -- Bassline pompée
$ mask "<t!8 f!4 t t f f f!4 t t f f t!3 f t t f [t f] t!8>"
$ note ((
"<0 ~> 0*<1 2 4 2>"
+ prog
+ "0 7"
- "24" -- Octave
))
# "bassWarsaw"
# gain 0.87
# room 0.4
# pan 0.2
d5 -- Rhodes base + chords
$ mask "<f!3 [f t] f!3 t t!24 t!32>"
$ someCyclesBy "<0!16 1!16>" ( -- ARPS <3
(|+ note 12)
. sometimesBy "0 0.5!7" rev
. fast "1 2"
. arp "pinkyup"
. (|+ pan 0.1)
. (|* gain 1.2)
)
$ note ((
"<0 ~> 0"
+ prog
+ "0 -12"
- "12" -- Octave
))
# "FMRhodes1"
# modIndex "[0,5,10]"
# pan 0.6
# crush "<16!40 [<4 4 5 6>]!24>"
-- # gain 0.95
d6 -- Bonus bouton nassim deuxième drop
$ mask "<f!32 f!8 t!24>"
$ slice 8 (run "<8!4 4!4>")
$ (loopAt 1)
$ "breaks165"
# gain 0.95
once
$ "methbass"
# speed 0.20
# gain 0.65
# cut 21
once $ "macron:10" # gain 1.5
d9
$ struct "t . ~ t ~ ~"
$ "wind"
# speed 0.1
# cut 1 # gain 1
-- # gM' 0 1 "^80"