resetCycles

import Sound.Tidal.ParVagues.Control
setcps (159/60/4)

-- Perce-neige Printanier
-- .....  0 Intro  -> 8 Drop DNB -> 16 Var1  -- 32 Montee - 40 Drop2
-- Kick   . . . ......  . . . . . . . . . . . . . . . ..... . . . .
-- S                --  HELLO SNARE -- SNARE2
-- Drumroll                          Lent - - -
-- C
do
  let g = id
  let mel = "c"
  let prog = ("<cs5!4 a4 a4 b4 gs4>")
  let chorus = pF "chorus"
  let mix = pF "mix"
  let modIndex = pF "modIndex" -- 0.2
  d1 $ g
    $ someCyclesBy "<1!8 0!24>" (<| "k*<1 1 2 2 4 4 8 16>")
    $ someCyclesBy "<0!8 1!24>" (<| "k . ~ k ~ ~")
    $ "reverbkick" # sus "0.25"
    # gain 0.85
  d2
    $ mask "<f!8 t!24>"
    $ "~ s ~ s*<1 2 1 1>"
    # "[snare:21,snare:22,snare:3]"
    # note "<0!16 -4!16>"
  d3 -- Drumroll
    $ mask "<f!16 t!16>"
    $ mask "<t(4,8)!8 t!8>"
    $ "drum:2*[8 <8 16 32> 8 16]"
    # pan 0.75
    # room 0.4
    # gain "<0.75 0.8!15>" * 1.4
  d4 -- Bassline pompée
    $ mask "<t!8 f!4 t t f f f!4 t t f f t!3 f t t f [t f] t!8>"
    $ note ((
      "<0 ~> 0*<1 2 4 2>"
      + prog
      + "0 7"
      - "24" -- Octave
    ))
    # "bassWarsaw"
    # gain 0.87
    # room 0.4
    # pan 0.2
  d5 -- Rhodes base + chords
    $ mask "<f!3 [f t] f!3 t t!24 t!32>"
    $ someCyclesBy "<0!16 1!16>" ( -- ARPS <3
      (|+ note 12)
      . sometimesBy "0 0.5!7" rev
      . fast "1 2"
      . arp "pinkyup"
      . (|+ pan 0.1)
      . (|* gain 1.2)
    )
    $ note ((
      "<0 ~> 0"
      + prog
      + "0 -12"
      - "12" -- Octave
    ))
    # "FMRhodes1"
    # modIndex "[0,5,10]"
    # pan 0.6
    # crush "<16!40 [<4 4 5 6>]!24>"
    -- # gain 0.95
  d6 -- Bonus bouton nassim deuxième drop
    $ mask "<f!32 f!8 t!24>"
    $ slice 8 (run "<8!4 4!4>")
    $ (loopAt 1)
    $ "breaks165"
    # gain 0.95


once
  $ "methbass"
  # speed 0.20
  # gain 0.65
  # cut 21


once $ "macron:10" # gain 1.5

d9
  $ struct "t . ~ t ~ ~"
  $ "wind"
  # speed 0.1
  # cut 1 # gain 1

-- # gM' 0 1 "^80"