setcps 0.5

once $ s "meth_bass" # 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"
