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
setcps (90/60/4)
resetCycles
do
let g = (# djf (slow 32 $ range 0.1 0.75 sine))
d1 $ g
$ fast 2 "k k k [<k <~ k> k k> <~ k>]"
# "[cpu,808bd:2]"
# gain 1.25
d2 $ g
$ n (stack [
"~ <2!3 11>",
("1(<4 5 6 8>,8)" |+ (run 8))
])
# "amencutup"
# gain 1.25
d5 -- Broken amen aigu
$ n "<10!4 11!3 ~ 10 10 11 11 11 ~ 10 ~>(<10!3 8>,16)"
# pan (slow 16 $ range 0.2 0.8 sine + perlin/4)
# "amencutup" # gain 1.2
d3 $ g
$ slice 8 (run "<2 4 8 16 16 8 16 32>")
$ chop 16
$ loopAt 2
$ "fguitar:22"
# gain (slow 16 $ range 0.9 1.13 sine)
# pan 0.2
# cut 1
d4
$ mask "t <f t? [f t] [t t?]>"
$ slice 8 "0 . 4 5 6 7"
$ chop 16
$ loopAt 2
$ "fbass:22"
# pan 0.2
-- # lpf 200
# gain 1.2
# cut 1
d5 -- Epiano nappes + arp
$ g
$ someCyclesBy "1" (superimpose (
slice 4 "0 . 2(<3 5>,8) <~ <3? 3>>"
. (|+ note 12)
. (# cut 51)
. (|+ pan 0.3)
))
$ note ("<0 0 3 0>/2" - 12)
# "fepiano:4"
# cut 5
# pan 0.6
# gain 1.2
once $ "" # cut 5 # gain 1.8
once $ "macron:1" # cut 5 # gain 1.8