-- DNB Joyeuse mineure 8-bit
-- surprise techno-tribe!

do
  setcps (165/4/60)
  solo 1
  solo 2
  unsolo 3
  unsolo 4
  solo 5
  d1 -- Kick regulier, pause de temps en temps
    -- section Kick DNB
    -- $ mask "<t!12 [t f]!2>"
    -- $ fast 4
    -- $ s "<k [~ k]> . ~"
    -- section Kick TECHNO
    $ slow "<1!8 2!8>"
    $ fast "<1!6 2 4>"
    $ s "k k k <k!3 [~ k]>"
    # "kick:5"
    # crush 5
    # gain 0.3
  d2 -- Snares contretemps
    $ fast "2"
    $ sometimesBy "<0 0.5>" ((# lpf 1000) . (|* gain 1.2))
    $ s "~ . <s!3 s*2>" # note (-12)
    # s "snare:2"
    # gain 0.65
  d3 -- Drumroll
    $ fast ("<1!3 2>" * 4)
    $ s "drum:8" # gain 0.9
  d4 -- COMETE
    $ mask "<f!8 t!8 [f t]!8>"
    $ s "m(<3!3 <5 1>>,8)"
    # s "methbass:3"
    # lpf (slow 16 $ range 200 5000 isaw)
    # begin (slow 8 $ "<0 0.25 0.75>")
    # end 0.85
    # cut 1
    # gain 0.6
  d5
    $ superimpose (
      (arp "up") . (|+ note 24)
      . (# gain 0.5)
      . (# crush (slow 16 $ range 0.75 8 sine))
      )
    $ s "t(<4!2 5!2>,<4!2 8!2>)"
    # note ("<c3'min c3'maj c3'min7 c3'maj>" - 12)
    # s "supersaw"
    # voice 0.01 # gain 0.4
  d9 -- jambon fromage
    $ degradeBy 1
    $ slow 4
    $ whenmod 8 6 (
      (# s "~ macron:11")
      . (# cut 19)
      )
    $ often (superimpose ((# squiz 2) . (|* gain 0.9)))
    $ slice 4 ("0 <0!3 1>")
    $ s "macron:7"
    # room 0.5
    # size 0.2
    # squiz 1.2
    # speed (range 0.8 0.95 perlin)
    # cut 9



once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04 # cut 1
# gain 0.8