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
do
-- resetCycles
-- once $ "choir:5" # gain 0.5
setcps (100/60/4)
let g = (whenmod 32 24 (# djfbus 1 (range 0.5 0.1 saw)))
d1 $ g
$ superimpose (const
$ mask "<f!3 t t!28>" -- Intro
$ mask "<t!3 <f t>>"
-- $ "k(<1!4 [1 3]!4 3!4 [3 5]!4>,8)"
$ "k"
# "[bd,jazz]")
-- SUBS
$ mask "<f!8 t!16 t!4 f t f t>"
$ "k . ~ <~!2 k!2> ~ <~!3 k>" # "808bd:6"
d2 $ g
$ mask "<f!3 t t!28>" -- Intro
$ "~ s" # "[sn,snare:28]"
d3 $ g
$ mask "<f f t f t!60>" -- Intro
$ fast "<1!8 <2 [2|4] 4>!8>"
$ "h*<1!4 2 1 2 1> h h h*<1!3 2>"
# "dr"
# gain 0.75
d4 $ g -- Clave résolu
-- $ slow 2
$ mask "<f!8 t!16 t!7 f>"
$ note "c ~ ~ <b4 df> c ~ c <~ c ~ <c ~>>"
# "gretsch:6"
# gain 1
# pan 0.8
# hpf (slow 32 $ range 400 2000 sine)
d5 -- Base layer choir
$ superimpose (
mask "<f!6 t t f t!7>"
. (+| note ("0 12 0 12"))
. (# cut 11)
. (# room 0.5)
. (|* gain 0.84)
. (# sz "<0.9!7 <1.2 1.4>>")
)
$ note "<c c <d!3 a4> b4>"
# "choir"
# cut 5
# gain (slow 16 $ range 0.45 0.8 saw)
d6
$ mask "<f!16 t!48>"
$ note (
"<c c <d!3 a4> b4>" + "<0 [0 0] 0 <[0@5 0@2 0] [0@6 0 0]>>"
- 24)
# "bassWarsaw"
-- # crush 9
# gain 0.85
# pan 0.6
d7 -- Slit Singer
$ mask "<f!3 t t!28>" -- Intro
$ slice 16 "<2 2 3 3 [3 2] [3 2] 3 3 4(<1 1 2 1 3 3 5 5>,8)!8 5!3 6 5!3 [6 6] 7!3 6 7!3 5>"
$ "choir:4"
# cut 2
# att 2
# release 5
# gain 0.78
# room 0.2
# sz 0.5
# pan 0.4
d8 -- DRUMROLL PRINTER
$ mask "t(<1!3 3 1!3 [3 5] 4!3 8 4!3 16 4!3 [8 4] 4!3 [8 16] 16!8>,16)"
$ ply "1!3 <1 2 <1 2> 4>"
$ iter "1 4"
$ slice 16 (run 16)
$ loopAt 2
$ "break"
# gain 0.8
once $ "super808" # gain 1