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
resetCycles
do
setcps (85/60/4)
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.18 saw)))
d1 $ g
$ mask "<f!16 t!48>"
$ "k*<1!4 2 1!3> ~ . ~ k ~ <~ k ~ <~ k>>"
# "reverbkick" # gain 0.86
d2 $ g
$ mask "<f!8 t!54>"
$ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
$ fast "<2 <2!8 [4!3 2]!8>>" $ "~ cp" # "[cp,sn:10]"
# gain 0.85
d3 $ g
$ mask "<f!4 t!28>"
$ fast "1 <1 <2 [<2 [4 8]> <4 [4 . 16 8]>]>>"
$ "drum:2*8"
# gain 0.8
d4
$ whenmod 64 0 ((# legato "<1!8 h!4 q q e s>") . chop "<4 4 16 <4 2>>")
$ whenmod 32 16 (# djfbus 4 (slow 16 $ range 0.5 0.98 saw))
$ n "<0!4 1 0 1 1*2>"
# "celtic_guitar85"
# gain 0.9
# room (slow 16 $ range 0.35 0.8 saw)
# pan 0.67
# drybus 41 (1.3 + 0.4 * perlin)
# sz 0.49
# cut 4
d5 -- SUB accompagnateurs
$ g
$ mask "<f!8 f f t t t!50>"
$ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
# "808bd:1"
# lpf 4000
# gain 1.1
# room 0.5
# pan 0.33
d6
$ whenmod 64 32 (
(|* gain (slow 32 $ range 4 1 saw))
. mask "t!3 <t!4 f t f t> . <f t [t f] t> t"
)
$ whenmod 32 16 (|* gain (slow 16 $ range 1.5 4 saw))
$ slice 8 (run "8 <8!3 16>")
$ chop 8
$ loopAt 1
$ "break:11"
# gain 0.2