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
setcps 0.5
d2
$ whenmod 8 6 (# gain 0)
$ every' 16 12 (# speed 0.75)
$ every' 16 13 (# speed 0.5)
$ every' 8 6 rev
$ s "<arpy*8 ~>"
# n (run 8)
# gain 0.8
d7
$ someCycles (degrade . off 0.5 id)
$ s "~ dsynth(<4 3 5>,8)"
-- $ off 0.25 (|- note 7)
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>"
# gain 0.7
once $ s "arp" # n 0
-- Basse synthé :)
d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.6 # orbit 0
-- Descente ineluctable, avec un vague espoir
$ note (scale "aeolian" (
"[<0 0 -2 <-2 -1>> ~ 2 1 0]/2"
))
d1 -- continuous laser
$ slow 4 $ "bd" >| speed (segment (slow 24 "<32 64 128>") $ range 40 5 sine)
d1 -- continuous structured xylophone
$ sound "bd" >| speed (struct "t ~ t ~ ~ t t" $ range 5 20 saw)
-- TODO Gong-ronde
d1
$ note (scale "gong" (run 8)) # "supergong"
# gain 0.8
# octave 4