 
 (def state
   ;; Order matters
-  (atom {:background (Rect. 0 0 SCALE-W SCALE-H "black")   ;; use div behind canvas
+  (atom {:current-paddle :paddle-1
+         :background (Rect. 0 0 SCALE-W SCALE-H "black")   ;; use div behind canvas
          :border     (Frame. 0 0 SCALE-W SCALE-H "#333" 2) ;; use div behind canvas
-         :paddle-1   (Paddle. 20 (- SCALE-H 120) 20 100 2 "dodgerblue")
-         :paddle-2   (Paddle. (- SCALE-W 40) 20 20 100 2 "peru")
+         :paddle-1   (Paddle. 20 (- SCALE-H 120) 20 100 10 "dodgerblue")
+         :paddle-2   (Paddle. (- SCALE-W 40) 20 20 100 10 "peru")
          :ball       (Ball. 400 225 13 3 2 "lime")}))
 
 ;;-----------------------------------------------------------------------------

  (swap! state #(assoc % :ball (move (:ball %)))))

(defn animate!
  []
  (move-phase!)
  (draw-phase! ctx)
  (.requestAnimationFrame js/window animate!))

;;-----------------------------------------------------------------------------
;; Control
;;-----------------------------------------------------------------------------

(defn resize!
  [e]
  (let [w (- (.-innerWidth js/window) 40)
        h (- (int (/ (* w 9) 16)) 40)]
    (-> (by-id "canvas")

(defn listen!
  [el type fn]
  (.addEventListener el type fn false))

;;-----------------------------------------------------------------------------

