 (defn touch->freq
   [instrument touch]
   (touch->note (get touch :clientX)
-               (:w instrument)
-               (keys (:piano-keys instrument))))
+               instrument))
 
 (def instrument-fns
   {"touchstart" (fn

  (go
   (loop [instrument (update-size (create-instrument (scales/c-minor)) canvas-id)]
     (>! c-instrument instrument)
     (let [[data c] (alts! [c-touch c-orientation-change])]
       (condp = c
         c-orientation-change (recur (update-size instrument canvas-id))
         c-touch (recur (fire-touch-data-on-instrument instrument data))))))
  )

   (let [draw-ctx (util/get-ctx canvas-id)]
     (util/set-canvas-size! canvas-id (util/get-window-size))
     (loop [instrument nil]
       (let [[data c] (alts! [c-instrument (timeout 16)])]
         (condp = c
           c-instrument (recur data)
           (do (draw-instrument draw-ctx instrument)
