crapeau_hippo.tidal

do
setcps (90/60/4)
-- resetCycles
d1 -- base rythm
  $ mask "<f!4 t!12 f!2 t!6 t!4 f!3 t>"
  $ fix ((# "[reverbkick,kick:4]")
  . (|* gain 0.85)
  ) ("k")
  $ fix ((# "snare:20")
  . (|* gain (slow 4 $ range 0.75 0.9 (sine + perlin)))
  ) ("s")
  $ cat [
    "k s . ~ k s ~",
    "k s . ~ k s [k s]",
    "k s . ~ k ~ ~",
    "k s . <[s ~ k s*2] s(<5!3 8>,8,2)>"
  ]
  # gain (slow 16 $ range 0.7 0.9 cosine)
d3 -- Drumroll alternance marche-course
  $ (# pan (slow 4 $ range 0.45 0.65 sine))
  $ fast "<1!8 [<2!3 [4 2]>]!8 [8!3 <[8!3 16] <[16 8] 16>>]!16>"
  $ "drum" # hpf 200
  # gain 0.9
d4 -- Clav crapeau background
  $ juxBy 0.8 (("h" ~>) . (|* gain (slow 32 $ range 0.5 1 saw)))
  $ sometimesBy "<t!8 f!56>" (mask "<t f>")
  $ sometimesBy "<f!32 t!32>" (slice 8 "0 0 2 1*4")
  $ sometimesBy "<t!32 f!32>" (slice 8 $ run 4 + "<0!8 4!4 0!2 4!2>")
  $ "fclav:12"
  # room 0.1 # sz 0.8
  # legato 2
d5
  $ whenmod 32 8 (superimpose (
    every' 4 2 (degrade) .
    swing 4 .
    fast ("<1!4 2!4 1!8 2!24>") . (arp "<updown!3 up>")
    . (|+ octave 1)
    . (|+ pan 0.1)
    . (|* gain 0.9)
    ))
  $ note (cat [
    "b'maj", "b'min", "b'min'2", "b'maj",
    "b'maj", "b'min", "a'min'2", "b'maj'3",
    "b'min", "b6'min", "a6'min'2", "b6'maj",
    "b'maj", "b'min", "b'min'2", "b'maj'4"
    ])
  # "cheapPiano1"
  # octave 3
  # sustain 2
  # pan 0.35
  # room 0.2 # sz 0.8
  # gain 0.65
  -- # velocity 0.6