 
   (go
    (<! c-app-state)
-   (loop [instrument instrument]
+   (loop [instrument (update-size (create-instrument (scales/c-minor)) canvas-id)]
      (>! c-instrument instrument)
      (let [[data c] (alts! [c-touch-start c-touch-end
                             c-orientation-change])]

         (recur (reduce fire-event-on-instrument
                        instrument
                        (touch-data->touches data)))))))
  )

        instrument)))

(defn update-size [instrument canvas-id]
  (let [{w :w h :h :as window-size} (util/get-window-size)]
    (do (util/set-canvas-size! canvas-id window-size)
        (.scrollTo js/window 0 0) ;; Safari leaves window part scrolled down after turn
        (assoc (assoc instrument :h h) :w w))))

(let [canvas-id "canvas"
      c-app-state (chan)
      c-instrument (chan)
      c-orientation-change (util/listen js/window :orientation-change)
