once $ s "bogdan:10" # gain 0.9 # begin 0.5 # end 0.75

do
  solo 1 -- DNB
  solo 2 -- Comete
  solo 3 -- Alerte pont 16/24
  solo 4 -- Nappes regulieres, pont: part en echo
  solo 5 -- Hihats noise sec
  solo 6

do
  unsolo 1 -- DNB
  unsolo 2 -- Comete
  unsolo 3 -- Alerte pont 16/24
  unsolo 4 -- Nappes regulieres, pont: part en echo
  unsolo 5 -- Hihats noise sec
  unsolo 6

-- Meth DNB: J'ai toujours préféré ta cuisine maison <3
do
  setcps (165/60/4)
  let gDNB = 0.45
  let gCom = 0.55
  let gAlert = 0.25
  let gNappes = "<0.8 0.9 1.0 0.9>"
  let gHats = 0.45
  let gGuit = 1.4
  let melody = "<<0 <2 4>>!2>"
  -- Rythme DNB
  d1
    -- $ whenmod 24 18 (# gain 0)
    -- $ whenmod 24 17 (|- gain 0.05)
    -- $ whenmod 24 16 (|- gain 0.05)
    $ fix (# s "sn:5") (s "s")
    $ fix (# s "[kick:1]") (s "k")
    $ superimpose (# s "bd")
    $ every 4 ( sometimesBy "0 0.25" (fast 2)) -- Double s(1,4)
    $ s "k ~ s ~ ~ k s <~!3 s>"
    # gain gDNB
    # pan 0.3
  -- Lead: Comete!
  d2
    -- $ whenmod 24 16 (|> gain 0)
    $ "methbass:10"
    # gain (slow 60 $ range (gCom - 0.15) gCom sine)
    # note (slow 2 $ "<0 0 8 [8 10]>")
  -- Alerte!
  d3
    $ whenmod 24 16 (|+ gain 0.05)
    $ whenmod 24 14 (|+ gain 0.1)
    $ whenmod 24 15 (# gain gAlert)
    $ chop 2
    $ s "~ methbass:4/2"
    # note ("<0 -2>!2")
    # gain 0
  -- Nappes intenses
  d4
    $ whenmod 24 20 (# gain (gNappes / 2))
    $ whenmod 24 16 (# silence)
    $ euclid ("2*<1 2 4 2>") 8
    $ s "abstract:0"
    # note ("<0 -2>!4")
    # gain gNappes
    # cut 4
    # release 4 -- Longueur echo pont 24
  d5 -- noise hihat!
    -- $ whenmod 24 16 (hurry "[1|2]")
    $ sometimes (# n 6)
    $ "abstract:5(<[1|3|5] <4 [1|8]>>,8)"
    # cut 5
    # room 0.2 # dry 2
    # note (-4)
    # gain (slow 20 $ range (gHats - 0.2) gHats sine)
    # pan (slow 16 $ 1 - sine / 2)

-- Bacasable

  d6 -- Guitare ploink insecte
    $ sometimes (fast 2)
    $ someCycles (slow 2)
    $ arp "<down downup up updown>"
    $ note (scale "aeolian" "c4'maj")
    # s "abstract:11"
    # cut 7
    # gain gGuit
    # end 0.1
    # pan (slow 16 $ sine / 2)
