setcps 0.6

-- TODO: Montee, descente, DNB style

drawLine "k ~ s ~ ~ k s <~!3 s>" -- goal
drawLine "[k~~~~k~~,s(2,8,2)]" -- todo

do
  d1 $ s "k   . ~ k ~ ~" # s "kick:1" # gain 0.8
  d2
    $ whenmod 32 28 (fast 2)
    $ whenmod 32 24 (hurry "1 [2, 1]")
    $ whenmod 32 16 (hurry "1 2")
    $ s "~ s . ~ ~ s <~!3 s>" # "sn:5" # gain 0.5