sig

  val pointer_pos : Tsdl.Sdl.event -> int * int

  val pos : unit -> int * int

  val window_pos : Tsdl.Sdl.window -> int * int

  val button_pos : Tsdl.Sdl.event -> int * int

  val finger_pos : Tsdl.Sdl.event -> float * float

  val wheel_y : Tsdl.Sdl.event -> int

  val set_wheel_speed : float -> unit

end