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
110
111
112
113
114
115
setcps 0.8
once $ s "bogdan:11"
# gain 1.3
# cut 1
d1
$ someCycles (0.25 ~>)
$ fix (# s "sn:2") (s "t")
$ fix (# s "kick:8") (s "p")
-- $ s "p ~ <t <t t?>> ~ ~ p t <~ <~ t?>>" -- reggaeton
# gain 0.7
-- helico?
d1
$ s "[a*4 ~] a*8"
# s "armora"
# note "-15 .. 15"
-- DNB
d1
-- $ fix (# s "nass:2") (s "sn:1")
$ s "bd ~ sn:1 ~ ~ bd sn:1 <~ sn:1>"
# gain 1
d1 $ "<dr <dr*2 dr?*8>>" # s ( choose ["hh", "dr"])
d2 $ euclid "<1 3>" 8
$ s "glitch"
# n 1
# gain (1 + rand)
d9 $ "808bd:1"
# gain 0.9
d2
$ every 2 (off (6/12) id)
$ every' 2 1 (off (3/12) id)
$ every' 4 1 (off (5/12) id)
$ every' 4 1 (off (6/12) id)
$ every' 8 6 (# n "2 0 0")
$ every' 8 7 (# gain 0)
$ s "dr"
# n 0
d2 $ s "dr*2 ~ dr ~ dr*8"
d1
$ degrade
$ s "dr dr dr dr dr dr sn ~ dr dr dr dr sn"
d1
$ every 1 (off (8/16) id)
$ every 2 (off (10/16) id)
$ every 2 (off (14/16) id)
-- $ every 4 (off (15/16) id)
$ every' 4 3 (# pan 1)
$ every' 4 4 (# pan 1)
$ s "dr"
-- $ every 1 (# s "~")
d1 -- progression geometrique de tk
$ every 1 (off 0.125 id)
$ every 2 (off 0.5 id)
$ every 4 (off 0.375 id)
$ every 8 (off 0.75 id)
$ every 16 (off 0.875 id)
$ "jazz:3"
d1 -- batterie chaloupee
$ every 4 (off 0.125 id)
$ every 4 (off 0.25 id)
$ euclid 3 8
$ s "dr"
# n 0
d2 -- contretemps tercets
$ s "~ dr:1(<1 <2 3> 3 1>,3)"
--
-- d3 $ s "bassWarsaw?*8" # note (scale "aeolian" (irand 2))
-- |- note 21
-- # gain 0.7
d1 $ s "[a*4 ~] a*8"
# note "-15 .. 15"
# s "armora"
d1 $ "jazz" # 3
-- TODO : 80s drum transition
once
-- $ rarely (superimpose (# n 4))
$ degrade
$ fast 2
$ n ("0 . 0 0 0 . 0 . 0 <0 ~> <0 ~> . 0 . 0 . <0 ~>" + "2 [2|3] 2 [2 3]")
# s "electro1" # gain 1.3
# room 0.2
-- Rythme de l'été
do
setcps (130/60/4)
d1
$ fast 2
$ fix (# "sn:1") ("sn")
$ fix (# "jazz") ("k")
-- $ "[k ~ <~!7 k> k] [<k!7 [~ k]> . k]"
$ "k ~ <~!3 sn> sn . k sn"
# gain 0.7
-- d2 $ "hh*8" # gain 0.6