diff --git a/.gitignore b/.gitignore
index 171cf85..4e0d4d6 100644
--- a/.gitignore
+++ b/.gitignore
@@ -10,3 +10,4 @@
 /pre-inst-env
 /scripts/run-game
 /*.log
+/.envrc
diff --git a/assets/levels/level-1.map b/assets/levels/level-1.map
index 87a278e..b148034 100644
--- a/assets/levels/level-1.map
+++ b/assets/levels/level-1.map
@@ -3,11 +3,11 @@
 -- 
 ----|----|----|----|----|----|----|----|
 WWWWGWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
+W   H                                  W
 W E H                                E W
 W   H                                  W
-W E BBBBBBBBBBBBBBBBBBBBBBBBBBBB     E W
-W                             H        W -
-W                             H        W
+W E BBBBBBBBBBBBBBBBBBBBBBBBBBBB     E W -
+W                             H        W 
 W                             H        W
 W                             H        W
 W                             H        W
@@ -15,14 +15,20 @@ W                             H        W -
 W                             H        W
 W                             H        W
 W                             H        W
-W                             H        W
+W                             H        W 
 W                             H        W -
 W                             H        W
+W                             H        W
+W                             H        W
+W                             H        W 
+W                             H        W -
 W                 P     BHBBBBBBB      W
 W                        H             W
 W                        H             W
+W                        H             W 
 W                        H             W -
 W                        H             W
 W                        H             W
+W                        H             W
 WBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBW
-WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
\ No newline at end of file
+WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW -
\ No newline at end of file
diff --git a/assets/levels/level1.tmx b/assets/levels/level1.tmx
index f34bc94..9bd7c6d 100644
--- a/assets/levels/level1.tmx
+++ b/assets/levels/level1.tmx
@@ -1,31 +1,60 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<map version="1.10" tiledversion="1.10.2" orientation="orthogonal" renderorder="right-down" width="40" height="25" tilewidth="16" tileheight="16" infinite="0" nextlayerid="2" nextobjectid="1">
+<map version="1.10" tiledversion="1.10.2" orientation="orthogonal" renderorder="right-down" width="40" height="25" tilewidth="16" tileheight="16" infinite="0" nextlayerid="3" nextobjectid="1">
  <tileset firstgid="1" source="tiles.tsx"/>
- <layer id="1" name="Tile Layer 1" width="40" height="25">
+ <layer id="2" name="Tile Layer 2" width="40" height="25">
   <data encoding="csv">
-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,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,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,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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+59,59,59,59,59,59,59,59,59,59,59,59,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,
+59,59,59,59,59,59,59,59,59,59,59,59,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,
+59,59,59,59,59,59,59,59,59,59,59,59,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,59,0,0,0,0,0,0,0,0,
+59,59,59,59,59,59,59,59,59,59,59,59,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,59,59,59,59,59,59,59,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,59,59,59,59,59,59,59,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,59,59,59,59,59,59,59,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,59,59,59,59,59,59,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,59,59,59,59,59,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,59,59,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,59,59,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,59,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,59,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,59,59,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,59,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,59,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,59,59,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,59,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,59,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,59,59,59,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,59,59,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,59,59,59,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,59,59,59,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,59,59,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,59,59,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
+</data>
+ </layer>
+ <layer id="1" name="Tile Layer 1" width="40" height="25" visible="0">
+  <data encoding="csv">
+59,59,59,59,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,
+59,59,59,59,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,
+59,59,59,59,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,
+59,59,59,59,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,
+59,59,59,59,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,
+59,59,59,59,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,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,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,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,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,201,201,601,201,201,201,201,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,601,0,201,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,601,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,601,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,601,601,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,601,601,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,601,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,601,601,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,601,601,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,601,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,601,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,601,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,59,59,601,59,201,59,59,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,59,59,601,59,59,59,59,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,59,59,601,59,59,59,59,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,59,59,601,601,59,59,59,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,59,59,59,601,601,59,59,59,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,59,59,59,59,601,59,59,59,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,59,59,59,59,601,601,59,59,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,59,59,59,601,601,59,59,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,59,59,59,59,59,601,59,59,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,59,59,59,59,59,601,59,59,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,59,59,59,59,59,601,59,59,0,0,0,0,
 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,
 251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251
 </data>
diff --git a/bloatrunner.tiled-session b/bloatrunner.tiled-session
index a6e2371..451aa2d 100644
--- a/bloatrunner.tiled-session
+++ b/bloatrunner.tiled-session
@@ -5,8 +5,8 @@
     },
     "activeFile": "assets/levels/level1.tmx",
     "expandedProjectPaths": [
-        "assets",
         ".",
+        "assets",
         "assets/levels"
     ],
     "fileStates": {
@@ -14,8 +14,8 @@
             "scale": 2.60953125,
             "selectedLayer": 0,
             "viewCenter": {
-                "x": 319.59762888449796,
-                "y": 200.03592599245556
+                "x": 319.2144182983055,
+                "y": 199.65271540626313
             }
         },
         "assets/levels/tiles.tsx": {
diff --git a/game/level.scm b/game/level.scm
index ae0d17f..8052553 100644
--- a/game/level.scm
+++ b/game/level.scm
@@ -6,13 +6,15 @@
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-64)
   
-  #:export (make-level
-            level-width
+  #:export (level-width
             level-height
             level-tiles
             level-entities
             level-player
-            level-goal)
+            level-goal
+            level-parse-file
+            level-tile-at
+            )
   
   )
 
@@ -54,7 +56,7 @@
            (map parse-tile (string->list line)))
          lines)))
 
-(define (parse-level content)
+(define (level-parse content)
   (let* ((lines (content->lines content))
          (width (string-length (car lines)))
          (height (length lines))
@@ -63,21 +65,27 @@
          (entities '()))
     (%make-level width height tiles #f #f entities)))
 
-(define (parse-level-file filename)
-  (parse-level (call-with-input-file filename get-string-all)))
+(define (level-parse-file filename)
+  (level-parse (call-with-input-file filename get-string-all)))
+
+
+(define (level-tile-at level x y)
+  (let ((index (+ (* y (level-width level)) x)))
+    (vector-ref (level-tiles level) index)))
+
 
 (test-begin "level")
 
 
-(test-assert (level? (parse-level "WWWWW\nWP GW\nWWWWW\n")))
-(test-equal (level-width (parse-level "WWWWW\nWP GW\nWWWWW\n")) 5)
-(test-equal (level-height (parse-level "WWWWW\nWP GW\nWWWWW\n")) 3)
-(test-equal (level-tiles (parse-level "W")) #(wall))
+(test-assert (level? (level-parse "WWWWW\nWP GW\nWWWWW\n")))
+(test-equal (level-width (level-parse "WWWWW\nWP GW\nWWWWW\n")) 5)
+(test-equal (level-height (level-parse "WWWWW\nWP GW\nWWWWW\n")) 3)
+(test-equal (level-tiles (level-parse "W")) #(wall))
 (test-equal 
-    (level-tiles (parse-level "WWWWW\nWP GW\nWWWWW\n")) 
+    (level-tiles (level-parse "WWWWW\nWP GW\nWWWWW\n")) 
   #(wall wall wall wall wall wall player empty goal wall wall wall wall wall wall))
 (test-equal 
-    (level-tiles (parse-level "--- ignore this line\nWWWWW\nWP GW - must be ignored\nWWWWW\n")) 
+    (level-tiles (level-parse "--- ignore this line\nWWWWW\nWP GW - must be ignored\nWWWWW\n")) 
   #(wall wall wall wall wall wall player empty goal wall wall wall wall wall wall))
 
 (test-equal (content->lines "WWWWW\nWP GW\nWWWWW\n") '("WWWWW" "WP GW" "WWWWW"))
@@ -90,7 +98,15 @@
 (test-equal (parse-tile #\G) 'goal)
 (test-equal (parse-tile #\space) 'empty)
 
-(test-equal (level-width (parse-level-file "assets/levels/level-1.map")) 40)
-(test-equal (level-height (parse-level-file "assets/levels/level-1.map")) 24)
+(test-equal (level-width (level-parse-file "assets/levels/level-1.map")) 40)
+(test-equal (level-height (level-parse-file "assets/levels/level-1.map")) 30)
+
+(test-equal 
+    (level-tile-at (level-parse "WWWWW\nWP GW\nWWWWW\n") 1 1)
+  'player)
+
+(test-equal 
+    (level-tile-at (level-parse "WWWWW\nWP GW\nWWWWW\n") 3 1)
+  'goal)
 
 (test-end "level")
diff --git a/game/main.scm b/game/main.scm
index a7f8d4f..499f7f6 100644
--- a/game/main.scm
+++ b/game/main.scm
@@ -11,6 +11,7 @@
 ;;; limitations under the License.
 
 (define-module (game main)
+  #:use-module (game level)
   #:use-module (chickadee)
   #:use-module (chickadee math rect)
   #:use-module (chickadee math vector)
@@ -20,31 +21,32 @@
   #:use-module (chickadee graphics text)
   #:use-module (chickadee graphics tile-map)
   #:use-module (system repl coop-server)
+  #:use-module (srfi srfi-64)
   #:export (launch-game))
 
 (define sprite-position (vec2 156.0 176.0))
 (define sprite-texture #f)
+(define tile-texture #f)
 (define tile-atlas #f)
+(define hero-texture #f)
 (define hero-atlas #f)
 (define text-position (vec2 0.0 280.0))
 (define tile-index 0)
 (define tile-map #f)
+(define level #f)
 (define repl #f)
 
+(define sprite-batch #f)
 
 (define (load)
-  (set! sprite-texture (load-image "assets/images/chickadee.png"))
-  (set! tile-atlas
-    (split-texture
-     (load-image "assets/images/simples_pimples.png"
-                 #:transparent-color black)
-     16 16))
-  (set! hero-atlas
-    (split-texture
-     (load-image "assets/images/lr_penguin2.png")
-     32 32))
-
+  (set! tile-texture (load-image "assets/images/simples_pimples.png"
+                                 #:transparent-color black))
+  (set! tile-atlas (split-texture tile-texture 16 16))
+  (set! hero-texture (load-image "assets/images/lr_penguin2.png"))
+  (set! hero-atlas (split-texture hero-texture 32 32))
   (set! tile-map (load-tile-map "assets/levels/level1.tmx"))
+  (set! sprite-batch (make-sprite-batch tile-texture #:capacity 1000))
+  (set! level (level-parse-file "assets/levels/level-1.map"))
   (set! repl (spawn-coop-repl-server)))
 
 (define (update dt)
@@ -52,9 +54,7 @@
   (set-vec2-y! sprite-position
                (floor-remainder (+ (vec2-y sprite-position) (* 50.0 dt)) 400.0))
   (set-vec2-x! text-position
-               (floor-remainder (+ (vec2-x text-position) (* 25.0 dt)) 640.0))
-  
-  )
+               (floor-remainder (+ (vec2-x text-position) (* 25.0 dt)) 640.0)))
 
 (define (draw-tile i)
   (let ((x (* 16 (remainder i 40)))
@@ -62,41 +62,78 @@
     (draw-sprite
      (texture-atlas-ref tile-atlas (+ i 3000 ))
      (vec2 x y)
-     #:scale (vec2 1.0 1.0)))
-  )
+     #:scale (vec2 1.0 1.0))))
 
 (define (draw-hero i)
   (let ((x (* 64 (remainder i 8)))
         (y (* 32 (quotient i 8)))
-        (id (tile-id))
         )
     (draw-sprite
      (texture-atlas-ref hero-atlas i)
      (vec2 (+ x 16) y)
      #:scale (vec2 1.0 1.0))
-    (draw-text (format #f "~2d" i) (vec2 x y) #:color white))
+    (draw-text (format #f "~A" i) (vec2 x y) #:color white))
   )
 
+(define (level-tile-index tile)
+  (case tile
+    ((empty) 3800)
+    ((brick) 3750)
+    ((wall) 3709)
+    ((ladder) 3350)
+    ((goal) 3404)
+    (else 3326)))
+
+
+
+(define (draw-level level)
+  (sprite-batch-clear! sprite-batch)
+  (for-each 
+   (lambda (row)
+     (for-each
+      (lambda (column)
+        (let* 
+            ((x (* 16 column))
+             (y (* 16 row))
+             (tile (level-tile-at level column row))
+             (texture-region (texture-atlas-ref tile-atlas (level-tile-index tile))))
+          (sprite-batch-add! sprite-batch (vec2 x y) 
+                             #:texture-region texture-region)))
+      (iota (level-width level) 0)))
+   
+   (iota (level-height level) 0))
+  (draw-sprite-batch sprite-batch))
 
 (define (draw _alpha)
-  (draw-sprite sprite-texture sprite-position)
-  (draw-text "Hello, Chickadee!" text-position )
+  (draw-level level)
   (let ((hero-position (vec2+ text-position (vec2 -8.0 16.0)))
         (hero-index (+ 56 (remainder (inexact->exact (floor (vec2-x text-position))) 8))))
     (draw-sprite
      (texture-atlas-ref hero-atlas hero-index)
      hero-position))
 
-  (draw-tile-map tile-map)
+  ;; (draw-tile-map tile-map)
   
   ;;(do ((i 0 (+ i 1)))
   ;; ((>= i 1000))
   ;; (draw-tile i))
-  (do ((i 0 (+ i 1)))
-      ((>= i 64))
-    (draw-hero i)))
+  ;; (do ((i 0 (+ i 1)))
+  ;;     ((>= i 64))
+  ;;   (draw-hero i))
+  )
 
 (define (launch-game args)
   (run-game #:load (lambda () (load))
             #:update (lambda (dt) (update dt))
             #:draw (lambda (alpha) (draw alpha))))
+
+
+(test-begin "tile draw")
+
+(test-equal "tile index"
+  (level-tile-index 'empty)
+  3800)
+
+(test-equal (level-tile-index 'brick) 3750)
+
+(test-end "tile draw")