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
setcps (-1)
setcps (0.5)
d1
$ fast 2
$ whenmod 64 32 (# silence)
$ whenmod 32 16 (rev)
$ chop "<1 2> <4 4 1 1>"
$ s "cs80leadMH*2"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>")
# room 0.3
# dry 2
# gain 0.9
d2
$ whenmod 64 48 (# silence)
-- $ fast 2
$ every 4 (off 0.75 id)
$ off 0.5 id
$ s "reverbkick(<2 4 4 4 3 4>,4)"
# gain 0.7
d3
$ whenmod 64 48 (# gain 0)
-- $ whenmod 64 8 (# gain 1)
$ fast 2
$ every 2 (off 0.25 id)
$ s "~ cp"
# s "realclaps"
# pan 0.4
d4 -- drumrolls
$ someCyclesBy 0.2 (slow 2)
$ s "[dr*4 <dr*4 [dr*4 ~]>]"
# pan 0.2
d6
$ swing 3
$ whenmod 31 24 (|+ note 0)
$ whenmod 31 16 (|- note 7)
$ whenmod 31 8 (|+ note 0)
$ whenmod 31 0 (|+ note 7)
$ someCyclesBy 0.2 (off (1/16) id)
$ someCycles (off (1/8) (|- 7))
$ superimpose ((|- note 21) . (# gain 0.7))
$ note (
-- 3 * (-7) +
(scale "major" "[0, 3, 5]") +
"<0 5 7 12>"
)
# s "cheapPiano1"
# gain 0.8
d5
$ whenmod 16 14 (# velocity 0.5)
$ whenmod 16 10 (stut 8 0.5 0.1)
-- $ whenmod 16 8 (off 0.25 ((|+ note 7) . rev))
$ whenmod 16 0 (off 0.125 ((|+ note 7)))
$ someCyclesBy 0.2 (# release 0.2)
-- $ off 0.125 ((# s "superpiano") . (|- note 7))
$ s "superpiano"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7)
# pan 0.8
# velocity 0.8