-- Base: DNB Dansante!
setcps 0.6


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
$ fast "4 <8 16>" $ s "drum:2" # gain 0.9

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

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.45

d4
  $ note (scale "aeolian" "<0 5>(<3 5>,8)"
  -24
  ) #  s "supersaw" # voice 0.1 # 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 (-36)
# 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
