setcps (100/60/4)

do
d3 $ silence
d2 $ fast 4 $ "drum:8"

# gain 0.5

-- TODO CLEANUP BELOW
d10 $ fast 8 $ note ((cF (0) "1") * 26) # "superpiano"
# velocity 0.7


d1 $ sound "jazz*4"
  -- # djf (cF default CC_Number)
  -- # djf (cF 0.5 "14")
  # djf ("^1")
  -- # gain 0.6

 # speed (cF 12 "0")

d1 $ s "arpy*4" # gain (cF 1 "1")

d1 $ sound "amencutup" + n (run (segment 1 $ range 1 16 $ cF 1 "14" ))


do
  d1 $ "jazz*1" # gain 0.5
  d4 $ "hh*<16!3 8>" # pan (range 0.1 0.8 sine) # gain 0.6
  d2 $ often (ply 2) $ "~ snare" # gain 0.6

d3 $ note (cF (-12) "3") # sound "superpiano" # velocity 0.5

d1 $ sound "amencutup" + n (run (segment 1 $ range 1 16 $ cF 0 "32" ))