playing with tidal + tidal-midi + volca beats

volcaBe.tidal

cps 0.3

let ll t = (t <~)
let stcp = (|+| stt "[0.65 0.65 0.65 0.5]/4") . (|+| std "[0.1 0.1 0.666 0.1 0.1]/5")

b1 $ density 1.25 $ stack[
  drum "bd(4,16)"
  ,
  every 3 (|+| dhg "0.1") $ stack[
  drum "[ch ! ! !] ! ! !"
  ,
  drum "[~ ~ ~ oh] [~ oh ~ ~] [~ ~ oh ~] [~ ~ ~ ~]"
  ]
  |+| dch "0.2"
  |+| lch "0.666"
  |+| doh "0.2"
  |+| dhg (scale 0.15 0.1666 $ sine1)
  ,
  drum "[~ ~ ~ ~] [ag ag ag ag] [~ ~ ~ ag] [ag ~ ~ ~]"
  |+| sag (scale 0.75 0.9 $ density 5 $ iter 5 $ rand) --"0.9 0.7 0.8 0.666 0.75")
  ,
  slowcat[
  drum "[~ ~ ~ ~] [lt ht ~ ~] [~ ht ~ ht] [~ lt ~ ~]"
  ,
  drum "[lt ~ ht ~] [lt ht ~ ~] [~ ht ~ ht] [~ lt ~ ~]"
  ]
  |+| dt (scale 0.75 0.9 $ density 5 $ iter 5 $ rand) --"0.9 0.7 0.8 0.666 0.75")
  ,
  drum "[cl? cl cl cl] [cl cl cl cl?] [cl cl cl? cl] [cl cl? cl cl]"
  |+| scl (scale 0.02 0.03 $ density 3 $ iter 16 $ rand) --"0.9 0.7 0.8 0.666 0.75")
  |+| lcl (scale 0.05 0.666 $ sine1)
  ,
  drum "~ cp(1,7) ~ [cp(1,7)]*2"
  |+| scp (scale 0.6 0.65 $ sine1)
  ]
|+| stt (scale 0.009 0.01 $ density 3 $ rand)
|+| std "[1.0 0.5]/2"