racine_clave.tidal

-- Racine clave
-- TODO: Etoffer la clave, structures, masks, breaks, drop

do
setcps (110/60/4)
d1
  -- $ "k*2"
  $ superimpose (<| "~!15 <~!3 k>")
  $ ( -- Kick rhythm
    "k . k <k(0,4) [<~ k> <k ~>]>" -- RubADub
  |+| "k*[4 <8!3 16>]" -- Run
  -- |+ "~!15 k"
  )
  # "[cpu2,jazz]"
  # gain 0.6
  # lpf 4500
d2
  $ someCyclesBy "<f f f 0.5>" (fast 2)
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "h2ogmhh:3"
  # gain 0.57
  # pan 0.8
d3
  $ n ("~ <3!3 [~!6 4 3]>")
  # "h2ogmsn"
  # pan 0.8
  # gain 0.6
d4 $ "h2ogmhh:10(<1 3 [1 3] <5 [8 <[8|16] 5>]>>,8)"
  # cut 4
  # pan 0.35
  # gain 0.5
d5 -- Bass
  $ superimpose (
    whenmod 16 4 (stut 4 "<0.9!3 1.05>" "<e!4 e>")
  . (# lpf 4000)
  . (# cut 51)
  . (# legato 0.125)
  )
  $ note "[~!3 <~!3 c> . <a4 <bf4!3 df>>]"  -- Naive bassline
  # "bass1:3"
  # att 0
  # rel 2
  # crushbus 5 (slow 32 $ range 10 8.5 saw)
  # cut 5
  # lpf 5000
  # gain 0.6
  # room 0.2
  # sz 0.8
d6  -- Baseline saxes
  $ n ("<0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 1>")
  # "rootsSaxes"
  # cut 6
  # pan (slow 16 $ range 0.65 0.35 saw)
  # gain 0.45
d7  -- Baseline trumpets
  $ n ("<0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 1>")
  # "rootsTrump"
  # pan (slow 16 $ range 0.35 0.65 saw)
  # cut 7
  # gain 0.34