-- Late hardcore beat d1 -- kick regulos $ every' 8 7 (<| s "k*8") $ s "k k <k k k k*2> [<k k ~ ~> <~ k k k>]" # s "kick:5" # pan 0.4 # gain 0.9 d2 $ sometimes (# pan (rand * 0.75)) $ whenmod 16 12 (# s "ulgab gabbaloud") $ whenmod 16 8 (# s "ulgab") $ whenmod 12 4 (# s "gabbaloud ulgab") $ euclid (slow 4 $ "<<3 <8 7>> 5>") 8 $ s "gabbaloud" # gain 0.7 d3 $ whenmod 8 4 (sometimesBy "<0.25 0.5 0.75 0.95>" (off (1/16) id)) $ whenmod 16 8 (<| s "d*8") $ s "d*4" # s "drum:18" # pan (slow 3 $ sine) d4 $ whenmod 32 16 rev $ arp "<up down updown converge down up downup disconverge>" $ note ( whenmod 16 12 (0 - ) "c'maj'<4 5> e'min" ) # sound "cheapPiano1" # gain (slow 18 $ sine * 0.2 + 0.5) # room 0.4 d5 $ arp "<up down updown converge down up downup disconverge>" $ note ( whenmod 16 12 (0 - ) "c'maj'<4 5> e'min" ) # sound "bassWarsaw" # gain 0.8 # room 0.4 |- note 12