-- Booba - Numero 10

setcps 0.77

d1 -- beat
$ whenmod 64 50 (# silence)
$ superimpose (# s "kick:5")
$ s "b b . <~ b ~ b> ~. <~ ~ ~ b> ~ . ~"
-- $ s "[b b] ~ [~ ~ ~ ~] ~"
# s "808bd:3"
-- # up (-1)
-- # release 0.8

d2  -- snare
$ whenmod 64 48 (# silence)
$ s "<~ ~ ~ s?> <~ ~ ~ [~ s?]> <s s s s?> ~"
# s "sn:1"

d3 -- drumroll
$ whenmod 8 6 (degrade . (|+ gain 0.2))
$ s "dr*8"
# gain (slow 32 $ sine * 0.2 + 0.7)
# pan (slow 16 $ 0.5 * sine + 0.25)

d4 $ s "bsbass:4"

d5 -- lead piano
$ whenmod 12 9 (|+ n 7)  -- variation descente
$ superimpose -- nappes phazer
( (# s "phazer")
. (|- gain 0.2)
-- . every 2 (someCyclesBy 1 ( -- variations octaves
  -- |+ n (choose [12,-12])
-- ))
)
$ n (scale "major" "<<0 2> 1 <2 0> ~>")
# s "defaultB"
# gain 1

d5
$ superimpose -- nappes phazer
( (# s "phazer")
. (|- gain 0.2)
-- . every 2 (someCyclesBy 1 ( -- variations octaves
  -- |+ n (choose [12,-12])
-- ))
)
$ n (scale "major" "<<0 2> 1 <2 0> ~>")
# s "defaultB"
# gain 0.9


d6 -- choeur
$ silence
-- $ superimpose ((# s "ade:3") . (# note (-24)))
$ s "ade:2" # note (scale "major" (
  "<<0 2> 1 <2 0> ~>"
  - 20
)) # cut 6
# gain 1.8
