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
resetCycles
do
setcps (60/60/4)
let whenPontHPF = (whenmod 64 32)
d1
$ whenPontHPF (# silence)
$ mask "t <t!3 f>"
-- $ "k . <k!3 [~!<3!8 7!8> k]>"
$ "k . <k k*<2 4>> k*2"
# "[jazz,cpu2,reverbkick]"
# att 0
# rel 0.9
# room 0.2
# lpf 1050
# gain 1
d2 -- Broken break!
$ mask "<t!16 f!8 t!8>"
$ whenmod 4 3 (mask "t <f!3 t>")
$ whenmod 16 10 (striate "2 <2 4>")
$ whenmod 8 6 (slice 8 "1!8")
$ loopAt 2
$ slice 8 (run "<8!3 16>")
$ "fbreak80:3"
# gain (slow 32 $ range 0.75 1.25 cosine)
# cut 2
d3 -- HiHat roll
$ fast "1 <2 <1 4>>"
$ "h*[8 16]" # "hh"
# note "<0!4 2!3 0>"
# gain ((slow 16 $ range 0.4 0.57 saw) + 0.1 * perlin)
# lrate 0.5
# leslie 6 # cut 21
d4 -- Rhodes nappes+arps
$ superimpose ( -- Laggy Arps
chop "<1!16 <1 2>!16>"
-- . struct "t(<3 3 3 [3 1] 5 5 5 [5 8] 8 8 5 8 16 [16 8] 5 [8 16]>,8)"
. struct "t(<12!3 [12 24]>,16)"
. arp "disconverge converge"
. off "h" (|+ note 12)
. (# pan 0.8)
. (|* gain 1.3)
. (# room 0.5)
. (# sz 0.9)
. (# cut 41)
. (# "FMRhodes2")
)
$ note ("ds'maj" -- BASELINE
+ "<<0!4 12 0!3> <5 8>>")
# "FMRhodes1"
# octave 3
# gain 0.9
# room 0.32
# sz 0.6
# dry 0.9
# pan 0.8
d5 -- Bassline + final arps
$ whenmod 32 24 (superimpose (
struct "t(5,8)"
. arp "down"
. (+| note "c'maj'5")
. (# cut 51)
. (|* gain 0.95)
. (# pan 0.3)
))
$ note (
"<ds3 [fs3@2 gs3 ds3@5] [fs3@7 [ds3 fs3]] gs3>"
)
# "bassWarsaw"
# cut 5
# pan 0.2
# gain 0.9
d6 -- Cbows graves suspensifs
$ mask "<f!16 t!3 f t!12>"
$ superimpose (|+| note
"0*<1 1 2 1 2 2 1 1> <7!3 12>(<1 3 1 5>,8)"
)
$ note ("<ds fs ds gs>" - 12)
# "cbow:2"
# cut 6
# pan 0.15
# gain 0.7
# room 0.3 # sz 0.8
d7 -- Cbows Aigus conclusifs
$ mask "<f!32 t!16 f!4 t!12>"
$ often (off "e" ((|+ note "[0|12]") . (|* gain 0.95)))
$ note ("<ds fs ds gs>" + (arp "up" "<c'maj'2!3 c'maj'4>"))
# "cbow:3"
# pan 0.85
# gain (slow 16 $ range 0.45 0.6 saw)
# room 0.3 # sz 0.8