-- Couches de Funk
-- Tags: Techno, bass, epiano , hypnotic
-- Ready: 4/10 (Répetitif, à équilibrer, à espacer, vocals?)
resetCycles

do
  setcps 0.5
  solo 1 -- Techno kick
  unsolo 2 -- BreakBeat
  unsolo 3 -- Claps
  solo 4 -- Bassline!
  unsolo 6 -- Electromad piano
  d1 -- KICK
    $ fast "<4!16 1 2 4 8 4!2>"
    $ whenmod 16 15 (juxBy 0.9 rev)
    $ whenmod 64 32 (
      superimpose ((# "clubkick:7") . (# lpf 200))
      . (|* gain 0.9)
    )
    $ "[cpu2,jazz]"
    # lpf 5000
    # gain 1
  d2 -- Breakbeat
    $ whenmod 8 4 (juxBy 0.5 rev)
    $ whenmod 32 16 (
      # djf (slow 16 $ range
        (slow 32 "<0.4 0.1>")
        (slow 32 "<0.6 0.9>") sine)
    )
    $ slice 8 (stack [
      "0 . 0(<0!8 1!8 3!16>,8)",
      "1(<3!3 5>,8,<0!4 3!4>)",
      "~ 2(<<2 1> 4>,4,<0!4 2!4>)",
      ""]
    ) "break:8"
    # gain (
      1
      -- (slow 16 $ range 0.45 0.65 sine)
       -- - (slow 2 perlin * 0.2)
    )
  d3 -- Clap degressifs
    $ juxBy 0.5 (0.125 ~>)
    $ every' 8 7 (off "e" id) "~ cp"
    # djf (slow 8 $ range 0.5 0.2 isaw)
    # room 0.4 # sz 0.2 # dry 0.95
    # pan 0.3
    # gain 0.9
  d4 -- Bassline hypnotique
    -- $ slow 2 -- Cut sauf occasionnel par ralentissement
    -- $ whenmod 64 32 (degradeBy "0.8!16 0.5!16")
    $ slice 8 (
      -- run 8 -- Le classic
      fastcat [run "<2!3 4>", run "<4!3 2>"] -- Le loop-jump
      -- fastcat [run 4, run 4] -- Le loopy
      -- "<4!3 5>*16" -- GO ON
      -- "4*2 3 2*[1|2] 1? 7 6 5*<1 2 4 8> 0*<1 4 1 2>" -- reverse jumpy
      -- "4*8 . 0 [<5!4 7!4> 6 <7!4 5!4>]@3" -- glitch-funk
      -- every' 2 1 (iter "[1 4!2 1]") $ "0*8 1(2,3) 2 <3 5> 4*2" -- Attente vibrée
    )
    $ "fbass/2"
    -- # crush 3 -- ELECTRONIZE
    -- # n 23
    # n "<23!8 7!4>"
    # cut 3
    # gain 1
  d6 -- Electro-MAD piano
    $ whenmod 16 12 (
      off "q" ( stut 4 0.5 "e"
        . (|+ note "<12>") . (# sustain 0.7)
        . (# room 0)
    )
    )
    $ "fepiano/2"
    # n (slow 4 $ "<20!4 21!2 22!2>")
    -- # note (slow 2 "<-4 0>")
    # room 0.6 # sz 0.5
    # gain (slow 16 $ "<0.4 0.55 0.7 0.65>" * 0.85)
  d8 -- Guitare conclusive
    $ mask "t(<0!4 1!4 2!4 4!4>,4,<3!16 0!16>)" $ chop 8
    $ "fguitar/2" # n "<20!3 7>" # gain 0.7
    # cut 8

do
  d1 $ fast 4 $ s "jazz"
    # gain 0.7
    # lpf 200
  d2 $ slice 4 "2" $ "fepiano:2" # gain 0.5
  d3 $ s "hh(<3!3 5>,8)"
    # note "<0!3 -4>"
    # gain 0.9