setcps 0.5

d1 -- batterie
$ whenmod 64 16 (fast 4 . (every 4 (off 0.5 id)))
$ s "{popkick,kick:5}"
# gain 0.8

d2 -- drums TODO: too loud on 16/64
$ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5") . (# gain 0.9))
$ whenmod 64 14 (fast 2 . (# s "hh:1"))
$ whenmod 4 3 (sometimes (# n "1"))
$ someCycles (fast 2)
$ euclid "<2 4 2 6>" "<4 8>"
$ "hh:12"

d3 -- basse
$ whenmod 8 4 (|- note 5) -- quinte
$ someCyclesBy 0.2 ((# room 0.1) . (# dry 8))
$ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw"
# gain 0.9

d4 -- lead piano
$ whenmod 32 16 (someCycles $ degrade)
$ whenmod 8 4 (|- note 5) -- quinte
-- $ someCycles (jux rev)
$ whenmod 16 14 (|+ note 15)
$ whenmod 16 10 (|- note 3)
$ whenmod 4 2 (|- note 7)
$ someCycles (off 0.125 (|+ note "<12 7 12 12>"))
$ someCycles (off 0.25 (|- note 5))
$ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano"
# sustain 2
# velocity 0.8
-- # gain 1

d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
$ whenmod 64 32 (# gain 0.9)
$ whenmod 8 4 (|- note 7) -- quinte
-- $ superimpose ((|+ note 5) . degrade) -- variations quinte
$ someCyclesBy 0.2 rev
$ chop "<2 4 6 8>"
$ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")

d6 -- final aigu
$ whenmod 64 32 degrade
$ sometimes degrade
$ sometimes rev
$ whenmod 64 48 (# gain 0.8)
$ off 0.25 (|- note 7)
$ off 0.125 (|- note 7)
$ off 0.125 (|- note 3)
$ note (scale "major" "0 3 7 12")
# s "~ sosBell ~"
# release 0.5
# gain 0
