sig
  type t = Frame.t
  val is_partial : VFrame.t -> bool
  val size : 'a -> int
  val position : VFrame.t -> int
  val next_sample_position : VFrame.t -> int
  val add_break : VFrame.t -> int -> unit
  val get_content :
    Frame.t -> Source.source -> (Video.buffer array * int * int) option
  val content_of_type : channels:int -> VFrame.t -> Video.buffer array
end