diff --git a/.gitignore b/.gitignore
index 6cec569..a38b411 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,4 @@
 /target/
 /.clj-kondo/
 /.lsp/
+*.fasl
diff --git a/assets/Darker_Grass_Tiles_v2.png b/assets/Darker_Grass_Tiles_v2.png
new file mode 100644
index 0000000..8bb77b4
Binary files /dev/null and b/assets/Darker_Grass_Tiles_v2.png differ
diff --git a/assets/Grass_Hill_Tiles_v2.png b/assets/Grass_Hill_Tiles_v2.png
new file mode 100644
index 0000000..3784d97
Binary files /dev/null and b/assets/Grass_Hill_Tiles_v2.png differ
diff --git a/assets/Grass_Tile_Layers.png b/assets/Grass_Tile_Layers.png
new file mode 100644
index 0000000..44c386f
Binary files /dev/null and b/assets/Grass_Tile_Layers.png differ
diff --git a/assets/Mushrooms, Flowers, Stones.data b/assets/Mushrooms, Flowers, Stones.data
new file mode 100644
index 0000000..d39e9a0
--- /dev/null
+++ b/assets/Mushrooms, Flowers, Stones.data	
@@ -0,0 +1,55 @@
+(:texture-path "source-assets/Sprout Lands Premium/Objects/Mushrooms, Flowers, Stones.png"
+ :selected-cells ((0 0)
+                  (0 1)
+                  (0 2)
+                  (0 3)
+                  (0 4)
+                  (0 5)
+                  (0 6)
+                  (0 10)
+                  (1 0)
+                  (1 1)
+                  (1 2)
+                  (1 3)
+                  (1 4)
+                  (1 5)
+                  (1 6)
+                  (1 7)
+                  (1 8)
+                  (1 9)
+                  (1 10)
+                  (1 11)
+                  (2 0)
+                  (2 1)
+                  (2 2)
+                  (2 3)
+                  (2 6)
+                  (2 7)
+                  (2 8)
+                  (2 9)
+                  (2 10)
+                  (2 11)
+                  (3 0)
+                  (3 1)
+                  (3 2)
+                  (3 3)
+                  (3 4)
+                  (3 5)
+                  (3 6)
+                  (3 7)
+                  (3 8)
+                  (3 9)
+                  (3 10)
+                  (3 11)
+                  (4 0)
+                  (4 1)
+                  (4 2)
+                  (4 3)
+                  (4 4)
+                  (4 5)
+                  (4 6)
+                  (4 7)
+                  (4 8)
+                  (4 9)
+                  (4 10)
+                  (4 11)))
diff --git a/assets/Mushrooms, Flowers, Stones.png b/assets/Mushrooms, Flowers, Stones.png
new file mode 100644
index 0000000..39b72b0
Binary files /dev/null and b/assets/Mushrooms, Flowers, Stones.png differ
diff --git a/assets/Soil_Ground_Tiles.png b/assets/Soil_Ground_Tiles.png
new file mode 100644
index 0000000..d2ed842
Binary files /dev/null and b/assets/Soil_Ground_Tiles.png differ
diff --git a/game-config.data b/game-config.data
new file mode 100644
index 0000000..d856798
--- /dev/null
+++ b/game-config.data
@@ -0,0 +1 @@
+(:foo :bar)
diff --git a/siam-farmer.asd b/siam-farmer.asd
new file mode 100644
index 0000000..d3fcd7f
--- /dev/null
+++ b/siam-farmer.asd
@@ -0,0 +1,13 @@
+#+sbcl
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  ;; raylib hands back floats that trip SBCL's FP traps otherwise.
+  (sb-int:set-floating-point-modes :traps nil))
+
+(asdf:defsystem #:siam-farmer
+  :description "Tile-based farming game"
+  :author "Joseph Ferano"
+  :depends-on (#:cl-raylib #:livesupport)
+  :serial t
+  :pathname "src"
+  :components ((:file "engine")
+               (:file "game")))
diff --git a/src/game.lisp b/src/game.lisp
index 82b2858..76bd911 100644
--- a/src/game.lisp
+++ b/src/game.lisp
@@ -51,17 +51,16 @@
 
 ;;; -------------------------------------------------------------------- grid
 
-(declaim (ftype (function (fixnum fixnum) fixnum) idx)
-         (inline idx))
+;; (declaim (ftype (function (fixnum fixnum) fixnum) idx)
+;;          (inline idx))
 (defun idx (row col)
-  (declare (optimize (speed 3) (safety 0)))
   (* (+ (* row +cols+) col) +stride+))
 
-(declaim (ftype (function (row-index col-index) fixnum) test-idx))
-(defun test-idx (row col bump)
-  (declare (optimize (speed 3) (safety 0)))
-  (let ((i (idx row col)))
-    (+ i bump)))
+;; (declaim (ftype (function (row-index col-index) fixnum) test-idx))
+;; (defun test-idx (row col bump)
+;;   (declare (optimize (speed 3) (safety 0)))
+;;   (let ((i (idx row col)))
+;;     (+ i bump)))
 
 (defun tile-at (game layer row col)
   "Returns (values atlas-id tile-row tile-col). atlas-id is -1 when empty."
@@ -129,7 +128,7 @@
      :dst-rects (compute-tileset-rects tiles))))
 
 (defun init-game ()
-  (let ((tileset-path "source-assets/Sprout Lands Premium/Tilesets/ground tiles/New tiles/")
+  (let ((tileset-path "assets/")
         (game (make-instance 'game)))
     (setf (layers game)
           (coerce (loop repeat +num-layers+ collect (e:make-int-grid +grid-len+ -1))