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
92
93
94
95
resetCycles
do
let delayPiano = ((# delay 0.5) . (# delayfb 0.8) . (# delayt "q"))
let delayTrump = ((# delay 0.65) . (# delayfb 0.9) . (# delayt "e"))
let breakLPF = whenmod 32 24 (# djfbus 1 (max 0.1 (range 0.4 0 (slow 8 cosine))))
let breakLPFLight = whenmod 32 24 (# djfbus 1 (max 0.3 (range 0.4 0 (slow 8 cosine))))
let g = breakLPF
d1 $ g
$ mask "<f!8 t!120>"
$ whenmod 16 12 (fast 2)
$ "k k k <k k*2 [~ k] k*2>"
# "[cpu,bd:6]"
# lpf 2000
# cut 1
# gain 0.8
d2 $ g
$ mask "<f!12 t!116>"
$ mask "<f!6 t f t!8 f!4 t!11 f>"
$ "~ s"
# "h2ogmsn"
# n "<8!6 7 6>"
# gain (slow 16 $ range 0.4 0.6 saw)
# room 0.5 # dry 0.9 # sz 0.6
# pan 0.4
d3 $ g -- Stubborn bassline
$ whenmod 16 14 (chop 2)
$ mask "<f f f t f f t t f t f t f t t t t!116>"
$ whenmod 32 24 (# crushbus 31 (range 16 5 saw))
$ mask "t(<1!4 3!4 5!4 [5 8]!2 8 [5 8] 8!16>,<4!4 8!28>)"
$ note ("e3 . e3(<3!3 5 3 3 5 [5 <3 8>]>,8)"
|+| "0!7 <0!12 12*2!12 0!4 12*2!4>"
)
# "bassWarsaw" # gain 0.7
# room 0.4
# sz 0.1
d4 $ g -- Piano contretemps quinte-ish
$ mask "<f!8 t!8 t!8 t!4 f!4 f!4 f!3 t f!4 t!4 t!24 f!8>"
$ every' 64 39 (delayPiano)
$ every' 64 27 (delayPiano)
$ someCyclesBy "<0 <0.5 0.9>>" (ply "1 2")
$ fast 2
$ note ("~ 0"
+ "<e5 e5 <d5!4 a4!4> <d5!3 a4!4 d5>>"
+ "[0,<7 7 5 5 7 7 7 3>]")
# "superpiano"
# velocity 0.39
d6 -- Distant guitar
$ g
$ mask "<<f t>!24 f!8 t!8 f!8 t!16>"
$ "g(<[1 5]!4 5 1 3 10>,16)"
# "rootsGuitar:2"
# note "<5 5 3 3>"
# gain 0.49
# att 0
# rel 0.7
d10 -- Distant metal drums
$ breakLPFLight
$ sometimesBy "0 0.25!3 <0.3!3 0.9>" (ply 2)
$ "808sd*8"
# n "[9|10]*16"
# pan 0.8
# gain (0.47 + 0.1 * perlin)
d8 $ g
$ mask "<f!6 t f f!8>"
$ every' 16 6 (delayTrump)
-- $ whenmod 16 12 (delayTrump)
$ off "h" (
whenmod 16 8 (scramble 4)
. whenmod 16 4 (|* gain 1.05)
)
$ slice 4 "<2 3 2 3 3 3 ~>"
$ "rootsTrump"
# gain 0.5
# cut 21
d9 $ breakLPFLight
$ mask "<f!3 [f t] f!3 t t!120>"
$ fix (whenmod 8 6 (degradeBy "0.5 <0.5!4 0.8!3 1>")) (n 1)
$ n (stack [
"[~ <1!8 0!8> ~ 1 ~ 1*<1 2 1 2 1 1 2 2 0!8 1!6 2 2> ~ <1!8 <1 0>!8>]",
"~ <~!7 3>" -- Whoosh
,""])
# "tech"
# gain (slow 4 $ range 0.35 "<0.5!8 0.7!8>" saw)
d11 -- Les poulettes d'Igor
$ mask "<t!6 f <f t>>"
$ mask "<t!32 f!8 t t f!6 t!8 f!3 t t t f t>"
$ whenmod 16 8 (off "e" (chop "4 <1 2>"))
$ "igor:10"
# begin ("<0 0.25 0 0 0.5 0.5 0.5 0.5>" + 0.05 * perlin)
# gain (min 0.45 $ slow 16 (range 0.7 0 saw))
# cut 11
# room 0.3
# leslie 0.26
# lrate 1.7