Module Mpeg1_vlc

type mb_type = {
  1. quant : bool;
  2. forward : bool;
  3. backward : bool;
  4. pattern : bool;
  5. intra : bool;
}
val address_increment : (string * int) list
val mb_type_i : (string * mb_type) list
val mb_type_p : (string * mb_type) list
val mb_type_b : (string * mb_type) list
val coded_block_pattern : (string * int) list
val motion_code : (string * int) list
val dc_size_luminance : (string * int) list
val dc_size_chrominance : (string * int) list
type coefficient =
  1. | Coeff of int * int
  2. | Eob
  3. | Escape
val dct_first : (string * coefficient) list
val dct_next : (string * coefficient) list