sig

  type t

  type sound = (int, Stdlib.Bigarray.int16_signed_elt) Tsdl.Sdl.bigarray

  type repeat = Repeat of int | Forever

  val test : unit -> unit

  val init : unit -> string option

  val create_mixer :

    ?tracks:int -> ?freq:int -> string option -> Bogue.Mixer.t

  val load_chunk : Bogue.Mixer.t -> string -> Bogue.Mixer.sound

  val play_chunk :

    ?track:int ->

    ?effects:(Bogue.Mixer.sound -> unit) list ->

    ?volume:float ->

    ?repeat:Bogue.Mixer.repeat ->

    Bogue.Mixer.t -> Bogue.Mixer.sound -> int option

  val change_volume : float -> Bogue.Mixer.sound -> unit

  val pause : Bogue.Mixer.t -> unit

  val unpause : Bogue.Mixer.t -> unit

  val close : Bogue.Mixer.t -> unit

end