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
setcps 0.45
d1
$ s "j j? j ~ j ~ j ~"
# s "jazz"
# lpf (slow 100 $ range 50 1000 sine)
once $ s "jazz:3"
# gain 0.9
# cut 2
once $ s "jazz:5"
d2 -- snare rush
-- $ degradeBy "<0 [0 0.75 0.5 0.25]>"
$ every' 8 7 (superimpose (fast "16 32 16 8"))
$ s "jazz:2"
# gain 0.4
-- beat jazz
d3
$ fast "1 2 1 [1 2]"
$ s "d d d d*<1 2 1 4>"
# s "jazz:3"
# gain 0.7
d4
-- $ arp "speedupdown"
$ note (
scale "aeolian"
"c4'major" - ("0 0 2 2 0 0 0 0 0 0 2 4 0 0 0 0")
)
-- |- note 21 -- gamme
# s "supersaw"
# voice (slow 32 $ range 0.1 0.25 sine)
# gain 0.8
d6
$ superimpose (
swing 2 . arp "up|downup"
. (# sustain 0.5)
)
$ note (scale "aeolian" (slow 4 $ "c4'major'<c4 f4 b3 c4>'six")
) # s "superpiano"
# velocity 0.6
# sustain 1
# gain 0.7
d7 -- moineau roll!
$ fast "[<1 <2 [2 4]>> <1 1 1 [2 1]>]"
$ s "birds3*8"
# n "2|3"
# gain 1.2
# room 0.7
# size 0.5
d8 -- claps!
$ fast "<1 1 2 1 2 2 1 1 2 1 2 2 4 2 1 1>"
$ s "c"
# s "jazz:4"
d9 -- continuous laser
$ s "bd" >| speed (
segment 120 $
range (10 - sine * 5)
(fast "<1 2 4>" $ sine * 50)
saw
)
# gain 0.4