type image = {width : int;height : int;rgba : (int, Stdlib.Bigarray.int8_unsigned_elt, Stdlib.Bigarray.c_layout)
Stdlib.Bigarray.Array1.t;
}type color = {rgb : int;a : float;
}val sample_nearest : image -> (float * float) -> colorval sample_bilinear : image -> (float * float) -> colortype filter = | Nearest| Bilinear