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
59
setcps 0.5
d1 -- batterie
$ every' 4 3 (sometimes (# silence))
$ every 4 (sometimes (# s "cpu:6"))
$ s "[sosKick,[hh*2 dr:1 hh dr:1]]"
d2 -- drums
-- $ someCyclesBy (slow 16 $ sine) (fast 2)
$ euclid "<2 4 2 6>" "<4 8>"
$ "hh:12"
d3 -- basse
$ whenmod 8 4 (|- note 5) -- quinte
$ someCyclesBy 1 ((# size 0.5) . (# dry 1))
$ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw"
# gain 1.1
d4 -- lead piano
-- $ whenmod 32 16 (someCycles $ degrade)
$ whenmod 8 4 (|- note 5) -- quinte
-- $ someCycles (jux rev)
-- $ whenmod 16 14 (|+ note 15)
-- $ whenmod 16 10 (|- note 3)
$ whenmod 4 2 (|- note 7)
$ someCycles (off 0.125 (|+ note "<12 7 12 12>"))
$ someCycles (off 0.25 (|- note 5))
$ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano"
# sustain 2
# velocity 0.8
-- # gain 0.7
d5 -- choeur fou
$ whenmod 64 60 (# gain (slow 4 $ (0.9 - tri * 0.4)))
$ whenmod 8 4 (|- note 7) -- quinte
-- $ sometimesBy (slow 32 $ sine) -- variations quinte
-- superimpose ((|+ note 5) . degrade)
$ someCyclesBy 0.2 rev
$ chop "<2 4 6 8>"
$ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")
# gain 1.1
d6 -- final aigu
$ whenmod 64 32 degrade
$ whenmod 8 4 rev
$ sometimes degrade
$ off 0.25 (|- note 7)
$ off 0.125 (|- note 7)
$ off 0.125 (|- note 3)
$ note (scale "major" "0 3 7 12")
# s "~ sosBell ~"
# gain 0.8
# release 0.5
-- # gain 0