setcps 0.5
once $ s "methbass" # n 6
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"