setcps 0.5

d1
$ whenmod 32 16 (# gain 0)
$ fast 2
$ s "dr dr <dr dr dr ~> dr dr dr <~ ~ ~ dr> dr"
# gain 0.9

d2
$ whenmod 32 8 (# gain 1)
$ s "kick:13"
# gain 0.8

d3
$ every 4 (off 0.125 id)
$ s "~ sn:4"
# gain 0.8

d4 -- TODO: Pas terrible ce sample
$ whenmod 32 16 (|+ note 7)
$ whenmod 4 3 (# gain 1)
$ s "~ [v v v v]"
# s "violin"
# note "~ . 7 7 5 5"
|- note 7
# release 0.3
# gain 0

d5
$ someCycles (superimpose (fast 2 . rev))
$ note "<0 [0 [3 3 0]] 0 0>"
# s "bassWarsaw"
# attack (0.5 + rand / 2)
# release (0.5 + rand)
|- note 21