setcps (100/60/4)
do
d1 -- Kick
$ whenmod 16 10 ( -- Pont
# silence)
$ every' 4 3 (fast 2)
$ "k . k ~ k?" # s "reverbkick"
# hpf 150
# gain 0.7
d2
$ whenmod 16 8 (slow 2)
$ whenmod 16 0 (slow 2)
$ s "~ s" # s "snare:10"
# gain (slow 64 $ range 0.5 0.6 cosine)
d3 -- Drumroll
$ whenmod 16 10 (ply "<2 4>")
$ fast "<8!3 <16 [16 8]>>" $ s "drum:8"
# gain (slow 64 $ range 0.5 0.9 sine)
d4
$ slow 2
$ slice 8 "<0 1 <2 4> <3 5>>*8"
$ s "bsguitar:4"
# cut 1 # gain 0.7
d5
$ often (superimpose (arpeggiate))
$ note ("<c5'maj c5'maj c5'min c5'maj>")
# s "superpiano" # velocity 0.6
d3
$ fast 2
$ fast 4 $ s "dr"