love_of_techno.tidal

-- Love of Tecno will tear us apart
do
let loveTears = "<<e4!3 [e4 fs4 e4@6]> [fs4@2 g4 fs4@2 e4 d4@2] [b3@7 <d4 fs3>] a3>"
setcps (148/60/4)
d1 $ "<k!7 [k k*2] [k*4]!8>" # "jazz"
d2 $ fast "<1!7 [1 4] 2!3 [2 4] 2!3 4>" "~ snare:55"
d3 $ "[~ hh]*4"
d4
  $ note (loveTears
    + "[0,12]")
  # "[FMRhodes1]"
  # gain 1.4
  # pan 0.8
d5
  $ mask "<t!4 f!4> t!12"
  $ rev
  -- $ mask "<f!8 t!8>"
  $ note (loveTears
    + "[24]")
  # "[FMRhodes2]"
  # gain 1.2
  # room 0.4 # sz 0.4
  # pan 0.3