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
-- Steps: Baby dub steps, trying out some delay
-- TODO Elaguer pause delay piano drums only
-- TODO Autre pause delay hammond
resetCycles
do
let chords = "<e5 d5>"
setcps (120/60/4)
d1
$ "k . <k!16 ~!16> [~ <~ k>]" # "reverbkick" # lpf 1500
# gain 0.8
# release 0.8
d2
$ fix (mask "f t") ("hh27:3")
$ superimpose (
sometimesBy "0 <0 0.2!3>!2 <0!3 [0 0.5]>" (fast 2)
. (<| "k*[8 <8!3 4>]") . (# n 2) . (# cut 31) . (|* gain 0.65)
)
$ "h h" # "hh27:3" # cut 3 # gain 1
d4
$ juxBy 0.5 ((# cut 41) . (# octave 4))
$ struct "t*2 t . t*<2 [4 2] 4 [2 4]>"
$ note (arp "up . <up!3 downup>" (chords + "c'min7"))
# "bass3:1"
# cut 4
# room 0.15
# gain (slow 8 $ range 0.55 0.75 cosine)
d5
$ every' 16 15 (# silence)
$ mask "<t!8 t f!7>"
$ every' 16 8 (
(|+ note 12)
. (# delay 0.75)
. (# delayfb 0.8)
. (# delaytime 1)
)
$ "~ p ~ p" # "superpiano"
# note (chords + "<c4'min a4'min>")
# room 0.3 # sz 0.46
# velocity 0.7
# gain 0.75
d6 -- Skank Hammond
$ mask "<f!4 t!4 t f!3 t f f t t>"
$ mask "[<f!4 t?!4 t!4> <t? f!4 t!4> t?] . f <~!8 t!8> f f"
$ fast 2
$ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
# "superhammond"
# gain (0.68 * "[1 0.85 1 0.85]")
# voice 6
# octave 6
# sustain 0.25
d9
$ "hh*[8 . 8 8 <8 16> <8 8 4 16>]"
# gain "<0.5!4 0.7!4 0.6!4 0.7!4>"
d7
$ note "<[2 . ~ <2!3 4>] [0 . <~ 0> <0 0 1 4>]>" # "brass:20"
# gain (slow 8 $ range 0.3 0.47 saw)
# pan 0.25 # room 0.3
# cut 7