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
once $ s "bd" # speed 3
d1 -- kick
-- $ euclid "<4 6>" 4
$ euclid "<<0 1 5 7> 3>" 8
$ sound "bd"
d2 -- tic toc
$ someCycles (degrade . fast 2)
$ every 8 (off (1/8) id)
$ every' 16 7 degrade
$ every 16 (# gain 0)
$ s "bd(5,8)"
# note "<50 <55 <60 65>>>"
d3 -- vibration montante!
$ sometimesBy 0.01 (# crush 4)
$ every 4 (rev)
$ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
segment 100
$ range 1 3 cosine
)
# gain 0.65
d8 -- helico
$ every' 4 3 (off 0.125 id)
$ every 8 (# gain 0)
$ every' 8 7 (# gain 1.2)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 2.5
d5 -- cordes guitare pincée
$ someCycles (fast 2 . degrade)
$ someCycles (slow 2 . off 0.125 (|- up 12))
$ off 0.125 (|+ up 12)
$ off 0.125 (|+ up 12)
$ off 0.25 (|- up 12)
$ up "40 47"
# s "bd"
d6 -- clap!
$ stut 2 1.05 0.05
$ s "~ ~ bd ~"
# hpf 400
# lpf 1000