 
 (enable-console-print!)
 
-;;Interesting pattern that evolves for
-;;quite some time before stabilizing
-;; (def g1 [[1 0 0 0 0 1 0 0 0 1]
-;;          [0 1 0 0 1 0 0 0 0 0]
-;;          [0 0 1 1 0 0 0 0 0 0]
-;;          [0 0 1 1 0 0 0 0 0 0]
-;;          [0 1 0 0 0 0 0 0 0 0]
-;;          [1 0 0 0 0 1 0 0 0 0]
-;;          [0 0 0 0 0 1 0 0 0 0]
-;;          [0 0 0 0 0 1 0 0 0 0]
-;;          [0 0 0 0 0 1 0 0 0 0]
-;;          [1 0 0 0 0 0 0 0 0 1]])
-
-;; (def g2 [[1 0 0 0 0 0 0 0 0 1]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [0 0 0 0 1 1 1 0 0 0]
-;;          [0 0 0 0 1 0 0 0 0 0]
-;;          [0 0 0 0 0 0 0 0 0 0]
-;;          [1 0 0 0 0 0 0 0 0 1]])
 
 (defonce empty-grid (rules/create-empty-grid 40 40))
 
 (def rows  40)
 (def columns 40 )
-
-
-;; Patterns
-
-(defonce glider (rules/expand-to [[0 1 0]
-                                  [0 0 1]
-                                  [1 1 1]] rows columns))
-
-(defonce lwss (rules/expand-to [[0 1 0 0 1]
-                                [1 0 0 0 0]
-                                [1 0 0 0 1]
-                                [1 1 1 1 0]] rows columns))
 
 (def app-state (atom {:grid empty-grid
                       :preview nil

               :on-mouse-over #(set-preview lwss)
               :on-mouse-out #(set-preview nil)
               :class "small-btn blue"} "LW space ship"]
     ]
    ]])


                                 :dead-cell-color "white"
                                 :preview-color "#b3b3b3"
                                 :interval 500}}))

;; Patterns

(defonce glider (rules/expand-to [[0 1 0]
                                  [0 0 1]
                                  [1 1 1]] rows columns))

(defonce lwss (rules/expand-to [[0 1 0 0 1]
                                [1 0 0 0 0]
                                [1 0 0 0 1]
                                [1 1 1 1 0]] rows columns))

(defonce mwss (rules/expand-to [[0 0 0 1 0 0]
                                [0 1 0 0 0 1]
                                [1 0 0 0 0 0]
                                [1 0 0 0 0 1]
                                [1 1 1 1 1 0]] rows columns))

(defonce hwss (rules/expand-to [[0 0 0 1 1 0 0]
                                [0 1 0 0 0 0 1]
                                [1 0 0 0 0 0 0]
                                [1 0 0 0 0 0 1]
                                [1 1 1 1 1 1 0]] rows columns))

(defn set-preview [preview-matrix]
  (swap! app-state update-in [:preview] (constantly preview-matrix)))
