sig
  class type t =
    object
      method close : unit
      method frame_rate : Video.FPS.t
      method height : int
      method read : Video.buffer -> int -> int -> int
      method width : int
    end
end