36 lines
1.1 KiB
Plaintext
36 lines
1.1 KiB
Plaintext
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
|