   (init-border game))
 
 (defn ^export start [game]
-  (init-reversi)
+  (init-phaser game)
     (.add (.-state game) "main"
           (clj->js {:preload preload
                     :create create

  (:require [clojure.browser.repl]
            [reversi.core :as rcore]))

(def *border*  rcore/*default-border*)
(def *phaser-border* [[] [] [] [] [] [] [] []])
(def *visible-possible-grids-pos* '())
(def ^:dynamic *default-player-piece* rcore/*black-piece*)
(def ^:dynamic *default-pc-piece* rcore/*white-piece*)
(def *game* (js/Phaser.Game.

        (set! (.-phaserBorder game)
              (assoc-in phaser-border [y x grid-name] pgrid))))))

(defn init-border [game]
  (let [phaser-border (.-phaserBorder game)
        view-table [[[3 3] "black-piece"]
                    [[4 4] "black-piece"]
                    [[4 3] "white-piece"]
                    [[3 4] "white-piece"]
                    [[4 2] "possible-grid"]
                    [[3 5] "possible-grid"]
                    [[5 3] "possible-grid"]
                    [[2 4] "possible-grid"]]]
    (doseq [view-pair view-table]
      (let [pos (first view-pair)
            name (second view-pair)]
        (set! (.-visible ((rcore/gridth pos phaser-border) name)) true)))
    (doseq [pos [ [4 2] [3 5] [5 3] [2 4] ]]
      (let [visible-possible-grids-pos (.-visiblePossibleGridsPos game)]
        (set! (.-visiblePossibleGridsPos game)
