 (def init-block-count 12) ;; Init blocks for red, blue, green, gray
 (def players [:blue :red :green])
 
+
+;; -----------------------------------------
+;; INIT THE BOARD
 ;; -----------------------------------------
 
 (def empty-board

    (reduce apply-move (assoc-in board [x y] player) moves)
    ))

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

(defonce app-state (atom (new-game)))
(def board (reagent/cursor app-state [:board]))

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

(defn rect-cell

      [-1 1] [1 1] [-1 -1] [1 -1]]
     )))


;; -----------------------------------------
;; ON PLAYER MOVE
;; -----------------------------------------

(defn- apply-move
