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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
-- Base: DNB Dansante!
setcps 0.6
d1 -- Poum tchak
$ whenmod 8 4 (someCycles (fast "1 2"))
$ whenmod 16 12 (# silence)
$ someCyclesBy 0.2 (fix (# s "snare:8") (s "sn:2"))
$ fix (# s "sn:2") (s "s")
$ fix (# s "[bskick,kicklinn]") (s "b")
$ s "b? ~ s ~ ~ b s <~ <~ <~ s>>>"
d3 -- drumroll
$ fast "4 <8 16>" $ s "drum:2" # gain 0.9
d6
$ whenmod 32 24 ( -- final trompette!
superimpose (const $ slow 2 $ s "~ ~ <b ~ b b?> ~"
# s "brass:6" # gain 0.6)
)
$ whenmod 8 4 (degradeBy 0.5)
$ superimpose (|+ note 12)
$ superimpose (|- note 12)
$ s "brass:2/2"
# note "<0 0 0 <<12 5> 0>>"
# gain 0.5
# cut 1
d7 -- toys
$ every' 16 15 ( -- petit coup
superimpose (const $ s "~ ~ brass:9 ~"))
$ every 16 ( -- intense!
sometimes (superimpose (const $ s "~ ~ brass:10 ~")))
$ s "~ brass:7/4 ~ brass:5/8"
# gain 0.45
d4
$ note (scale "aeolian" "<0 5>(<3 5>,8)"
-24
) # s "supersaw" # voice 0.1 # gain 0.8
d9 -- basse
$ stut 4 0.75 0.125
$ chop (slow 4 $ "<1 2 1 4 1 4 8>")
$ (|+ note (scale "major" "7"))
$ whenmod 8 4 (|+ note (scale "major" "5"))
$ off 0.125 ((# room 0.2) . (# size 0.8))
-- $ superimpose ((# s "bass3") . (|+ note 0))
$ note (-36)
# gain 0.9
# attack (0.5 + rand / 2)
# s "bassWarsaw"
-- Elimines pendant
--
-- d5 -- synthe fou
-- $ euclid "<5 8>" 8
-- $ superimpose ((|+ note 5) . (stut 4 0.8 0.25))
-- $ note (scale "aeolian" "[0|12]")
-- |- note 24
-- # s "defaultB"
--- Test echoue, peutetre du contenu?
d1
$ fix (# s "[kick:8,kick:9]") (s "p")
-- $ s "bd ~ s ~ ~ bd s <~ s>"
$ s "p ~ t <~ t ~ ~> ~ p t <~ p>"
d1 $ weave 16 (pan sine)
[
s "[<k <k*2 k?>>] ~ <k [k k?]> ~" # s "kick:4",
s "~ [s|~] [s s?] ~" # s "snare:4"
]
# room 0.1
d2
$ sometimes (off (1/16) id)
$ every 2 (degradeBy 0.2)
$ s "dr*8"
d3
-- $ superimpose ((# crush 4) . (# gain 0.9))
$ superimpose (|+ note 12)
$ note (scale "major" "0 0 5 <-1>")
# s "bassWarsaw"
|- note 24
# gain 0.9
d4 $ s "superpiano"
d7 -- noise
$ euclid "<3 3 5 1>" 8
$ s "glitch:5"
# gain 0.7
d8 -- forks!
-- $ fast 2
$ degradeBy "0 0 1 0"
$ whenmod 32 26 (degradeBy 0.2)
$ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
$ superimpose (|+ note (slow 4 $ "<5 3> 5")) . (# gain 0.8)
$ euclid "[<3 3?>,5?]" 8
$ s "s"
# s "superfork"
# room 0.5
# gain 0.5
# pan (slow 4 $ sine)
|- note 12