-- Interesting techno-barrel needs a lead
do
setcps (120/60/4)
-- resetCycles
let gF = (whenmod 64 32 (# djf (slow 48 $ 0.5 + sine)))
d1
  $ gF
  $ mask "<f!11 t!117>"
  $ "jazz*4" # gain 1
d2
  $ gF
  $ mask "<f!4 t!124>"
  $ "hh(<16 <16!8 <16 8>!16> 16 [16 <12 8 4>]>,16)"
  # gain (slow 8 $ range 0.6 0.9 cosine)
  # pan (slow 16 $ range 0.2 0.4 perlin)
  # cut 2
d3
  $ gF
  $ sometimesBy ("<1!8 0!120>") (
    (slow "<8!2 4!2 2 2 [2 1] 1>")
    . (ply 2)
    . (|* gain (slow 8 $ range 0.75 1 saw))
  )
  $ slice 4 (run 8)
  $ "bsbass"
  # lpf 2000
  # gain (slow 32 $ range 0.65 0.85 sine)
  # cut 1
  # pan 0.6
