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
setcps (60/60) -- One pattern per second
-- Intro -- Rouge -- Blanc -- Generique -- FIN
-- 0 68 131 143 166
do
-- resetCycles
let intro = (mask "<f!2 t!164>")
let fromVelo = (mask "<f!6 t!160>")
let fromSophie = (mask "<f!11 [f t] t!154>")
let gain amount = (gain (amount * 1.5))
d1 $ intro
$ someCyclesBy "<0!36 1!6 0!2 1!2 0!3 1!2 0!6 2!12 0!90>" (fast 4) -- Rouge
$ superimpose ((# "reverbkick") . (# hpf 200) . (|* gain 0.7) .(# legato "<1!4 <q!3 e>!4>"))
$ "jazz" # gain 0.5
-- # lpf 200
d2
$ "<d*4!4 [d [d*[1|2]]!2 d]!4 d*8!3 d*[8 16] d*[16 8]!2 d*16 d*[16 . 8 0]>"
# "drum:2"
# pan 0.35
# gain 0.6
d3 $ intro
$ whenmod 4 3 (hurry "1 . 1 2")
$ whenmod 4 2 (off "q" id)
$ "break:10" # gain 0.5 # cut 3 -- Runner
d4
$ intro
$ fromVelo
$ superimpose ( -- Arps aigus
fromSophie . sometimesBy 1 (ply "1 <1 2 4 8>")
. struct ("t . t(<3!3 <5 [3 5]>>,8)")
. arp "<up!3 down>"
. (|+ note 12)
. (|* gain 0.9)
. (|+ pan 0.1)
)
$ note "<b'min7 <a'maj7 d'maj7>>"
# "<FMRhodes1!8 FMRhodes2!8>"
# octave 4
# pan 0.4
# gain 0.6
d5 -- RESONANT BASSLINE from Angel frappe
$ fromSophie
$ note "b2!6 <bs2!3 <a2 g2>> b2"
# "supersaw"
-- # gM' 0 1 "^81"
# hpq (slow 24 $ range 0 0.25 perlin)
# hpf (slow 64 $ range "-500" 500 sine)
# room 0.5 # sz 0.8
# gain 0.35
d10 -- Metronome timings
-- $ every' 166 25 ((<| "a*2") . (# note "a'maj'2") . (# gain 0.8))
$ every' 166 35 ((>| note "f(5,8)") . (# gain 0.8)) -- Moon, bientot rouge
$ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain 0.8)) -- Hercule
$ every' 166 30 ((>| note "f(5,8)") . (# gain 0.8)) -- Eau ACF
$ every' 166 15 ((# note "g") . (# gain 0.8)) -- Piece?
$ every' 166 11 ((>| note "f(5,8)") . (# gain 0.8)) -- 1 Fin couple, 2-5 Sophie
$ every' 166 5 ((>| note "c*8") . (# gain 0.8)) -- 1-6 Fin bouche, miroir 7 8
-- $ every' 166 9 ((# note "d") . (# gain 0.8)) -- Vetement
-- $ every' 166 7 ((>| note "~ e ~ e*4") . (# gain 0.8)) -- Mains
-- $ every' 166 6 ((>| note "~ ~ ~ d") . (# gain 0.8)) -- Velo
-- $ every' 166 5 ((>| note "c*4") . (# gain 0.8)) -- Oreille
-- $ every' 166 3 ((>| note "b(3,8)") . (# gain 0.8)) -- Main
$ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain 0.8)) -- CLAP
$ note "a" # "arpy" # gain 0
-- MATIERE PREMIERE
-- BREAKS
do
d2
$ "break:16" # gain 0.5 # cut 2 -- Metronome
once $ "break:12" # gain 0.5 # cut 1 -- Afro-sweat
once $ "break:11" # gain 0.5 # cut 1 -- HEAVY
once $ "break:9" # gain 0.5 # cut 1 -- cloche
once $ "break:4" # gain 0.5 # cut 1 -- coin
once $ "dr" # cut 1