setcps 0.6

d1
$ often (
  superimpose (
  (stut 4 0.5 0.125) .
  (# s "electro1:3") .
  (# gain 0.8)
))
$ note "0 <0 0?> <0 0 0? 0> [[0|1] 1]"
-- $ note "<0 [0|0*2]>*4"
-- $ note "[0|0*2] . ~ <0 0 0 ~>" -- attente
# s "jazz"
# pan 0.3
# gain 0.75

d2 -- Snares reguliers
$ whenmod 8 4 (fast 2)
$ s "~ ~ s ~"
# s "snare:8"
# room (slow 20 $ range 0 0.6 sine)
# size (slow 40 $ range 0.6 0.6 cosine)
# dry 0.9
# gain 0.9

d3 -- Drumroll FIXME
$ degrade
$ s "dr*16"
# gain 0.8

d4 --
-- Todo: vars interne a la mesure
$  s "supersaw(<5 7 3>,8, <0 2>)"
# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
# gain (slow 16 $ range 0.5 0.65 sine)
# voice 0.1 # room 0.5 # orbit 0

d5 -- Bulles folles
$ bite 4 "<0 3>(1,3,<1 3>) <1 1(3,8)> 2 <3 3*2 0 3>"
$ note (scale "major" (
  whenmod 16 8 (8 -)
  (run 8)
  + (slow 4 $ "<-14 -7 0 -14>") -- gamme
  + "[0,7]" -- accord
))
# s "supersaw"
# voice 0.05
# accelerate 1
# gain (slow 16 $ range 0.6 0.4 sine)

d6 -- Sirene
-- $ whenmod 16 8 (chop ("<2 2 16 16 8 64 32 16>"))
$ s "supersiren/4"
# sustain 3 -- FIXME: Except when chopped
# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
# gain 0.6

d7 -- glitchs!
$ jux rev
$ s "g(<3 5 8 1>,8,<0 2>)"
# s "glitch:2"
# gain 0.6
# pan (rand / 4)

d8 -- Bulles finales
$ often (# crush 4)
$ someCycles (stut 8 0.5 (1/16))
$ every' 8 7 (# gain 0.7)
$ s "~ s ~ s ~ s s ~"
# s "supersnare"
# n (-12)
# accelerate 8
# sustain 1
# gain 0
