   [{w :w h :h playhead :playhead :as instrument}]
   {:x 0 :y (t->px instrument playhead) :w w :h h})
 
+(defn finger-pushing?
+  [instrument]
+  (not (nil? (-> instrument :scroll :touch-id))))
+
+(defn scrolling?
+  [instrument]
+  (or (finger-pushing? instrument)
+      (not= (-> instrument :scroll :speed) 0)))
+
 (defn draw-note
   [draw-ctx instrument note]
   (let [{x :x y :y w :w h :h} (note-rect note instrument)]
-    (set! (.-fillStyle draw-ctx) "white")
+    (set! (.-fillStyle draw-ctx) "#FFFFFF")
     (.fillRect draw-ctx x y w h)))
 
 (defn colliding?

  [instrument delta]
  (-> instrument
      (step-time delta)
      (scroll delta)))

(prevent-scrolling)
(set-up-web-audio-on-first-touch)

       :off nil
       :touch-id (touch :touch-id)})))

(defn start-note
  [touch {notes :notes :as instrument}]
  (if-let [new-note (touch->note instrument touch)]
