wip: animals

src/map.ml

@@ -30,14 +30,24 @@ let pp_background fmt b =
   in
   Format.pp_print_string fmt s
 
-type position =
+type simple_position =
   { x : int
   ; y : int
   ; dir : dir
   }
 
+type position =
+  { x : int
+  ; y : int
+  ; offset_x : float
+  ; offset_y : float
+  ; dir : dir
+  }
+
 let pp_position fmt p =
-  Format.fprintf fmt "(x = %d; y = %d; dir = %a)" p.x p.y pp_dir p.dir
+  Format.fprintf fmt
+    "(x = %d; y = %d; offset_x = %03f; offset_y = %03f; dir = %a)" p.x p.y
+    p.offset_x p.offset_y pp_dir p.dir
 
 type t =
   { tiles : background array array