sig
  type time_src =
      [ `of_microseconds of int64
      | `of_milliseconds of int32
      | `of_seconds of float
      | `of_sfTime of SFTime.t ]
  class time :
    Oo_sfml_system.time_src ->
    object
      val time : SFTime.t
      method as_microseconds : unit -> int64
      method as_milliseconds : unit -> int32
      method as_seconds : unit -> float
      method t : SFTime.t
    end
  module Time :
    sig
      val add :
        Oo_sfml_system.time -> Oo_sfml_system.time -> Oo_sfml_system.time
      val sub :
        Oo_sfml_system.time -> Oo_sfml_system.time -> Oo_sfml_system.time
      val mul : float -> Oo_sfml_system.time -> Oo_sfml_system.time
      val mult : Oo_sfml_system.time -> float -> Oo_sfml_system.time
      val div : Oo_sfml_system.time -> float -> Oo_sfml_system.time
      val ( + ) :
        Oo_sfml_system.time -> Oo_sfml_system.time -> Oo_sfml_system.time
      val ( - ) :
        Oo_sfml_system.time -> Oo_sfml_system.time -> Oo_sfml_system.time
      val ( * ) : float -> Oo_sfml_system.time -> Oo_sfml_system.time
      val ( *. ) : Oo_sfml_system.time -> float -> Oo_sfml_system.time
      val ( / ) : Oo_sfml_system.time -> float -> Oo_sfml_system.time
    end
  val sleep : duration:Oo_sfml_system.time -> unit
  val sleep_sec : duration:float -> unit
  val sleep_msec : duration:int32 -> unit
  val sleep_musec : duration:int64 -> unit
  type time_as = [ `microseconds | `milliseconds | `seconds ]
  class clock :
    object
      val clock : SFClock.t
      method destroy : unit -> unit
      method elapsed_time_as_microseconds : int64
      method elapsed_time_as_milliseconds : int32
      method elapsed_time_as_seconds : float
      method get_elapsed_time : unit -> SFTime.t
      method get_elapsed_time_as : Oo_sfml_system.time_as -> float
      method restart : unit -> SFTime.t
      method restart_as : Oo_sfml_system.time_as -> float
      method restart_as_microseconds : unit -> int64
      method restart_as_milliseconds : unit -> int32
      method restart_as_seconds : unit -> float
    end
  class pausable_clock :
    paused:bool ->
    object
      val clock : SFPausableClock.t
      method destroy : unit -> unit
      method elapsed_time : SFTime.t
      method get_elapsed_time : unit -> SFTime.t
      method is_paused : unit -> bool
      method pause : unit -> unit
      method restart : paused:bool -> SFTime.t
      method start : unit -> unit
    end
  val config : < compiled_version : int * int >
end