type range = {low : int;high : int;rate : int;active : bool;reverse : bool;
}type t = {width : int;height : int;planes : int;pixels : Stdlib.Bytes.t;palette : (int * int * int) array;ranges : range list;
}val steps_per_second : range -> floatval plane_rows : t -> int -> Stdlib.Bytes.t list