setcps 0.5 once $ s "methbass" # n 6
d1 $ fast 4 $ s "kick:5" # lpf 200 # gain 0.8
do let chordC = "[0, 12, 16, 19]" let chordG = "[-5, 11, 14, 19]" let chordF = "[-7, 12, 17, 21]" let timeless = [chordC, chordG, chordF, chordG] d1 $ slow 2 $ s "kick:5" d2 $ slow 2 $ s "~ snare:5" d3 -- Metronomo-roll $ every 4 (fast "1 2") $ fast "<8 <16 [16 [32 [64 16]]]>>" $ s "dr" # pan (slow 8 $ range 0.6 0.8 sine) d4 $ every' 4 3 (fast "2 1" . rev) $ arpeggiate $ note "c3'six" # s "supersaw" # voice 0.1 # gain 0.5 d5 -- Piano $ whenmod 16 15 (# gain "0.8 0!7") $ whenmod 16 8 (# gain 0.75) $ n "0(<[3|5] 4>,8)" # note ((slowcat timeless) - 12) # s "phazer" # gain 0 # sustain "0.5"