setcps 1

d1 -- Kick régulo-varié
$ someCycles (degradeBy 0.2)
$ whenmod 32 24 (# silence) -- stop periodique
$ every 4 ( -- 4eme temps, decalage plus echo
  someCyclesBy 0.25 ((0.25 ~>) . (stut 2 0.5 0.25))
)
$ s "kick:11*2"
# pan (slow 16 $ sine)
# gain 0.8

d2 -- hh la résistance danse
$ s "~ <b> . b . <b> ~ . b"
# s "bshihat" # n "0|1"
# gain (slow 64 $ sine * 0.7 + 0.6)
# room (slow 64 $ 0.205 - sine * 0.2) # size 0.8
# gain (slow 16 $ sine * 0.5 + 0.4)
# dry 0

d3 -- cloches basses
$ whenmod 8 4 (someCyclesBy 0.8 (|- note 3))
$ someCycles (superimpose (hurry 0.5))
$ n "<0 [0|1]>"
# s "bsperc"
# gain 0.65

d4 $ silence

d4
$ every 4 (someCycles (rev))
$ superimpose ((|+ note "<5 7 5 5 0 7 <0 5> <0 5>>"))
$ superimpose (rev . (|- note 12))
$ note (scale "major" "0 1 2 7")
# s "bassWarsaw"
-- # release (0.9)
# release (slow 16 $ sine * 0.8 + 0.2)
-- # attack (0.75 + rand / 4)
|- note 24
# gain 0.9

d5 -- piano spatial
$ whenmod 24 22 (|+ note 7)
$ whenmod 24 19 (|- note 5)
$ whenmod 24 16 (|- note 2)
$ off 0.25 (|+ note 5)
$ superimpose (|- note 12)
$ s "bsperc:2(3,8)"
# note (scale "major" ("<5 [5|5|5|3] [3|3|5|5] 5>") - 24)
# lpf (slow 8 $ sine * 800 + 200)
# room 0.2 # size (slow 8 $ sine * 0.2 + 0.5)
# gain 0.6

d5 -- Carillons
$ someCycles (0.5 ~>)
$ s "hh?(<4 4 4 2>,4) ~" # n "8 8 8 <8 8 8 9> 3"
# gain (slow 16 $ sine * 0.5 + 0.4)


d7 --
$ whenmod 32 16 (# gain 0.8)
$ s "[~ bsvocals]/4"
# n "<2? 2? <3 3 3 [3|12]>? 2>"
# gain 0