-- Courant alternatif: drum-instrumental-hop
-- [Released](https://soundcloud.com/parvagues/courant-alternatif)
resetCycles

do
  setcps (90/60/4)
  d1
    $ whenmod 8 7 (# silence) -- mini-Break
    $ degradeBy "0 <0!8 0.5!4 0.75!4 0.875!3 0>"
    $ "k k*<1 2 1 4> <k <~ [~ k]>> k*2"
    # "jazz"
    # gain 0.85
    # lpf 3000
  d2
    -- $ every' 4 3 (# n "0")
    -- $ whenmod 32 16 (# lpf (slow 16 $ range 200 20000 saw))
    $ slow "<2!6 4 8>" $ slice 8 (cat [
        "1*16"
      ])
    $ loopAt 2
    $ "fbonus:3" # cut 1
    # gain 0.9
    # pan "0.45 0.55"
  d3
    $ whenmod 8 7 (degradeBy "1 0") -- mini-Break
    $ whenmod 8 6 (jux (# room "<0.05 0.1>"))
    $ fast "<4 [8 4] 8 <4 [8 4]>>"
    $ "drum:8" # gain 0.75
    -- # room (slow 8 $ "<0!3 0.3>") # sz 0.9
  d4 -- Hand-Sewn hats
    $ whenmod 8 7 (# silence)
    $ whenmod 32 28 (degradeBy "<0 0.25 0.5!2> <0.5>!3")
    $ whenmod 32 16 (
      # lpf (slow 16 $ range 2000 10000 saw)
    )
    $ sew (iter 4 "<t!4 f!4>(<3 5 7 12>,16)")
      ("ho*16" # note (scale "major" "<1!8 -1 -2!6 -1>"))
      "hc*[<8!3 16> <16!3 8>]"
      # gain 0.45 # pan (slow 16 $ range 0.2 0.8 sine)
      # cut 4
  d5 -- LEAD Downclav!
    $ whenmod 64 56 (# n 4)
    $ whenmod 64 48 (# n 2)
    $ whenmod 32 30 (# hpf 5000)
    $ whenmod 32 24 (# squiz "<2!4 4 6 8 16>")
    $ whenmod 32 12 (# gain 0.85)
    $ whenmod 16 12 (mask "t(<1 2 4 16>,32)" . discretise 32)
    $ loopAt 2 $ s "fclav:3"
    # pan 0.35
    # cut 5
    # gain 0
  d6 -- Laggy gratte
    $ mask "<f!16 t!16>"
    $ loopAt 4 $ "fguitar"
    # n "<17!6 18!2>"
    # gain (slow 128 $ range 0.45 0.65 sine)
    # cut 6

-- region SANDBOX

    do
      setcps (90/60/4)
      d1
        $ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw))
        $ "k . k(<3 5 3 1>,8)" # "reverbkick"
        # gain 0.5
      d2
        $ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>"
        $ n ("~ . 1 2(<1!3 3>,8)")
        # "gretsch"
        # gain 0.75


  d7 -- Gongs balancés
    $ often (juxBy 0.5 (fast "<1 2>" . rev))
    $ whenmod 128 64 (# gain (slow 64 $ range 0.65 0.45 isaw))
    $ swing 4
    $ note (arp "up" $ "<c4'maj'6!2 c4'maj7'6 c4'maj9'6>")
    # "supergong"
    # gain 0.65

  once $ s "fguitar:17" # gain 0.65 # cut 21

  do
    setcps (90/60/4)
    d1
      $ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw))
      $ "k . k(<3 5 3 1>,8)" # "reverbkick"
      # gain 0.5
    d2
      $ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>"
      $ n ("~ . 1 2(<1!3 3>,8)")
      # "gretsch"
      # gain 0.75