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
93
-- DOUX
do
resetCycles
setcps (70/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let endSong = (someCyclesBy "<0!48 1!999>" (# silence))
d1 $ gF1 $ gM2 $ endSong
$ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)"
# "kicklinn"
# gain 1.2
# lpf 5000
d2 $ gM1 $ gF1 $ endSong -- Snare le fantome de la plage
$ "~ s ~ <s [s*2 <~ s*4>]>"
# "hh:11"
# att 0.3
# octersub 2
# rel 2
# gain 1.5
d3 $ gF1 $ gM1 $ endSong
$ midiOn "^76" (ply 2)
$ whenmod 8 6 (juxBy 0.8 rev)
$ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]"
# "drum:2"
# delay 0.5
# delayt 0.15
d4 $ gF2 $ gM3 -- Dubesque bass
$ superimpose ((# crushbus 41 (range 16 5 "^53")) . (# lpf 500))
$ note ("g2 <g2 [<g2 a2> <a2 g2>]>") -- Melodie
+ "0(<3 3 5 3>,8) 0(<3!3 <1 [2 1] 5 8>>,8)" -- Structure
# "bassWarsaw"
# gain 1.1
# squizbus 42 (range 0 8 "^33")
# room 0.3 # sz 0.8 # dry 1.1
# pan 0.4
d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace
$ slow 2
$ superimpose
(
(|+| note ("0(3,8,1) [0(3,8),<7(<0 <1 3>>,8)>]"))
. (# "marimba1")
. (# octave 8)
. (|+ pan 0.1))
$ note ("[g2@3 d3 . e3@3 <d3!2 g3!2>]")
# "FMRhodes1"
# pan 0.6
# room 0.4
d8 $ gF1 $ gM1 $ endSong -- Unconditional loving breaks
$ midiOn "^92" (slice 8 "0 <1 [~ 1*2]> <2 [3 2]> <3 [2 3]> [4 5]*<2 2 4 8> [4 5]*2 6 7*<4 <8 [16 8]>>")
$ whenmod 4 3 (struct "t([4 4 8 4],8,<0 1>)" . chop 8) -- STUTTER
$ chop 8
$ midiOn ("^36" - "^56") (loopAt 1 . (# "jungle_breaks:45"))
$ midiOn ("^56" - "^36") (loopAt "<1!3 <0.5 [0.5 . 0.25 1]>>" . (# "jungle_breaks:24"))
$ loopAt 2
$ "break:0"
# cut 8
# room 0.5 # dry 1.1
# sz 0.8
d9 $ gF3 $ gM3 $ endSong-- Background Keys
$ someCyclesBy
"<0!15 1!9 0!24>" -- Real orchestration
-- "<0!7 1!9>" -- DEBUG orchestrationm
((>| note "<[d4,g4,b4] ~>") -- COLOR SCHEME: SUMMUM GLOIRE GLOIRE
. (# legato 4)
. (# rel 8) . (# sus 8)
. (|* gain 0.9))
$ note "<[g3,b3,d4] <[a3,c4,e4] [e3,g3,b3]>>" -- LOVE YOUR OWN COLOR SCHEME <3
# rel 4
# att 0.3
# sus 4
# stack [
"organTonewheel2" # lpf (slow 4 $ range 10000 200 sine),
"organTonewheel3" # hpf (slow 4 $ range 0 800 sine)
]
# room 0.4 # sz 0.5
# pan 0.6
# gain 0.9
d10 $ endSong
$ mask "<f!12 t!4 f!4 t!4 f!8>"
$ slice 4 "<0 0 0 1>"
$ "risers:12"
# cut 8
# room 0.2
once $ "movie_dance:1"
# cut 1 # end 0.16
# gain 1.3
# speed 0.9