   [canvas-id type]
   (mapcat< touch-data->touches (util/listen (dom/getElement canvas-id) type)))
 
-(defn scroll?
+(defn scrolling-touch?
   [touches cur-t]
   (let [prev-t (get touches (cur-t :touch-id))]
     (and prev-t


(defn step-time
  [instrument delta]
  (if (not (instrument :scroll-touch-id))
    (assoc instrument :playhead (+ (instrument :playhead) delta))
    instrument))

(defn tick
  [instrument delta]
  (step-time instrument delta))

(prevent-scrolling)
(set-up-web-audio-on-first-touch)

     :w 0 :h 0
     :sound-on? true
     :px-per-ms 0.1
     :scroll {:distance 0 :speed 0 :friction 0.9 :touch-id nil}
     :start start
     :playhead start}))

