              {:light "#D35E4C" :dark "#692B22"}
              {:light "#E18C43" :dark "#6B401C"}
              {:light "#E1B040" :dark "#69511A"}])
-
-(defn draw-start-screen [draw-ctx]
-  (let [{w-window :w h-window :h} (util/get-window-size)
-        w-text 200
-        h-text 70
-        text "Tap the screen to start"
-        center-dimension (fn [window text] (- (/ window 2) (/ text 2)))]
-    (set! (.-font draw-ctx) "20px Verdana")
-    (.fillText draw-ctx
-               text
-               (center-dimension w-window w-text)
-               (center-dimension h-window h-text))))
 
 (defn piano-key-width
   [piano-keys w]

               (recur instrument)))))))

  (go
   (<! c-app-state)
   (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])]
       (condp = c
         c-orientation-change (recur (update-size instrument canvas-id))
         (recur (reduce fire-event-on-instrument
                        instrument

                  :time (.-timeStamp event)})
         (for [x (range (:length touches))] ((keyword (str x)) touches)))))

(defn touch->freq
  [instrument touch]
  (touch->note (get touch :clientX)
