d1 -- beat
$ whenmod 16 10 (degrade)
$ someCyclesBy 0.9 (superimpose (# size 0.9) . (# room 0.9))
$ s "tech:5*4" # note (-4)

d3 -- piano main gauche
$ s "superpiano"
# note "<-20 [-19,-15] [-20,-16] ~>"
# velocity "<0.7 0.5 0.6>"
# sustain 3
# gain 0.9

d4 -- piano main droite
$ degradeBy ("<0.1>")
$ s "superpiano*16"
# note "<-20 [-19,-15] [-20,-16] ~>"
# velocity "<0.7 0.5 0.6>"
|+ note 12
# gain 0.9


d2 -- hihat/cymbal
$ someCycles (superimpose (const "~ ~ 808cy ~"))
$ every 4 (const $ "[~ [hh,hh:8] ~ [hh ~ hh]]*2" # gain 1.2)
$ s "[~ hh ~ <hh [hh ~ hh]>]*2"
# gain 1.4


d6 -- white noise
$ whenmod 64 48 (degradeBy 0.9)
$ rarely (off 0.5 id)
$ sometimes (jux rev)
$ (# speed (rand / 2))
$ s "glitch:2" -- # n (run 8)
# cut 1
# gain 1.2
