sig
  type t = { width : int; height : int; bitsPerPixel : int; }
  external getFullscreenModes : unit -> SFVideoMode.t array
    = "caml_sfVideoMode_getFullscreenModes"
  external getDesktopMode : unit -> SFVideoMode.t
    = "caml_sfVideoMode_getDesktopMode"
  external isValid : SFVideoMode.t -> bool = "caml_sfVideoMode_isValid"
  val make : ?bpp:int -> int * int -> SFVideoMode.t
end