   [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

       :off nil
       :touch-id (touch :touch-id)})))

(defn start-note
  [touch {notes :notes :as instrument}]
  (if-let [new-note (touch->note instrument 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}))

