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
module Funk where
funk_noise = superimpose (const -- Bris de vers spatial
$ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
$ someCycles (# speed 0.5)
$ stut "[4|2]" 0.9 "[q|h]"
$ stut' 2 "h" ((|* gain 0.9) . (|+ note (slow 4 "<[2|4] [0 -2]>")))
$ "coins"
# octave 2 -- 4=creepy
# gain (slow 16 $ range 0.5 0.8 saw)
# pan perlin
# gain 0.4
)
$ superimpose (const -- Insectes
$ slow 4
$ jux rev $ "insect(<1 3 4 5>,8)"
# n (slow 3 $ "<0 1 2 3>")
# gain (slow 2 $ range 0.6 0.9 perlin)
# pan 0.8
)
$ superimpose (const -- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "~ cosmicg:0"
# gain (slow 33 $ range 0.3 0.4 perlin)
# speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin)
)
-- bourrasque occassionnelle
$ rarely (# gain 0.5)
$ jux (rev . segment 2)
$ s "space:3"
# speed (slow 2 $ range 0.15 0.5 perlin)
# pan (slow 4 $ range 0.45 0.55 perlin)
# gain 0
d10
-- $ (* gain 0.75)
$ funk_noise
-- effects to add to noise?
-- # hpf (slow 6 $ range 0 1500 sine)
-- # lpf (slow 100 $ range 1500 20000 sine)