-- 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