Added basic drum loops
This commit is contained in:
@@ -0,0 +1,35 @@
|
|||||||
|
let drums =
|
||||||
|
[
|
||||||
|
("a", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd sd bd sd" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("b", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd bd sd ~" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("c", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd ~ sd bd bd ~ sd bd" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("d", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd bd sd bd bd ~ sd ~" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("e", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd ~ sd ~ bd bd sd bd" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("f", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "~ bd sd bd ~ bd sd bd" # amp 0.1
|
||||||
|
]
|
||||||
|
),
|
||||||
|
("g", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
|
||||||
|
sound "bd ~ sd bd ~ bd sd ~" # amp 0.1
|
||||||
|
]
|
||||||
|
)
|
||||||
|
]
|
||||||
|
in
|
||||||
|
d2 $ ur 28 "a a b b c c d d e e f f g g" drums []
|
||||||
|
|
||||||
|
hush
|
||||||
Reference in New Issue
Block a user