Module Mpeg1

type kind =
  1. | I
  2. | P
  3. | B
type how =
  1. | Intra
  2. | Forward
  3. | Backward
  4. | Both
  5. | Zero
  6. | Skipped
type info = {
  1. kind : kind;
  2. macroblocks : (how * (int * int) * (int * int)) array;
  3. mb_width : int;
}
type header = {
  1. width : int;
  2. height : int;
  3. rate : int * int;
  4. kinds : kind array;
}
val of_string : ?residual:bool -> string -> header * Movie.t * (int -> info)
val predict : int array -> int -> int -> int
val default_intra : int array
val prediction : Stdlib.Bytes.t -> stride:int -> rows:int -> x:int -> y:int -> size:int -> (int * int) -> int array
val dequantize : intra:bool -> q:int -> m:int -> int -> int
val picture_rates : (int * int) array