 (defn create-note-synth
   [freq]
   (timbre "adsr"
-          (js-obj "a" 5 "d" 10000 "s" 0 "r" 500)
+          (js-obj "a" 5 "d" 100 "s" 0 "r" 5)
           (timbre "fami" (js-obj "freq" freq "mul" 0.1))))
 
 (defn create-instrument

             {: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]

                        piano-key (get (:piano-keys instrument) freq)]
                    (if (empty? (:notes piano-key))
                      (do
                        (println "play" piano-key)
                        ;; (.play (.bang (:synth piano-key)))
                        (assoc-in instrument
                                  [:piano-keys freq :notes]
                                  [{:on time :off nil :touch-id touch-id}])))))
