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
d1 $ ""
do
-- resetCycles
setcps (90/60/4)
let gDJFBreak = (whenmod 32 24 (# djfbus 1 (slow 8 (range 0.05 0.45 saw))))
let whenMask33 = (someCyclesBy "<f!32 t f!31>")
let mask33 = whenMask33 (mask "t!3 f") -- TODO Retravailler Mask+FX
let mask8 = whenmod 8 7 (mask "f!3 t")
let m = mask8 . mask33
let g = gDJFBreak
d1 $ g
$ mask "<f!3 t!31>" -- Intro
$ someCyclesBy "<f!8 t!24>" (
superimpose (
(# "[reverbkick,kick:5]")
. (|- note 8)
. (# lpf 2000)
. (# att 0) . (# rel 0.7)
. (|* gain (slow 4 $ range 0.5 0.75 saw))
)
)
$ "k*<1 1 2 <1 2>> . k(<3!3 <5 [5 <3 [3 6]>]>>,8)"
# "dr55:1" # gain 0.95
d2
$ mask "<f!8 t!24>" -- Intro
$ g $ mask8 -- Phantom Snare
$ whenMask33 ( -- mask33 fx
(# speed (range 2 0.135 saw))
. (ply "1!7 <2!3 4>")
. degradeBy "0 0.23!6 0"
. (>| (n "[0 .. 15]" # "amencutup"))
)
$ mask "<t!16 f!8 t t f t t!4> <t!24 t t f f t!4>"
$ fix ((# att 0) . (# rel 0.4)) ("snare")
$ fix ((|- note 2) . (* gain 0.7)) ("clap")
$ fast 2 $ "~ <s!3 s?>" # "[snare:1,clap:1]"
# room 0.8 # dry 1 # sz 12
# pan 0.8
# gain 0.6
d3
$ mask "<f!16 t!48>" -- Not until first drop
$ g $ m -- Drumroll basique
$ mask "<t!8 f!8> <t!16 f!4 t!4 f!4 t!4>"
$ "d d d [d . <d ~> d]"
# "drum:2"
# gain 0.58
# pan 0.1
d4 $ g $ mask33 -- Baseline bassline
$ note "<c c*2 f*2 f*2> ~ ~ <~!3 g>"
# "bass3"
# gain 0.79
# room 0.6
# dry 1.2
# legato 2
# sz 0.9
d5
$ mask "<f!8 t!64>" . someCyclesBy "<t!16 f!16>" (|* gain (slow 16 saw)) -- Intro
$ g
$ note (
"<c <c*2 [c@2 d c]> [f f] [f@2 g f]> ~ ~ <~!3 <g b5>>"
+ "[0,12]"
- 24
)
# "blip1"
# pan 0.8
# gain 0.5