resetCycles
-- TECHNOBASS Sypathique
-- Bim, DNB, sorry
-- TODO: Laisse tourner tes boucles!

do
  let fxManual = (# crush (slow 16 $ range 16 4 saw))
  let fxManual = (id)
  let fxFilter = (whenmod 16 12 (# lpf ("<20 15 10 5>" * 1000)))
  let dGlob = (fxFilter . fxManual)
  setcps (150/60/4)
  d1 -- Kick
    $ dGlob
    $ whenmod 128 64 ((# "snare") . (# n "[4,20]") . (# gain 0.65)) -- INVERSION KS
    -- $ sometimes (mask "t [t|f]")
    $ "k . ~ k ~ ~"
    # "[jazz,kick:7]"
    # gain 0.8
  d2 -- Snare
    $ sometimes (mask "t [t|f]")
    $ dGlob
    $ whenmod 128 64 (# "[jazz,kick:7]") -- INVERSION KS
    $ fast 1 $ "~ . s <~!7 s>"
    # "snare" # n "[4,20]"
    # gain 0.6
    # lpf 5000
  d3
    $ dGlob
    $ whenmod 128 96 (|* gain 0.8)
    $ whenmod 128 64 (slow 2)
    $ someCycles (fast "2 1")
    $ fast "<4 8 16>" $ "drum:8" # gain 0.7
  d4
    $ dGlob
    $ whenmod 64 32 (mask "<t [t f]!3>")
    $ whenmod 32 16 (degradeBy (slow 8 $ saw) . segment 16)
    $ slice 4 (cat [
      run 8,
      "0 1 2 3 4!4",
      run 8, run 8, run 8,
      "<0!4 1!4 3!8>(5,8)"
      ])
    $ "fbass"
    # n "<42!14 41!2>"
    # cut 2
    # gain (slow 32 $ range 0.75 0.55 tri)
  d5
    $ dGlob
    $ slow (slow 4 $ "<2 4>")
    $ every' 8 7 (sometimes (# n 42))
    $ degradeBy "<1!64 0.8!32 0.5!16 0.1!16>"
    $ slice 4 "<0 ~ 0?!2> 1? <0 2> <1 3>"
    $ "fguitar:43"
    # cut 4
    # gain 0.65
  d6
    $ superimpose (arp "updown downup" . ply 2  . (|+ note 12))
    $ note ("<c'maj!3 c'min!4 c'maj>")
    # s "superhoover"
    # gain (slow 32 $ range 0.35 0.5 saw)



d5
$ note (scale "major" "<0!2 2 4 -2>")
# "supergong"
# accelerate (slow 32 $ "<1 -1>")
# octave 2
# gain 0.65

d7
$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
$ note ("<f e d <d!2 e f>>" + "c'maj'5")
# octave 5
# s "superpiano"
-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
# gain 0.4
