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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
-- Released as: La Fin de l'Insouciance
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
-- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5
d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
$ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>") -- FIXME
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") -- ???
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw"
# room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.d
# gain 1.4
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
-- g c ef g / g c ef f / gs c ef f / gs c ef g
-- g c ef g / g c ef f / gs c ef gs / gs c ef g
-- g c ef g / g c ef f / gs c ef f / gs c ef g
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
-- # midiG' "^82" 0 1.5
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# n "22")) -- Raise COMEON!
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.5
d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s <~!3 s>]"
# "armora:1"
# legato "<0.5>"
# note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
# pan 0.9
# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)
# room 1.0
# sz 0.01
# dry 1.025
-- # room 0
-- # midiG' "^31" 0 1.5
d7
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
$ (0.125 ~>)
$ note ("<c!4 ef!2 f g> <c!4 ef!2 f g> <c!4 ef!2 f g> <ef!4 f f g c6>"
- 7 -- Calage
)
# "808hc:2"
# pan 0.85
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques
$ off 0.25 ((# pan 0.8) . (# cut 91))
$ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
-9 -- calage
)
# "trance_pads:7"
# cut 9 # legato 2
-- # midiG' "^20" 0 1.4
# pan 0.4
# gain 1.4
# room 0.4
d10
$ mask "<f!16 t!16 t!96>"
$ gF1 $ "<~!12 <risers:2!3 ~> ~ ~ ~>"
# end 0.85
# cut 10
-- # midiG' "^13" 0 1.3
-- # gain (1.3 * "^77")
# gain 1
d11
$ mask "<f!24 t!8>"
$ note ("~ <c5!4 ef5 ef5 f5 g5>" + 4)
# "~ cy"
# "808cy:8"
-- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
# gain (1.1 * (slow 8 $ range 0.75 1 saw))
once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
# gain 1
d11 -- What is the effect?
$ fix ((# "weird_dialogs:39") . (# begin 0.81)) "answer"
$ fix ((# "weird_dialogs:39") . (# begin 0.45). (# end 0.81)) "variations"
$ fix ((# "weird_dialogs:39") . (# begin 0.2). (# end 0.45)) "almost"
$ fix ((# "weird_dialogs:39") . (# end 0.2)) "effects"
$ whenmod 32 28 (# "~ <answer!3 [variations answer]>")
$ "~ <<effects!4 almost!4> <almost variations>>"
-- $ "~ <variations>"
# midiG' "^20" 0 1.4
# cut 11
# speed 1
once $ "weird_dialogs:39"
# begin 0.45
# end 1
# cut 11
d2
$ "~ cp"