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