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
-- Le naufrage : funky piano jumpy hypnotique
-- Tags: Techno, funk, piano
-- Ready: 5/10
-- Intro lead piano
do
solo 1 -- KICK!
solo 2 -- Hats rolling
solo 3 -- LEAD piano
solo 4 -- guitar riff
solo 5 -- Théorie du naufrage
solo 6 -- Glitches
setcps (110/60/4)
d1 -- KICK TODO VARIATIONS
$ superimpose ((# "glitch") . (|* gain 0.9))
$ whenmod 4 2 (fast 2)
$ every 2 (fast 2)
$ fast 2 $ "jazz"
# gain 0.6
d2
$ juxBy "<<0.2 0.8> 0.5>" (rev . (hurry 2))
$ note (stack [
"0(3,8,<0 4>)",
"4(<4!3 8>,8)"]
) # "hh" # gain 0.95
d3 -- Piano lead!
$ whenmod 128 64 (often rev)
$ whenmod 64 48 (# n "<2!7 <4 [4 2]>>")
$ whenmod 16 12
(off "e" (
(|+ note 12)
. (|* gain 0.75)
)
)
$ s "fpiano"
# n (slow 4 $ "<0 1>")
# gain (slow 32 $ range 0.5 0.65 saw)
# legato 1
# room 0.5 # sz 0.8
d4
$ whenmod 4 3 (often (striate 4))
$ slice 2 ("<0!4 1!4>")
$ "fbass:35"
# gain 0.5
# crush (slow 32 $ range 16 4 saw)
# room (slow 32 $ range 0 0.6 sine)
# sz 0.5
# cut 4
d5 -- Macron : le naufrage
$ every 4 (# waveloss 0)
$ ply "<1!4 1 1 2 1 1 2 2 1!5>"
$ whenmod 64 48 (# gain 0.9)
$ ("q" ~>)
$ slice 3 "2"
$ s "macron:8/2"
# begin "<0.1!4 0!4 0.5!3 0.8!5>"
# waveloss (slow 16 $ range 30 50 sine)
# gain 0
# cut 5
d6
$ "glitch:2(5,8)"
# note (
scale "major" "<0 2 4 12>" + (run 4)
) # gain 0.7
once $ s "fbass:35"
# gain 0.75 # cut 42