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
-- Ré comme remède
-- Instru minimaliste piano/Rhodes/hammond
do
-- resetCycles
setcps (80/60/4)
d1 -- Kick
$ mask "<t!32 f!8 t!24>" -- Pont milieu
$ whenmod 32 16 (<| "k . k(<3 <5 [1 3]>>,8)")
$ whenmod 8 6 (mask "t <t f>!3 . f")
$ every' 8 3 (<| "k . k(5,8)")
$ mask "<f!8 t!24>"
$ "[dr:5,jazz]"
# lpf "<[1000!3 1500]!16 1500!16>"
# gain 0.8
d2 -- Drumroll mi-temps
$ mask "<t!32 f!4 t!28>" -- Pont milieu
$ whenmod 8 6 (mask "t <t f>!3 . f")
$ mask "<f!16 t!16>"
$ juxBy 0.85 ("q" ~>)
$ sometimesBy "0!3 1" (ply 2)
$ "~ drum:2*<4!3 <8 <16 [16 8]>>>"
# gain 0.65
d3 -- Charley des sables
$ mask "<f!4 t!60>" -- Intro
$ mask "<t!32 f!6 t!26>" -- Pont milieu
$ fast (slow 8 $ "<1 2 4>" )
$ "~ dr:2"
# gain 0.45
# legato 2
# room (slow 32 $ range 0 0.125 saw)
# sz 0.8
d4
$ mask "<t!32 f!8 t!24>" -- Pont milieu
$ note "<d <es <bs4 g>>>"
# octave 4
# "superhammond"
# gain 0.55
# pan 0.4
# voice 2
d5 -- Lead
$ mask "<f!4 t!60>"
$ mask "t <t f>"
$ whenmod 64 32 ( -- Sliced madness
slice 8 (run "<8!8 4!8 2 1 2 2 4 8 16 8 16 16 32 16 [32 16] [16 1] 2 8>")
. (# hpf (slow 32 $ range 0 5000 saw))
. (|* gain 1.05)
)
$ "fpiano/2"
# n "<8!4 9!4>"
# gain (slow 8 $ range 0.5 0.45 saw)
# hpf "<0!6 2500 5000>"
# cut 5
# pan 0.6
d6 -- Bassline
$ mask "<t!32 f!4 t!28>" -- Pont milieu
$ mask "<f!6 t!26>" -- Intro
$ off 1 ((|* gain 0.8) . (# cut 61))
$ whenmod 4 2 ( -- Echo
off "e" (
(|* gain 0.9)
. (# cut 62)
. (# room 0.2)
)
)
$ slice 4 (
"<0!4 1!4 2!4 3!4>(<[<3 <5 [8 5]>>]!16 1!16>,<8!16 1!16>)"
)
$ "fbass:9/2"
# gain (slow 16 $ range 0.5 0.6 saw)
# cut 6
# pan 0.3
d7 -- Nappes Rhodes
$ mask "<f!3 t f!2 t!2 t!56>"
$ mask "<t!32 f!4 t!8>" -- Pont milieu
$ mask "<t!4 f!4 t!6 f!2>"
$ whenmod 32 8 (off "s" (
mask "f t!7"
. rev
. (|+ note 12)
. (|+ pan 0.25)
-- . (|* gain 0.95)
. (# legato 0.5)
))
$ arp "up <up!3 down>"
$ note "<~ [bs4,d,d,f,g,a,bs5,<d5 d6>]*<1 1 2 2>>"
# "FMRhodes1"
# gain "<0.55!4 0.65!60>"
# pan 0.6