 (defn touches
   [canvas-id type]
   (mapcat< touch-data->touches (util/listen (dom/getElement canvas-id) type)))
-
-;; (defn create-touch-input-channel
-;;   [canvas-id]
-;;   (async/merge [(touches canvas-id :touchstart)
-;;                 (touches canvas-id :touchend)
-;;                 (touches canvas-id :touchmove)]))
 
 (defn scroll?
   [scroll-state cur-t]

        (fn []
          (-> "sin" timbre .play .pause)
          (set! (.-ontouchstart js/document) nil))))


(defn piano-key-width
  [{piano-keys :piano-keys w :w}]

    {:piano-keys (into (sorted-map) (map-indexed (fn [i freq] [freq {:n i :on? false}])
                                                 scale))
     :notes ()
     :w 0 :h 0
     :sound-ready false
     :px-per-ms 0.1
     :scrolling-touch-id nil
     :start start
     :playhead start}))

