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
end