-- Base: DNB Dansante!
setcps 0.75

d1 -- Poum tchak
$ whenmod 8 4 (someCycles (fast "1 2"))
$ whenmod 16 12 (# silence)
$ someCyclesBy 0.2 (fix (# s "snare:8") (s "sn:2"))
$ fix (# s "sn:2") (s "s")
$ fix (# s "[bskick,kicklinn]") (s "b")
$ s "b? ~ s ~ ~ b s <~ <~ <~ s>>>"

d3 -- drumroll
$ rarely (off (1/16) id)
$ sometimesBy 0.05 (# n 1)
$ s "dr*8"
# room (slow 16 $ sine * 0.3)
# size 0.2
# gain (slow 32 $ sine * 0.9 + 0.1)

d5 $ s "brass:6" # note 0
# gain 0.85

d6
$ whenmod 32 24 ( -- final trompette!
  superimpose (const $ s "~ ~ <b ~ b b?> ~"
  # s "brass:6" # gain 0.95)
  )
$ whenmod 8 4 (degradeBy 0.5)
$ superimpose (|+ note 12)
$ superimpose (|- note 12)
$ s "brass:2"
# note "<0 0 0 <<12 5> 0>>"
# cut 1
# gain 0.85

d7 -- toys
$ every' 16 15 ( -- petit coup
  superimpose (const $ s "~ ~ brass:9 ~"))
$ every 16 ( -- intense!
  sometimes (superimpose (const $ s "~ ~ brass:10 ~")))
$ s "~ brass:7/4 ~ brass:5/8"
# gain 0.8

d9 -- basse
$ stut 4 0.75 0.125
$ chop (slow 4 $ "<1 2 1 4 1 4 8>")
$ (|+ note (scale "major" "7"))
$ whenmod 8 4 (|+ note (scale "major" "5"))
$ off 0.125 ((# room 0.2) . (# size 0.8))
-- $ superimpose ((# s "bass3") . (|+ note 0))
$ note "0"
|- note 14
# gain 0.9
# attack (0.5 + rand / 2)
# s "bassWarsaw"

-- Elimines pendant

--
-- d5 -- synthe fou
-- $ euclid "<5 8>" 8
-- $ superimpose ((|+ note 5) . (stut 4 0.8 0.25))
-- $ note (scale "aeolian" "[0|12]")
-- |- note 24
-- # s "defaultB"

--- Test echoue, peutetre du contenu?

d1
$ fix (# s "[kick:8,kick:9]") (s "p")
-- $ s "bd ~ s ~ ~ bd s <~ s>"
$ s "p ~ t <~ t ~ ~> ~ p t <~ p>"

d1 $ weave 16 (pan sine)
[
s "[<k <k*2 k?>>] ~ <k [k k?]> ~" # s "kick:4",
s "~ [s|~] [s s?] ~" # s "snare:4"
]
# room 0.1

d2
$ sometimes (off (1/16) id)
$ every 2 (degradeBy 0.2)
$ s "dr*8"

d3
-- $ superimpose ((# crush 4) . (# gain 0.9))
$ superimpose (|+ note 12)
$ note (scale "major" "0 0 5 <-1>")
# s "bassWarsaw"
|- note 24
# gain 0.9

d4 $ s "superpiano"

d7 -- noise
$ euclid "<3 3 5 1>" 8
$ s "glitch:5"
# gain 0.7

d8 -- forks!
-- $ fast 2
$ degradeBy "0 0 1 0"
$ whenmod 32 26 (degradeBy 0.2)
$ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
$ superimpose (|+ note (slow 4 $ "<5 3> 5"))  . (# gain 0.8)
$ euclid "[<3 3?>,5?]" 8
$ s "s"
# s "superfork"
# room 0.5
# gain 0.5
# pan (slow 4 $ sine)
|- note 12