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
-- Marche vertigineuse
-- TODO: More march, more vertige
resetCycles
do
d1
-- $ "k . ~ k ~ <~!3 k>"
$ "k k k <k!3 [~ k]>"
# "jazz" # gain 0.7
d2 $ "~ <c!3 c*2>" # "cp"
# gain 0.8
# lpf (slow 8 $ range 1000 5000 saw)
d3
$ fix (|* gain (slow 4 $ range 0.6 0.8 perlin)) (n 2)
$ fix (
whenmod 16 8 (<| "4*[<8!3 16> <12 16>]")
. (|* gain 0.78)
) (n 4)
$ fix (|* gain (slow 8 $ range 0.6 0.7 saw)) (n 5)
$ n (stack [
"2(<5!7 4>,8, <0!12 4!4>)",
"4*[<6!3 12> 12]",
"5(<3 3 5 [8|[8 1]]>,8,<0!3 3>)",
""
]) # "cpu"
# gain 0.8
d5
$ note (scale "aeolian" (
"<0 0 0 7 7 7 0 0 7 7 7 0 7 7 0 7>")
)
# "moog:1"
# pan (slow 4 $ range 0.35 0.5 perlin)
# gain 0.6
d6
$ note ("<d'min'2 d'min'2 d'min'3 d'min'4>")
# "superhoover"
# gain 0.35
# pan 0.7
# accelerate (slow 16 $ range 8 (-2) sine)