-- Hip-Hop energetic instrumental
setcps 0.42

d8 $ -- silence -- metronome
s "<birds:0 birds3:2 birds3:2 birds3:2>"
# gain "<0.2 0.3 0.3 0.3>"

do
  let gKick = 2
  let gSnares = 1
  let gDrums = gSnares
  d1 -- 4: KICK Chaloupe
    $ whenmod 16 11 (# gain ("<0!3 1!3>" * gKick))
    $ whenmod 16 7 (# gain gKick)
    $ whenmod 16 6 (# gain 0)
    $ s "k <~!7 k> <~ k?> k ~ <~ k> k <~!3 k>"
    # s "jazz"
    # pan 0.4
    # lpf (slow 8 $ "<500 <200 [200 500]>>")
    # gain gKick
  d2 -- 3: Snares + bulles
    $ degradeBy "0.75 0 0.75 0.1"
    $ whenmod 64 48 (sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit!
      (# s "supersnare").  (# n (-12))
      . (# accelerate 8) . (# sustain 1)
      . (|- gain 1)
      )))
    $ sometimesBy "0!3 0.1" (off ("[1|3]/16") id)
    $ every' 4 3 ((1/16) ~>) -- decale sur 8
    $ juxBy 0.2 rev
    $ euclid "<1 3 5 3>" 8
    $ s "sn:8"
    # pan (slow 16 $ range 0.25 1 saw) -- Chasing drums
    # gain gSnares
  d3 -- 2: Drumroll!
    $ whenmod 32 28 (  -- hihatification
      degradeBy "0.75 0.25" .
      (# dry (slow "<16 8 4>" $ range 0.1 4 saw))
      )
    $ whenmod 32 4 (fast "8 . 16 <16 [8 [8|16]]>")
    $ every' 32 1 (fast 4)
    $ every 32    (fast 8)
    $ s "drum:8"
    # pan (slow 16 $ range 1 0.25 saw) -- Chasing snares
    # room 0.8
    # dry 1
    # gain gDrums
  d4 -- 1: Scratched birds!
    $ ((1/16) ~>)
    $ degradeBy "0 0.7 0.1" $ s "b*16"
    -- $ rarely (off (1/16) id) $ s "b(8,8)"
    -- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)"
    # s "birds3" # n (irand 3)
    # gain (slow 32 $ sine / 4 + 1.5)
    # pan 0.6
  d5 -- 4: Lead saw
    -- $ often (chop 4)
    $ whenmod 16 14 (stut 4 0.9 (1/16))
    $ whenmod 16 12 (|+ note 12)
    $ whenmod 16 8 (|+ note 12)
    $ degradeBy (slowcat [
      "0", "0", "0", "0 1 . ~ . 1 1 . <0 1>",
      "0", "0", "0", "1 0 . ~ . 1 1 . <0 1>",
      "0 . 1", "0 . 1", "0 . 1", "0 . 1",
      "0 . 1", "0 . 1", "0 . 1", "0 . 1"
    ])
    $ note (
      "0 5 . ~ . 12 13 . <12 15>"
    )
    # s "supersaw"
    # gain 0.8
  d6 -- 4: Basses accompagnement
    $ whenmod 32 24 (# silence)
    $ every' 32 0 (degradeBy "0 1!7")
    $ jux id
    $ n "0 <1 [1 . ~ 1] [5 5 ~ 5] [5 . ~ 5]>"
    -- $ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>"
    # s "bassWarsaw"
    |- 24
    # pan 0.2
  d10 -- 5: Toy Classical music
    $ s "~ ~ t/2 ~"
    # s "toys:2"
    # end "<0.46 1>" # release 1.7
    # lpf 500
    # crush 7
    # gain 1.2