Commit 52e5afa3 authored by Fabien Freling's avatar Fabien Freling

Add draft for Screen module.

parent 5789fe14
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 }
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment