Fli
type format =
| Fli
| Flc
type header = {
format : format;
width : int;
height : int;
frames : int;
delay : float;
}
val of_string : string -> header * Movie.t
val to_string : ?format:format -> delay:float -> Rgba_image.t list -> string