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
setcps 0.25
d1 -- beat
$ whenmod 64 8 (# gain 0.8)
$ whenmod 64 0 (# gain 0)
$ s "drum:2"
d2
$ whenmod 16 10 (# gain 0)
$ whenmod 4 2 (# note 1)
$ s "dr:2(3,8)"
# gain 0.8
d3 $ s "dr*8"
d3
$ sometimesBy "<0.2 0.8 1>" (off (1/16) id)
$ fast 8
$ s "~ drum:2"
# gain 0.8
d2 $ s "hh"
d5
$ degradeBy "0 <0 0.2 0.8 1>"
$ superimpose (|+ note 12)
$ note (scale "major" "0 7")
# s "superpiano"
|- note 32
# velocity 0.4
d4 -- bass
$ degradeBy (slow 8 $ "<0 [0.2 0.8]>")
$ chop (slow 8 $ "<1 16>")
$ s "bassWarsaw"
|- note 32
# gain 0.8