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
do
let drumMachine name ps = stack
(map (\ x ->
(# s (name ++| (extractS "s" (x)))) $ x
) ps)
drumFrom name drum = s (name ++| drum)
drumM = drumMachine
drumF = drumFrom
d1 $ drumMachine "sergemodular" [
s "[~perc]*2" # note 7
,s "bd:4(3,8)"
,s "~[cp,sd]"
,s "hh*8"
]
once $ "dr"
do
let dm = "linn9000"
d1 $ drumFrom dm "bd*2"
d1 $ drumFrom "linn9000" "bd*2"
d1 $ drumMachine "<bossdr220 rolandtr808>" [
s "[~perc]*2" # note 7
,s "bd:4(3,8)"
,s "~[cp,sd]"
,s "hh*8"
]
-- EXPLORATION
once $ drumMachine ""