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
once $ "drum:2"
-- 0 Intro 16 Premier 48 second 80 Outro 96
do
-- resetCycles
let tempo = 110
setcps (tempo/60/4)
let g = id
d1 $ g
$ mask "<f!16 t!32 t!32 t!15 f>"
$ whenmod 8 7 (fast 2)
$ "k k <k!2 [~ k] k> k*<1 2 [0 2] 2>"
# "jazz"
# gain 1.1
d2
$ mask "<f!16 f!4 t!28 f!4 t!28 f!16>"
$ g $ "[~ clap]*2"
# gain (slow 48 $ range 0.6 1.4 saw)
# lpf 2000
d3 $ g
$ mask "<f!8 t!8 f!2 t!30 f!3 t!29 t!16>"
$ degradeBy "<0!8 0.1!8 0.2!8 0.25!8>"
$ "d*[8 <8 16>]" # "[drum:2,amencutup:7]"
# lpf 4000
# gain 1.2
d4
$ mask "<f!16 f!7 t!25 f!16 t!16 t!6 f!2>"
$ whenmod 4 3 (slice 4 "0*<8 4>")
$ g "fguitar" # n "<19 19 <19 ~> 1>"
# cut 4
# gain 0.9
# pan 0.8
# crush "<16!48 16!7 2.5 1.9!24 1.9!8 2.5!4 16!4>"
d5 $ g
$ someCyclesBy "<0!16 1!64 0!16>" (# crush ("<1.8!3 <16 2.5>>"))
$ whenmod 16 8 (slice 4 (run 4))
$ loopAt 2 $ "fbass" # n "<16!8 19!8>"
# cut 5
# gain "<1!16 1.1!32 1.2!32 0.9!16>"
# pan 0.2
d6 $ g -- Nappes moog
$ mask "<t(<1!6 3 3>,4)!8 t!8 t!24 t(2,4)!8 t!24 t(3,4)!8 t(<1!6 3 3>,4)!8>"
$ note (
-- arp "up"
"c4"
+ "[0 <7!4 5!4>](<5!3 3>,8)"
+ "0 12"
)
# "moog"
# pan 0.4
# room 0.4
# sz 0.8
# gain 0.8
# cut 6
d7 $ g -- Cello
$ mask "<t!16 f!32 t!32 t!16>"
$ whenmod 16 6 (juxBy 0.5 (
(# cut 61)
. (# n 2)
. (|+| note (arp "<up!7 <down downup>>" "c'min'3"
+ "[0 <0!16 0!32 12!32 0!16>!3]" -- Retour du roi
)
)
))
$ note "<0 <7 5>>"
# "cbow:1"
# gain (1.0 * "<0.6!16 0.8!32 0.9!32 0.8!8 0.7!8>")
# cut 6
# pan 0.7