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
setcps 0.5
d1
$ whenmod 32 28 (# silence)
$ whenmod 16 8 (# gain (0.35 + sine))
$ s "dr dr? <dr*2 dr>? dr dr dr? dr*2 dr"
d3
$ whenmod 128 80 (degrade)
$ whenmod 128 64 (# speed 0.5)
$ whenmod 32 30 (degradeBy 0.8)
$ whenmod 32 28 (# note 12)
$ whenmod 32 24 (# note 19)
$ almostNever (off (4/8) (+ 7))
$ sometimes (off (1/16) (|+ 12))
$ sometimes (off (0) (|- 12))
$ chunk 2 (0.125 ~>)
$ s "[[hh?,hh] hh?]*8"
# s "superpiano"
# pan (0.2 + rand / 2)
# sustain (0.5 + rand / 2)
# velocity cosine
# note (wchoose [
-- do re mi fa sol la si
(12, 1), (14, 1), (19, 1),
(0, 2), (2, 2), (7, 2),
(-12, 4), (-10, 2), (-7, 1), (-5, 3)
])
d3 $ s "superpiano*8"
# note (scale "aeolian" "0 2 <4 7>")
d1
$ s "nass:0" # cut 1
d4
$ whenmod 32 28 (# gain cosine)
$ degradeBy 0.3
$ off (1/16) (|+ 2)
$ off (1/8) id
$ s "bass3*4"
# note "<[0 5 0 0] [5 5 0 0] [7 5 0 7] [0 5 0 7]>"
d5
$ sometimes (# s "hh,cp")
$ s "cp*<2 <2 <2 4>>>"