diff --git a/src/screen.ml b/src/screen.ml new file mode 100644 index 0000000..5747e37 --- /dev/null +++ b/src/screen.ml @@ -0,0 +1,19 @@ +type pixel = { + r : char; + g : char; + b : char; + a : char; +} + +type t = { + width : int; + height : int; + data : pixel array; +} + +let init_screen w h = + { + width = w; + height = h; + data = Array.make_matrix h w { r = 255; g = 255; b = 255; a = 255 } + }