setcps 0.45

d1 -- regular beat
$ whenmod 16 8 (fast 2)
$ euclid "<1 2>" 8
$ s "808bd:2"

d2 -- cymbale legere reguliere
$ someCyclesBy 1 (# n "0 5")
$ swing 3
$ euclid "<4 <3 4>>" 8
$ s "hh"
# gain 0.8

d3 -- cymbale occasionnelle
$ sometimesBy 0.8 (# silence)
$ sometimesBy 1 (# n 7) -- plus d'echo
$ sometimesBy 0.1 (# n 0) -- plus pleine
$ euclid "<1 3>" 8
$ s "808cy"
# n 5
# release 0.5

d4 -- drumroll
$ whenmod 32 16 (# gain 0.6)
$ whenmod 32 16 (# gain 0.7)
$ whenmod 32 8 (# gain 0.8)
$ someCycles ((fast 2) . (# room 0.8) . (# size 0.1))
$ someCyclesBy 0.1 (# silence)
$ s "hh:5 dr*4 dr*2 dr"
# gain 0.7

d5 -- drums sautillants
$ someCycles ((# n 4) . (# gain 0.8)) -- tambour armee
-- $ sometimes (# n 0)
$ sometimesBy 0.8 (off 0.25 id)
$ sometimes (off 0.125 id)
$ s "~ 808sd:2"

d6 -- bass
$ whenmod 32 16 (rev)
$ whenmod 16 15 (# gain 0.5)
$ whenmod 16 12 (# silence)
$ whenmod 16 10 (# release 0.1)
$ whenmod 16  2 (# gain 0.8)
$ whenmod 16  1 (# gain 0.7)
$ whenmod 16  0 (# gain 0.6)
--   [b  ] [b b]
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# s "bass3:5"
# note "0          5     [[8   5] [8   <12 5>]]      0     "

d7
$ sometimes (degrade)
$ off 0.125 (|+ 7)
$ off 0.25 (|+ 3)
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# sustain 0.1
# gain 0.4
# sustain 0.2
# s "superpiano"
# note "0          5     [[8   5] [8   <12 5>]]      0     "


d7 -- 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 0.6