soleil_pourpre.tidal

do
  resetCycles
  setcps (160/4/60)
  d1
    $ mask "<f!8 t!120>"
    $ mask "<t!16 f!16>"
    $ "k . ~ k ~ <~!3 k>"
    # "[jazz,kick:9]"
    # release 0.25
    # gain 1.2
  d2
    $ mask "<f!4 [t f]!4 t!8 f!16>"
    $ every' 8 7 ((# note ("<-2>")))
    $ "s(2,8,2)" # "snare"
    # gain "<0.8 0.9 1 1.1 1.3!124>"
  d3
    $ mask "<f!16 t!12 f!4>"
    $ mask "<t!6 f!2>"
      $ superimpose (const  -- Hats
      $ degradeBy "0 0.2!6 0.1"
      $ (# gain (slow 20 $ range 0.55 1.1 (sine + perlin / 8)))
      $ (# note (slow 4 $ "<0 -2>" + "0 2"))
      $ fast "<16!3 <4 [16 8]>>"
      $ "hh"
    )
    $ mask "<f!32 t!96>"
    $ fast "<4!3 [8 <4 16>]>" $ "drum:8"
    # gain "<0.8!5 0.9 1 1.1>"
  d4
    $ superimpose (
      (someCyclesBy "<1 [0.75 0.5]>" $ superimpose (swing 4 . arp "up"))
       . (|- note 24))
    $ note "<c'min'4!3 f'min'4>"
    # "bassWarsaw"
    # gain (slow 40 $ range 0.65 0.85 (sine + perlin/2))
  d5
    $ mask "<f!64 t!64>"
    $ whenmod 32 24 (<| "c*<2!3 4!4> c*2 ~ c ~ c*<2!4 4!4> c*4 ~")
    $ "c*<1!7 2> c*<0!4 1!28> ~ c*<0!4 1!4 2!8> ~ c c ~"
    # "supervibe"
    # note "<c'min'4!3 f'min'4>"
    # octave 4
    # detune (slow 8 $ range "<0!8 24!8>" "<24!8 0!8>" saw)
    # legato 4
    # gain 0.8