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
setcps 0.45
d1 -- regular beat
$ whenmod 16 8 (fast 2)
$ euclid "<1 2>" 8
$ s "808bd:2"
d2 -- cymbale legere reguliere
$ someCyclesBy 1 (# n "0 5")
$ swing 3
$ euclid "<4 <3 4>>" 8
$ s "hh"
# gain 0.8
d3 -- cymbale occasionnelle
$ sometimesBy 0.8 (# silence)
$ sometimesBy 1 (# n 7) -- plus d'echo
$ sometimesBy 0.1 (# n 0) -- plus pleine
$ euclid "<1 3>" 8
$ s "808cy"
# n 5
# release 0.5
d4 -- drumroll
$ whenmod 32 16 (# gain 0.6)
$ whenmod 32 16 (# gain 0.7)
$ whenmod 32 8 (# gain 0.8)
$ someCycles ((fast 2) . (# room 0.8) . (# size 0.1))
$ someCyclesBy 0.1 (# silence)
$ s "hh:5 dr*4 dr*2 dr"
# gain 0.7
d5 -- drums sautillants
$ someCycles ((# n 4) . (# gain 0.8)) -- tambour armee
-- $ sometimes (# n 0)
$ sometimesBy 0.8 (off 0.25 id)
$ sometimes (off 0.125 id)
$ s "~ 808sd:2"
d6 -- bass
$ whenmod 32 16 (rev)
$ whenmod 16 15 (# gain 0.5)
$ whenmod 16 12 (# silence)
$ whenmod 16 10 (# release 0.1)
$ whenmod 16 2 (# gain 0.8)
$ whenmod 16 1 (# gain 0.7)
$ whenmod 16 0 (# gain 0.6)
-- [b ] [b b]
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# s "bass3:5"
# note "0 5 [[8 5] [8 <12 5>]] 0 "
d7
$ sometimes (degrade)
$ off 0.125 (|+ 7)
$ off 0.25 (|+ 3)
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# sustain 0.1
# gain 0.4
# sustain 0.2
# s "superpiano"
# note "0 5 [[8 5] [8 <12 5>]] 0 "
d7 -- 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.6