Display maps from OCaml

src/core/cbindings.ml

@@ -2,3 +2,4 @@ let () =
   Callback.register "oboy_name" Version.name;
   Callback.register "oboy_version" Version.version;
   Callback.register "oboy_load" State.load_cartridge;
+  Callback.register "oboy_bg_map" Memory.background_map;

src/core/dune

@@ -3,6 +3,7 @@
 ; combine static pthread with dynamic libc
 (executable
 	(name cbindings)
+	(libraries bigarray)
 	(modes object))
 
 ; Standalone binary

src/core/memory.ml

@@ -6,6 +6,7 @@
  * LICENSE file at the top level directory of this source tree.
  *)
 
+open Bigarray
 open Bytes
 open Printf
 
@@ -107,3 +108,13 @@ let update_timers mem cycles =
       (* TODO: INT 50 - Timer interupt *)
     end
   end
+
+let background_map () =
+  let bg_map = Array2.create Bigarray.int8_unsigned Bigarray.c_layout 8 8 in
+  Array2.fill bg_map 0;
+  for j = 0 to (Array2.dim2 bg_map) - 1 do
+    for i = 0 to (Array2.dim1 bg_map) - 1 do
+      bg_map.{i, j} <- (i + j * Array2.dim1 bg_map) mod 4
+    done
+  done;
+  bg_map