val check_header : string -> Images.header
val load : string -> Images.load_option list -> Images.t
val save : string -> Images.save_option list -> Images.t -> unit
type bmp =
  Bmp.bmp = {
  bmpFileHeader : bitmapfileheader;
  bmpInfoHeader : bitmapinfoheader;
  bmpRgbQuad : Images.rgb array;
  bmpBytes : string;
}
and bitmapfileheader =
  Bmp.bitmapfileheader = {
  bfType : int;
  bfSize : int;
  bfReserved1 : int;
  bfReserved2 : int;
  bfOffBits : int;
}
and bitmapinfoheader =
  Bmp.bitmapinfoheader = {
  biSize : int;
  biWidth : int;
  biHeight : int;
  biPlanes : int;
  biBitCount : bibitcount;
  biCompression : bicompression;
  biSizeImage : int;
  biXPelsPerMeter : int;
  biYPelsPerMeter : int;
  biClrUsed : int;
  biClrImportant : int;
}
and bicompression = Bmp.bicompression = BI_RGB | BI_RLE8 | BI_RLE4
and bibitcount = Bmp.bibitcount = Monochrome | Color16 | Color256 | ColorM
val load_bmp : string -> bmp
val save_bmp : string -> bmp -> unit