update and add sprites

src/island.ml

@@ -17,12 +17,14 @@ let get request =
       [ txt "please update your browser or enable javascript" ]
   in
   let img_grass = mk_img "grass" in
-  let img_papy_bottom = mk_img "papy_bottom" in
+  let img_papy_down = mk_img "papy_down" in
   let img_water = mk_img "water" in
+  let img_space = mk_img "space" in
+  
 
   let page =
     div ~a:[ a_class [ "centered" ] ]
-    @@ [ canvas; img_grass; img_papy_bottom; img_water ]
+    @@ [ canvas; img_grass; img_papy_down; img_water; img_space ]
   in
 
   let js =

src/island_client.ml

@@ -4,7 +4,7 @@ module Map = struct
   type background =
     | Grass
     | Water
-    | Black
+    | Space
 
   let width = 1000
 
@@ -17,10 +17,10 @@ module Map = struct
         Array.init height (fun _y ->
             if Random.int 1000 <= 42 then Water else Grass ) )
 
-  let get_tile_kind ~x ~y = try m.(x).(y) with Invalid_argument _ -> Black
+  let get_tile_kind ~x ~y = try m.(x).(y) with Invalid_argument _ -> Space
 end
 
-let tile_size = 40
+let tile_size = 32
 
 let width = 835
 
@@ -55,10 +55,12 @@ let orig_y = (height - (tiles_per_h * tile_size)) / 2
 
 let grass = Jv.get Jv.global "grass"
 
-let papy_bottom = Jv.get Jv.global "papy_bottom"
+let papy_down = Jv.get Jv.global "papy_down"
 
 let water = Jv.get Jv.global "water"
 
+let space = Jv.get Jv.global "space"
+
 let draw_map () =
   let player_x, player_y = !Map.player_pos in
   Format.printf "player_x = %d@\nplayer_y = %d@\n" player_x player_y;
@@ -70,7 +72,7 @@ let draw_map () =
         match Map.get_tile_kind ~x:mapx ~y:mapy with
         | Grass -> grass
         | Water -> water
-        | Black -> water
+        | Space -> space
       in
       let (_ : Jv.t) =
         Jv.call context "drawImage"
@@ -84,7 +86,7 @@ let draw_map () =
   done;
   let (_ : Jv.t) =
     Jv.call context "drawImage"
-      [| papy_bottom; Jv.of_int (width / 2); Jv.of_int (height / 2) |]
+      [| papy_down; Jv.of_int (width / 2); Jv.of_int (height / 2) |]
   in
   ()
 
@@ -148,7 +150,7 @@ let () =
 let draw_papy () =
   let (_ : Jv.t) =
     Jv.call context "drawImage"
-      [| papy_bottom
+      [| papy_down
        ; Jv.of_int ((width / 2) - (tile_size / 2))
        ; Jv.of_int ((height / 2) - (tile_size / 2))
       |]