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