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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
setcps 0.3
d1
$ whenmod 16 12 (degradeBy "0 0.5 0.75 0")
$ n "0 . <~ [0 0?]> [0? 1]"
# s "kick:5"
# lpf 200
# gain 0.8
d2 -- Snares plus ou moins reguliers
$ fast 2
$ sometimes (hurry 2)
$ s "~ <~ s?> . s s?"
# "snare"
# n "[2|3] . <4 6>"
# gain (slow 32 $ range 0.5 0.9 cosine)
d3 -- roll
$ whenmod 16 8 (degrade . fast 2)
$ rarely (fast 2)
$ s "dr*8"
# s "drum:8"
# gain (slow 32 $ range 0.5 1 sine)
d4 $ n (stack [
"0(3,8,<0 4>)"
,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)"
])
# s "hh"
# gain 0.8
d5
$ every 2 (often (slow 2))
$ juxBy 0.2 (# crush 5)
$ arp (slow 4 $ "<pinkyup updown downup speedupdown speeddownup>")
$ whenmod 16 8 (someCyclesBy 0.75 rev)
$ note (scale "aeolian" (
"f4'maj d4'min d4'maj c4'maj" - 7
))
# s "supersaw" # voice 0.05
# gain 0.5
d5
$ superimpose (swing 2 . arp "downup") . (|+ note 7)
$ note (scale "aeolian"
"<d4'maj e4'maj f4'min <d f>4'maj>"
- 21)
# s "supersaw" # voice 0.05
# gain 0.5
d7
$ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5)))
$ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>")
# s "toys"
# begin 0.3 # end 0.5
# gain 0.6
-- Sandbox
d4 -- basse tension chelou
$ whenmod 32 18 (# gain 0.8)
$ whenmod 32 17 (# gain "0.8 0")
$ whenmod 32 16 (# gain 0)
$ note "0 . 0*<1 2 4 2> . 0*<1 1 4 1>"
# note (scale "aeolian" "0 .. 5" + "[0,7]" + (slow 4 $ "<-7 0>")
- 21)
# s "supersaw"
# voice 0.05
# gain 0.7
d8
$ s "s/4"
# note (scale "aeolian" (slow 4 $ "<-2 -5>"))
|- note 24
# s "supersiren"
# voice 0.1
# gain 0.8
d2
-- $ euclid "<7 3 4 7>" 8
$ n "0? <~ <0? 0>> 0? 0"
# s "sn:[2|8]"
# room 0.5 # dry 1.1 # size 0.5