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
resetCycles
do
setcps (80/60/4)
let mel = "<[ef, gf, bf, df6,f6,af6]!2 [d,f,a,c6,e6,g6]!2>"
let modIndex = pF "modIndex"
let maskDrums = mask "t t . t <t!3 <f [f t]>>"
d1
$ maskDrums
$ "k . k(<3 1 3 3>,8)" # "[bd,jazz,808bd:3]"
# lpf 2000 # gain 1.1
d2
$ maskDrums
$ fast 2
$ "~ s*<1!6 2 4>" # "sn:20"
# gain 0.9
-- # hpf 4000
d3
$ maskDrums
$ "drum:2*4" # gain 0.8
d4 -- Broken break
$ maskDrums
$ someCyclesBy (slow 8 "<0 0 0 1>") (slice 4 "0 1*<1!3 [4 <4 1>]> 2 <1 3>*<1 <2 4>>")
$ someCyclesBy (slow 8 "<0 0 1 0>") (slice 4 "0 1 <2 [~ 2]> 1*<1 <2 4>>")
$ someCyclesBy (slow 8 "<0 1 0 0>") ((fast 2) . (slice 4 "<0 1 2 <1 3>>"))
$ someCyclesBy (slow 8 "<1 0 0 0>") (slice 4 "<0 0 1 1>")
$ loopAt 2
$ chop 8
$ "break:32"
# cut 1
# room 0.5
# sz 0.39
# dry (1 + (slow 8 $ range 0 0.5 saw))
d5
$ note ("~ [0,12]" + mel - 24)
# "FMRhodes1"
# att 1 # rel 9
# modIndex 0.2
# room 0.8
# sz 0.8
# dry 1
# legato 2
# gain 1
d6 -- Bassline ténébreuse
$ note (
"<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
- 24)
# "bassWarsaw"
# gain 0.9
d7 -- SUB CRUSH FIGHT
$ mask "<f!16 t!16>"
-- $ note "<[ef,bf]!2 <[d,a]!3 [c6,e6,g6]>!2>"
$ note "ef . ef@3 <bf!2 d!2>*2 <ef!3 g>"
-- $ note "ef bf d a c6 e6 g6"
# "bass2:1"
# lpf 2000
# pan 0.4
# gain 0.68
d8
$ maskDrums
$ "[~ <~!4 h!12> h*<1!4 <2 4>!4>]*4"
# "h2ogmhh"
# gain (slow 64 $ range 0.5 0.75 saw)
# pan (slow 16 $ range 0.8 0.55 sine)