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
do
let bpm = 120
setcps (bpm/60/4)
d1 -- KICK
$ whenmod 16 14 (# silence)
$ slow "<1!8 2!8>"
$ s "k k k <k k*2>"
# s "popkick"
# lpf (slow 10 $ range 50 1500 sine)
# gain 0.85
d2 -- Drumroll
$ whenmod 64 48 (fast 2)
$ whenmod 64 32 degrade
$ whenmod 64 16 (fast 2)
$ whenmod 64 0 (slow 2)
$ fast "<<4!4 8!2 16!2> 8> <8 16>" $ s "dr"
# speed (slow 8 $ "<0.25 0.5 0.75>")
# pan "[0 1]*4"
# gain 0.7
d4 -- Piano/ TODO: synthe
$ whenmod 8 7 rev
$ off ("<1 2>"/24) id
$ note (scale "major"
"<0 1 2 3>(<4!3 8!3>,8)"
+ "c'maj")
# s "superpiano" # velocity 0.2
d8 -- Choeurs
$ note (scale "major"
"[<0 1 2 3>!3 <7 6 5 4>]"
+ "<0!4 [0, 12]!4>" - 12
)
# s "moogBass" # gain 0.8
--A
d5
$ whenmod 4 3 (fast 2)
$ s "~ ~ ~ clap:3"
# gain 0.7
d6
$ mask "t(<1!2 2!2 4!2>,4)"
$ jux rev
$ note ("0(<3!4 5!4>,8)" + (slow 4 $ "<0 2 5 7 12!4>")
-24)
# s "supersaw"
# voice 0.1
# gain 0.5
d1 $ fast (irand 16) $ s "dr"
-- Attente!
do
setcps (120/60/4)
d1 $ s "k ~ k <k!3 k*2>" # "jazz" # gain 0.6
d2 $ s "~ sn" # s "electro1" # gain 0.7
d3 $ fast (slow 16 "<4 8>") $ s "drum:8" # gain 0.8
d4
$ note (scale "major"
"[0, 5, 9]"
)
# s "bassWarsaw"
# gain 0.7