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
setcps 0.5
d1
$ whenmod 16 10 (# gain 0)
$ every 4 (sometimes (off 0.125 (# gain "1 0")))
$ every 4 (sometimes (off 0.125 (# gain "0 1")))
$ s "d d"
# s "clubkick:7"
# gain 0.9
d2
$ whenmod 16 15 (# gain 1)
$ whenmod 16 12 (# gain 0)
$ sometimesBy "0.1 0.9" (off ("[1/8 1/16]") id)
$ s "~ sn:2"
# gain 0.9
d3
$ whenmod 16 4 (# gain 1)
$ whenmod 16 3 (# gain tri)
$ whenmod 16 0 (# gain 0)
$ whenmod 8 6 (sometimes (|- gain 0.2))
$ whenmod 8 4 (sometimes (fast 2))
$ whenmod 16 8 (off (1/16) id)
$ sometimes (# s "drum:20")
$ sometimes (# s "drum:8")
$ s "dr*8"
-- drum:8
-- drum:20
-- drum:9 maracas
d4 -- basse
$ s "b(<7 7 7 8>,8,<1 2>)"
# s "bassWarsaw"
# note (scale "major" (
every 8 rev $
whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement
"0 2 2 4 0"
))
# gain (slow 16 $ sine * 0.4 + 0.6)
|- note 24
d5 -- noise guitar
$ whenmod 64 48 (swing "2 1")
$ whenmod 8 6 (swing "1 2")
$ sometimesBy "<0 0 0 [0 1]>" ((0/16) ~>)
$ whenmod 8 4 (# lpf 3000)
$ s "b(<7 7 7 8>,8,<1 2>)"
# crush 4
# s "bassWarsaw"
# note ( scale "major" (
every 8 rev $
whenmod 8 6 ((7 -) . (|> "0 2 2 4 <7 1>")) -- renversement
"0 2 2 4 0"
))
# gain 0.9
# release 0.9
d9
$ euclid (slow 16 $ "<1 3 5>") 8
$ s "superfork"
# note "<0 <0 <0 1>> 0 <0 1>>"
|- note "[<0 0 0? 0>,<12 12?>]"
# room 0.9
-- # gain (slow 32 $ sine * 0.4 + 0.5)