setcps 0.5

d1
$ degrade
$ whenmod 16 14 (# silence)
$ euclid 6 8
$ s "kick:7"
# gain 0.6

d3
$ someCyclesBy 0.1 (# s "snare:7") -- tok
$ someCyclesBy 0.1 (# s "snare:6") -- frappe
$ someCyclesBy 0.3 (# s "snare:5") -- etouffe
$ whenmod 16 10 (# s "sn:1")
$ someCycles (off 0.125 id)
$ s "~ snare"
# gain 0.6

d4
$ whenmod 32 0 ( -- variation
  someCycles (off 0.25 (|- 7) . rev . degrade)
  )
-- $ whenmod 8 4 (|- n 3) -- tierce
$ off 0.25 (|+ 5)
$ n (scale "ma" "<[0,3,7] [0,3,5] [0,3,4] [0,3,2] [0,3]>")
# s "defaultB"
# gain 0.7
# room 0.2
# size 0.2

d5
$ slow 2
$ whenmod 16 8 (degrade)
$ sometimes (off 0.125 id)
$ sometimes (off 0.25 (|+ note 3))
$ sometimes (|+ note 2)
$ note "<0 0*2 0?*4> <3?*4 3*2 3>"
# s "bass3"
# gain 0.7
# room 0.9
# size 0.7
# release (0.4 + rand / 2)