-- Responsabilité: Breakbeat pas prise de tête
-- Tags: Hip-Hop, breaks, bass, hypnotique, instrumental
-- Ready: 5/10 (Melody=, Variations=, Parts=)
resetCycles

-- region Responsabilite

do
  -- unsolo 4
  setcps 0.5
  d1
    $ whenmod 16 10 (# hpf 6000)
    $ loopAt 4
    $ slice 4 (
      whenmod 8 6 (|> "0")
      "[0 <1 0> <0 2> <3 0 0*2 3*2>]")
    $ "break" # gain 0.65
  d3
    $ rarely (jux rev)
    $ n ("0(<4!2 5!2 8 [8 16] 8 [16 8]>,8)")
    # note (scale "major" "0 0 -1 2")
    # "dr:13"
    # gain (slow 64 $ range 0.5 0.85 saw)
  d4
    -- $ mask "t(<1 2 3 4 1!4 4!4>,4)"
    $ slice 4 "<0 .. 3> <3 .. 0>"
    $ "bsbass:4"
    # cut 3
    # hpf (slow 4 $ range 50 500 sine) -- TODO superimpose?
    # gain (slow 16 $ range 0.4 0.6 perlin)
  d8 -- Falling coins
    $ someCycles (# speed 0.5)
    $ off (1/16) (|+ note (slow 4 "<[2|4] [0 -2]>"))
    $ s "coins(<3!3 <5 8>>,8)"
    # note (scale "aeolian" (irand 7))
    # gain (slow 80 $ range 0.4 0.7 (sine + perlin/8))
  d9 -- Orchestra hit
    $ degradeBy "<1!3 0.5>"
    $ "~ ~ brass:1 ~"
    # note ("<0!4 -4!2 2 4>")
    # release 0.85 # attack 5
    # lpf (slow 16 $ range 20000 2000 saw)
    # gain 0.65
    # room 0.8
    # size 0.8
    # dry 2

-- endregion

-- region IRRESPONSABLE

-- IrResponsabilité: Du Breakbeat à la break-tech
-- Tags: Tech-Hop, breaks, bass, hypnotique, instrumental
-- Ready: ?/10 (Melody=, Variations=, Parts=)
resetCycles

do
  setcps 0.5
  d1
    $ every' 4 3 (someCycles (# hpf 500))
    $ whenmod 32 16 (mask "<[f t?]!8 f!7 t>")
    $ superimpose (
      const -- Kick
        -- $ sometimesBy -- décalage
          -- "0 <0!3 0.5> 0 <0 1>" ("e" ~>)
      -- $ superimpose ((# "clubkick:5") . (# hpf 500))
      $ "k k k <k!3 <~ [~ k] k*2>>"
      # "kick:5"
      # gain 0.5
    )
    $ loopAt 4
    $ "break"
    # gain 0.5
  d3
    $ rarely (jux rev)
    $ n ("0(<4!2 5!2 8 [8 16] 8 [16 8]>,8)")
    # note (scale "major" "0 0 -1 2")
    # "dr:13"
    # gain (slow 64 $ range 0.5 0.85 saw)
  d4
    -- $ mask "t(<1 2 3 4 1!4 4!4>,4)"
    $ superimpose ( -- Attente
      fast 2 . (|* 0.75) . (# hpf 0)
      )
    $ slice 4 "<0 .. 3> <3 .. 0>"
    $ "bsbass:4"
    # cut 3
    # hpf (slow 4 $ range 1500 500 sine)
    # gain (slow 16 $ range 0.4 0.6 perlin)
  d8 -- Falling coins
    $ someCycles (# speed 0.5)
    $ off (1/16) (|+ note (slow 4 "<[2|4] [0 -2]>"))
    $ s "coins(<3!3 <5 8>>,8)"
    # note (scale "aeolian" (irand 7))
    # gain (slow 80 $ range 0.4 0.7 (sine + perlin/8
