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
-- CoolDown piano Guitare :)
do
setcps (80/60/4)
solo 1
solo 2
unsolo 3
unsolo 4
d1
$ mask "<f!8 t!10 f!4>"
$ "k(<5!3 10>,16)"
# "[stomp:1,reverbkick,kick:5]"
# hpf 50 # lpf 12000 # gain 0.9
d2
$ whenmod 16 8 ( -- Solo guitare echo /4
fast "<2!4 1!4>")
$ splice 8 "0 1 2 3*<1!3 2>"
$ "fbonus" # gain 0.95
d3
$ whenmod 16 8 ( -- Solo guitare echo /4
|* gain "<0.8 0.7!2 0.8 1!4>")
$ slice 8 (
(cat [
"0 1 2 3", "4 5 6 7",
"0 1 2 3", "4 6 5 7",
"0 1 . 2(3,8)", "4 5*2 5*2 7",
"7 1 2 3", "4 6 5 0",
"0*<1 2> 1 <2 3> 3", "<4 5> <5 4> 6 7"
])
)
$ "fpiano:8"
# cut 2
# gain 0.8
d4
$ whenmod 128 64 (rev . chop 8)
$ whenmod 16 8 ( -- Solo guitare echo /4
# room "<0.8!4 0!4>"
)
$ bite 8 "0*<1 4 2 1 4 1 4 1 4 4 1 1>"
$ "fguitar:8"
# gain 0.7
# cut 4