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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
once $ "FMRhodes1"
fs ds
do
setcps (94/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
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
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>")
$ "[clubkick,jazz]"
d2 $ gF1 $ gM1
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ ~ t ~")
$ fix (|+ note 2) "snare"
$ "[dr55,snare:24]"
# rel 0.35
d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:14"
# hpf 5000
# att 0.0
# rel 0.2
# room 0
d4 $ gF2 $ gM3 -- Piano magique guide eternel TODO SPLIT BASS and piano d5
$ midiOn "^57" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3
$ midiOn "^89" (ply "2 4")
$ note ("[b,fs6]@1.5 [a,e6]@1.5 [[<fs!3 fs6>, cs6](3,8) [<fs!3 fs6>, cs6](<1 3 3 5>,8)]@3"
- 24)
# crushbus 41 (range 16 3.5 "^53")
# room 0.2
# "bassWarsaw"
# gain 0.7
)
$ midiOff "^57" (# cut 4)
$ midiOn "^89" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0))
$ loopAt 8
$ chop 16
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 41 (range 16 2.5 "^53")
# lesliebus 42 (range 0 1 "^33") # lrate 0.92 # lsize 1.9
-- # lsizebus 43 (range 0.8 1.8 "^33")
# pan 0.3
# gain 1.0
d11 $ gF3 -- Angels of deception
$ slow 2
-- $ mask "<[f f t] t!3>"
-- $ mask "<[f f t] t!3>"
$ struct "t(<3 5>,8) ~"
$ note ("[gs3 g3 fs3] ~" + 12 + "[0,<12!2 7!2>]")
-- $ note "<fs3>"
# "moogBass"
# legato 4
# modIndex (slow 16 $ range 0 5 perlin)
# room 0.4
# att 0.24
# rel 2
# gain 0.8
d12 $ gF2 $ gM3 -- Devils of delusion
$ someCyclesBy (slow 16 $ range 0 0.8 saw) (ply "1 2!6 <2 1>")
$ slow 2
$ struct "t(<3 5>,8) t(5,8)"
-- $ superimpose ((|+ note "<12!2 7!2>") . (# cut 121))
$ note ("[cs d fs] <~!4 [fs [d cs6] ~]!12>")
-- $ note "0"
# "moog:1"
# legato 0.8
# pan 0.8
# room 0.2
# crushbus 121 (slow 4 $ range 16 3.5 perlin)
# cut 12
# gain 0.9
d8 $ gF1 $ gM1
$ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165"))
$ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45"))
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "1 2 <1 2> <2 4>")
$ chop 16
$ loopAt 4
$ "jungle_breaks:45"
d6
-- $ loopAt 8
$ chop "4 8"
$ note "<[fs,a,cs] [gs,c,ds] [g,b,d] [fs,a,cs]>"
# "giorgio_syn:43"
-- # cut 6
# pan 0.8
-- # crushbus 61 (range 16 4.5 "^31")
-- # hpfbus 62 (range 0 1500 "^31")
# gain 0.65
d7 $ gF3 $ gMute3 -- La guitare d'Icare
$ midiOn "^91"(ply 2)
$ midiOn "^59" (# n 1)
$ fix (|* gain 0.8) (n "1")
$ loopAt 2
$ superimpose ((# lpf 2500) . (# cut 71))
$ chop 8 $ "suns_guitar:0"
-- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
# n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
# crushbus 71 (range 16 8.5 "^55")
# lpfbus 72 (range 20000 5000 "^55")
-- # octerbus 73 (range 0 1 "^35")
# hpf 1200
# cut 7
# gain 0.9
d9 $ gF3 $ gMute3 -- VOICES OF SUNS
$ midiOn "^17" ((>| n "<2 ~>") . (|* gain 1.1))
$ whenmod 64 48 (# n 3)
$ slice 2 "<0 <0 1> <0 0 [1 0] 1> 1>/2"
$ "suns_voice:0"
# end "<0.1 0.3 1 1>"
# n "<0!8 1 [1 0] [1 0 0 1] 1 1 [0 1] [1 0 1 1] [1 1 0 1]>"
# hpfbus 91 (range 0 5500 "^19")
# crushbus 92 (range 16 4.5 "^18")
# roombus 93 (range 0.1 0.9 "^18") # sz 0.9
# cut 7
# pan (slow 32 $ sine)
d10 -- Decoration
$ fix (
(loopAt 4) . gMute . gMute2
. mask "<f!24 t!8>"
. (# gain 0.8)
. (# speed 0.5)
. (# cut 102)
) "risers" -- Riser occasionnel
$ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
. (# cut 101)
. (# gain 0.2)
. (# pan "<<0.2!3 [0.2|0.7]> <0.8!3 [0.8|0.3]>>")
. (# speed "<0!24 -1!8>")
) "suns_voice" -- Whisper
$ stack ["risers:19/2", "suns_voice:2"]
# room 0.2