let
flat_background () =
Caml
.
Array
.make 4 0.25