sig

  type t = int

  val now : unit -> Bogue.Time.t

  val adaptive_fps : ?vsync:bool -> int -> (unit -> unit) * (unit -> unit)

end