Movietype t = {width : int;height : int;times : float array;duration : float;frame : int -> Rgba_image.t;}val frame_count : t -> intval of_frames : (Rgba_image.t * float) list -> tval sequential :
width:int ->
height:int ->
times:float array ->
duration:float ->
start:(unit -> 's) ->
next:('s -> 's * Rgba_image.t) ->
tval index_at : t -> float -> intval frame_at : t -> float -> Rgba_image.t