

-- DU CODE !
do
  d1 -- BEAT
    $ whenmod 32 30 (# gain 0.9)
    $ whenmod 32 25 (# gain 0)
    $ sometimesBy "1 0.5 0.25 0" (fast 2) -- FASTER!
    $ s "b ~ [b? b] <~ [~ b?]>"
    # s "reverbkick"
    # gain 0.8
    # pan (slow 8 $ range 0.6 0.8 saw)
  d2 -- Breaks
    $ whenmod 32 19 rev
    $ whenmod 32 18 (slow 2)
    $ whenmod 32 17 (fast 2)
    $ whenmod 32 16 rev
    $ whenmod 32 30 (# gain "<0.5 0.6>")
    $ whenmod 32 24 (# gain 0)
    $ loopAt 2 $ chop (slow 4 "<2 8>") $ sound "break"
    # gain 0.65
    # pan (slow 8 $ range 0.2 0.8 saw)
  d3 -- Percroll
    $ almostNever (# n 1) . degrade
    $ s "d(<10!2 14 16>,16)"
    # s "bsperc:5"
    # gain (slow 8 $ range 0.7 1 saw)
  d4 -- basse bruitée
    $ whenmod 32 16 (# crush 4) . (# lpf 12000)
    $ sometimesBy 0.2 (fast 2)
    $ chop (slow 4 $ "<[1|2] [4|8] 8 1>")
    $ note (scale "aeolian" (
      "[0, <~ [0 ~ <1 2> <2 1>]>]"
    ) - 24)
    # s "supersaw"
    # voice 0.25
    # gain 0.55
  d5 -- Claps dégradés
    $ degradeBy "0.9 0 0.5"
    $ s "c([3|5],8)"
    # s "clap"
    # n "0 [0|1]"
    # gain 0.8
  d6 -- PIANO FOU
    $ note (scale "aeolian" (
      "c5'maj(<[3|5|7] [10|12|14]>,16,[0|4])" -- accord
      + (iter 4 $ "{0 [2 0] 4 [2 0]}") -- melodie
      + "<0!4 7 0 -7>" -- gamme
      )
    )
    # "superpiano"
    # sustain (1/"[2|4|8]")
    # velocity (slow 64 $ range 0.3 0.5 sine)
  d7 -- Choeur nappes
    $ note (scale "aeolian" ("c4'maj"))
    # s "moogBass"
    # amp (slow 4 $ "<0.2 0.4 0.6 0.8>") -- INTENSIFICATION
    # gain (slow 4 $ "<1 0.9 0.8 0.8>") -- Compense volume
    # cutoff (slow 16 $ (1000 * (1 + run 15))) -- Variations filtree
  d8 -- du code
    $ "~ kaamelott:2/8"
    # begin (slow 8 $ "<0    0   0.5 0.55 0.75 0.5>")
    # end   (slow 8 $ "<0.5 0.5 1   1    1    1  >")
    # crush (5 + irand 10)
    # speed (0.85 + rand / 4)
    # room 0.5
    # gain 0.7
