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
-- Racine clave
-- TODO: Etoffer la clave, structures, masks, breaks, drop
do
setcps (110/60/4)
d1
-- $ "k*2"
$ superimpose (<| "~!15 <~!3 k>")
$ ( -- Kick rhythm
"k . k <k(0,4) [<~ k> <k ~>]>" -- RubADub
|+| "k*[4 <8!3 16>]" -- Run
-- |+ "~!15 k"
)
# "[cpu2,jazz]"
# gain 0.6
# lpf 4500
d2
$ someCyclesBy "<f f f 0.5>" (fast 2)
$ "d ~ ~ d d ~ d <~!3 d>"
# "h2ogmhh:3"
# gain 0.57
# pan 0.8
d3
$ n ("~ <3!3 [~!6 4 3]>")
# "h2ogmsn"
# pan 0.8
# gain 0.6
d4 $ "h2ogmhh:10(<1 3 [1 3] <5 [8 <[8|16] 5>]>>,8)"
# cut 4
# pan 0.35
# gain 0.5
d5 -- Bass
$ superimpose (
whenmod 16 4 (stut 4 "<0.9!3 1.05>" "<e!4 e>")
. (# lpf 4000)
. (# cut 51)
. (# legato 0.125)
)
$ note "[~!3 <~!3 c> . <a4 <bf4!3 df>>]" -- Naive bassline
# "bass1:3"
# att 0
# rel 2
# crushbus 5 (slow 32 $ range 10 8.5 saw)
# cut 5
# lpf 5000
# gain 0.6
# room 0.2
# sz 0.8
d6 -- Baseline saxes
$ n ("<0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 1>")
# "rootsSaxes"
# cut 6
# pan (slow 16 $ range 0.65 0.35 saw)
# gain 0.45
d7 -- Baseline trumpets
$ n ("<0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 1>")
# "rootsTrump"
# pan (slow 16 $ range 0.35 0.65 saw)
# cut 7
# gain 0.34