setcps 0.6

-- Meth DNB: J'ai toujours préféré ta cuisine maison <3
do
  let melody = "<<0 <2 4>>!2>"
  -- Rythme DNB
  d1
    $ whenmod 24 20 (|> gain 0.3)
    $ whenmod 24 18 (|> gain 0.2)
    $ whenmod 24 16 (|> gain 0)
    $ fix (# s "sn:5") (s "s")
    $ fix (# s "[kick:1,ulgab?]") (s "k")
    $ superimpose (# s "bd")
    $ every 4 (
    sometimesBy "0 0.5" (fast 2)
    )
    $ s "k ~ s ~ ~ k s <~ s>"
    # gain 0.7
    # pan 0.3
  -- Lead: Comete!
  d2 $ "methbass:10"
    # gain (slow 16 $ range 0.4 0.55 sine)
    # note (slow 2 $ "<0 0 2 2>")
    # hpf 500
  -- Alerte!
  d3
    $ whenmod 24 16 (|+ gain 0.05)
    $ whenmod 24 14 (|+ gain 0.1)
    $ whenmod 24 15 (# gain 0.25)
    $ chop 2
    $ s "~ methbass:4"
    # note ("<0 -2>!2")
    # gain 0
  -- Nappes intenses
  d4
    $ euclid ("2^<1 2 4 2>") 8
    $ s "abstract:0"
    # note ("<0 -2>!4")
    # gain 0.8 # cut 4
  d5 -- noise hihat!
    $ sometimes (# n 6)
    $ "abstract:5(<[1|3|5] <4 [1|8]>>,8)"
    # cut 5
    # gain (slow 20 $ range 0.3 0.6 sine)
    # pan (slow 16 $ 1 - sine / 2)
  d6
    $ sometimes (fast 4)
    $ someCycles (slow 2)
    $ arp "<down downup up updown>"
    $ note (scale "aeolian" "c3'maj")
    # s "abstract:11" # cut 7 # gain 1 # end 0.1
    # pan (slow 16 $ sine / 2)



  # n 10
  # gain 0.7
note s "methbass:"


d2 $ s "methbass:1"
-- # gain 0.5
# cut 2# n 10
# note (slow 2 $ "<0 0 2 2>")
# gain 0.7