-- Prière dure

setcps 1.1

d1 -- kick régulier
$ fast 2 -- double tempo, parfois (à la main)
$ every 8 (slow 2)
$ s "kick:5"

d2 -- claps réguliers
$ s "~ clap" # n "[0,<2 3 4>]"
# gain 0.7
# room 0.7

d3 -- synthé
$ whenmod 16 8 (superimpose (|+ note "<7 7 7 7 5 5 3 3>"))
$ whenmod 16 4 (superimpose (|+ note "5"))
$ s "f"
|- note 12
# gain (slow 64 $ sine * 0.4 + 0.2)

d4 -- cymbales régulières dégradées au hasard
$ fast 2
$ degrade
$ degradeBy "<0.2 0 0.8 1>"
$ s "808cy*4"

d5 -- basse régulière montée/descente
$ superimpose (rev . (|+ note "<5 5 7 5 0 <0 5> 0>"))
$ s "bassWarsaw*<2 4 2? 4?>"
|- note 24

d8 -- xylophone aéolien montant
$ degradeBy 0.9
$ superimpose ((|+ note "[-12,12]"))
$ n (scale "aeolian" (run 8))
# s "xylophone"
# gain 0.9
