pure.tidal

resetCycles

do
  let fxSlowDegrade = (# waveloss 10)
  let fxPontHPF = (whenmod 64 48 (# djf (slow 16 $ range 0.2 0.8 cosine)))
  let dGlob = (fxPontHPF . fxSlowDegrade)
  -- let dGlob = (# djf 0.4)
  let dGlob = (id)
  let mMin = "<c'min!3 <f'min d'min>>"
  let mMajSm = "<c'min'4 c'min'2 c'maj'4 c'maj'2>"
  let mMajMd = "<c'min'3 f'min'3 c'maj'3 c'maj'3>"
  let mMajLg = "<c'min'8 c'min'7 c'maj'8 c'maj'6>"
  let melMin = [mMin, mMin, mMin, mMin]
  let melMed = [mMajSm, mMajSm, mMajMd, mMajSm]
  let melMaj = [mMajMd, mMajSm, mMajLg, mMajMd]
  let melEnd = [mMajLg, mMajLg, mMajLg, mMajLg]
  let melody = note (cat (melMin ++ melMed ++ melMaj ++ melEnd))
  let bCharge = "<2!3 3>(3,8)" -- Charge !
  let bAttente = "<0!4 1!4 2!4 3!4>"  -- Attente
  let bFull = "0 1 2 3" -- Fulltime
  let bEnd = "0 1 0 <3 0>" -- End of file
  let b1 = [bFull,bFull,bFull,bFull,bAttente,bAttente,bAttente,bAttente]
  let b2 = [bAttente,bFull,bAttente,bFull,bAttente,bFull,bFull,bFull]
  let b3 = [bCharge,bCharge,bCharge,bCharge,bFull,bEnd, bEnd, bEnd]
  let bLine = b1 ++ b2 ++ b3
  setcps 0.5
  solo 1 -- KICK 4
  solo 2 -- Claps
  unsolo 3 -- Hypno-Hats
  solo 4 -- LEAD BASSLINE
  unsolo 6 -- Riffs
  solo 9 -- Background hoover FIXME
  solo 10 -- Noise
  d1
    -- $ mask "<f!8 t!20>"
    $ whenmod 8 6 (# lpf "<2000 500>")
    $ dGlob
    $ superimpose (# "jazz:0")
    $ "k k k <k!3 [<k? ~> k]>"
    # "808bd"
    # n "[1,3]" # legato 0.8
    # gain 0.75
  d2
    -- $ mask "<f!4 t!26 f t>"
    -- $ dGlob
    $ fast 2
    $ "~ <c!3 c*2>"
    # note (slow 4 $ "<-5 -7>")
    # djf 0.8
    # legato "<0.4!3 0.8>"
    # "cp"
    # pan 0.3
    # gain 0.8
  d3
    $ degradeBy "<0.9 [0 0.75!3]!3 0!20 [0 0.5!2 0]!8>"
    $ whenmod 16 8 (juxBy 0.75 (degradeBy 0.25 . rev))
    $ often (off "e" id)
    $ dGlob
    $ s "hh*4"
    # room "<0.2!4 0.4!2 0.6 0.8>" # sz 0.5
    # dry (range 0.2 4 perlin)
    # pan (slow 8 $ sine)
    # legato "<[q|e|s]!3 [h|q|e]>"
    # cut 3
    # gain (slow 2 $ range 0.65 0.8 perlin)
  d4
    $ whenmod 32 28 (fast 2) -- VIBRE
    $ whenmod 32 24 (fast "2 4") -- reviens
    $ whenmod 32 16 (slow 2) -- éclairci
    $ dGlob
    $ slice 4 (cat bLine)
    $ "fbass:23"
    # cut 4
    # gain 0.9
  d6
    $ whenmod 8 6 ((# crush "<3 2.5>") . (|* gain 0.8))
    $ bite 4 ("0*<2!2 <0 [0|0|2]> 1>")
    $ "fguitar:23"
    # cut 6
    # gain (slow 4 $ range 0.8 1 tri)
  d9
    $ superimpose (
      ply "<2!4 [2|4]!2 4!2>"
      . arp "down <down up>"
      )
    $ melody
    # octave 4
    # slide ("<1!3 -1>")
    # s "superhoover"
    -- # decay ("<0!8 0.25!4 0.5!4 0.6 0.8 0.95 0.99>")
    # gain 0.25
  d10
    $ superimpose (
      const $ (1 ~>) $ note (slow 4 $ mMin) # "supersiren"
      # octave 2
      # sustain 4
      # gain 0.45
    )
    $ "glitch(<4!3 5>,8,<0!8 4!8>)"
    # n "2 <[2,3] 5>"
    # gain 0.4
    # pan "0.4 0.6"


d5 $ degradeBy "0 0.5 0.25 0"
  $ fast "12" $ s "cpu:1" # gain (range 0.7 0.9 saw)

once $ s "fguitar:23" # cut 21