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
-- Balais metallique, menage en musique!
resetCycles
do
solo 1 -- Kick
solo 2 -- Claps
solo 3 -- Balais
solo 4 -- Space
solo 5 -- Basse
solo 6 -- Juno Metal !
let mKick = "<t [f!3 t] t!10 f!3 t>"
let mClaps = "<f!4 t!8 f!3 t>"
let mBalais = "<t!4 f [f t?] [t f?]!2 t!4 f!3 t>"
let mJuno = "t" -- "<f!8 t!16 [<f t> f . t]!4>"
let mel = "<c'maj!3 c'min c'min!3 c'maj>"
d1
$ mask mKick
$ fast "<2!2 4!14>"
$ "k" # "jazz" # gain 0.85
d2
$ mask mClaps
$ juxBy "0.4" ((1/64) ~>)
$ fast 2 $ s "~ clap"
# lpf 4000
# gain (slow 16 $ range 0.6 0.8 saw)
d3
$ mask mBalais
$ juxBy 0.35 rev
$ "b(3,8,<3!4 5!4>)" # "bend"
# dry 0.95 # sz 0.8 # room 0.9
# gain (slow 4 $ range 0.6 0.8 cosine)
d4
$ mask "<t f!3 t!2 f!2 t!6 f t>"
$ superimpose (
(stut' 4 (slow 4 $ "<h q e s>") (|* gain 0.9))
. (# octave 6)
)
$ note (mel)
# s "hoover"
# octave 4
# gain "<0.45!32 0.35!32>"
# pan 0.6
d5 -- Basse
$ note ("c'maj c'maj(<1 3>,<8 4>)" |+ mel)
# "supersaw"
# octave 3
# voice 0.1
# gain 0.35
# pan 0.3
d6
$ mask mJuno
$ whenmod 128 104 (# n 1)
$ whenmod 128 96 ((# n 8) . (|* gain 0.9)) -- Aigu
$ whenmod 128 80 (# n 7) -- METTALIZE
$ whenmod 128 64 (# n 4) -- Metallique
$ superimpose ((|- note 12) . (|* gain 0.9))
$ off "e" (|+ note "<0!4 7 5 3 0>")
$ note (scale "aeolian" "0 ~ 2 <4 5 4 3>")
# "juno:1"
# gain 0.55
# pan "<0.6!24 0.65 0.7 0.75!2 0.7 0.65 0.6>"