bdmania.tidal 606 Bytes
d1 $ sound "bd(<<0 1 5 7> 3>,8)"

d2
$ every 8 (off (1/8) (|+0))
$ every' 16 7 degrade
$ every 16 (# gain 0)
$ s "bd(5,8)"
# note "<50 <55 <60 65>>>"

d3
$ every' 16 12 (# gain 0)
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain saw)
$ sometimesBy 0.01 (# crush 4)
$ every 4 (rev)
$ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
  -- segment "<80 100 120 80>/16"
  segment 100
  $ range 1 3 saw
  )
# gain 0.5

d4
$ every' 4 3 (off 0.125 (|+ 0))
$ every 8 (# gain 0)
$ every' 8 7 (# gain 1.5)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 1.6