setcps 0.5

d1
$ every 16 (0.25 ~>)
$ every 8 (0.125 ~>)
-- $ fast 4 -- faster!
$ fast 2 -- fast!
-- $ euclid "<1 1 1 1 2 2 2 2>" 2
$ s "jazz:0"

d2 -- drums, someroll
$ whenmod 16 8 (# gain 1)
$ whenmod 16 4 (# gain 0.8)
$ whenmod 16 0 (# gain 0.6)
-- $ fast 2
$ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]"

d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
# s "bass3"
# gain 0.8

d3 -- pont 80 drums
$ fast 2
$ someCycles ((off 0.625 id) . (# n "3"))
$ off 0.125 id
$ s "e"
# s "electro1"
# n "2"

d4 -- TODO: gets annoying, do something
$ (chop 4) . (# cut 1) -- chopped echo
$ off 0.25 ((|+ note 7) . (# cut 1))
$ off 0.125 (|+ note 3)
$ "moogBass"
# note "<0 0 0 0 3 3 3>"
# gain 0.7
-- # cut 1

d6 $ s "cp/4"