 
 (defn touch->freq
   [instrument touch]
-  (touch->note (get-in touch [:position :x])
-               instrument))
+  (touch->piano-key (get-in touch [:position :x])
+                    instrument))
 
 (defn maybe-init-synths
   [instrument]


(defn touches
  [canvas-id type]
  (map< 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 step-time
  [instrument delta]

     :notes ()
     :w 0 :h 0 :sound-ready false
     :px-per-ms 0.1
     ;; :cur-touches {}
     :scrolling? false
     :start start
     :playhead start}))
