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
setcps 0.5
d1
$ euclid ("<4 2 4 2 5 6 5 6 8 8 5 6 8 6 8 8 4 8 16 12 8 16 16 12 8 4>") 8 $ s "k"
-- $ s
-- "k <~ k?> ~ <~ k>"
-- "k <k k*2 k k> <k k*2> <k [k k?]>"
# s "bskick"
d2
$ sometimes (0.125 ~>)
$ sometimesBy (slow 16 $ "<0 0.25 0.5 0.75 1>") (off (1/16) id)
$ sometimesBy (slow 2 $ "<0 0.25 0.5 0.75 1>") (off (1/8) id)
$ s "~ snare:4"
# gain 0.85
# room 0.3
# size 0.2
# dry 1
d3
$ whenmod 64 32 (# gain (slow 32 $ saw * 0.4 + 0.6))
$ whenmod 64 24 (# gain 0.6)
$ whenmod 64 16 (# gain 0.5)
$ whenmod 64 0 (# gain 0)
$ degradeBy "<0 0.2> 0.1 0.8 <0 0.1>" $ fast 2
$ s "dr*8"
d4
$ someCyclesBy 0.1 (# n 1)
$ whenmod 16 12 (fast 2)
$ every 4 (off 0.125 id)
$ s "~ ~ clap:3 ~"
d5
$ swing 2
$ note (scale "major" (
whenmod 32 16 (3 -)
"0 . <~ 3? 3> 3 . ~ <1 0 1 0> . <0 1 1 0> ~"
-- + (slow 16 $ "<0 4>")
+ (slow 16 $ "<0 0 4 4> . <0 4 0 4>")
))
# s "bassWarsaw"
# legato 2
# gain 0.75
|- note 24
d9
$ s "tink(<3 3 3 3 5 5 3 3 5 5 5 1 1 3 1 3>,8)"
# note (scale "major"
"[0?,2?,4?,7,9?,<~ 11?>]"
+ ("<2 4 2 2 1 2 2 4 2 2 4 2 2 4 2 4 4 2 2 1 2>")
)
|- note 48
d11 -- cymbale
$ every 4 (almostNever ( -- rare prolonge reprise
superimpose (const $ s "~ ~ 808cy:1 ~"))
)
$ whenmod 64 32 (always (# n 3)) -- prolonge
$ whenmod 16 8 (# note 0)
$ whenmod 16 0 (# note 7)
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ sometimes (|- gain 0.1)
$ euclid 5 4
$ s "~ cy"
# s "808cy"
# gain 0.65