sig
  val create : x:int -> y:int -> Tsdl.Sdl.point
  val x : Tsdl.Sdl.point -> int
  val y : Tsdl.Sdl.point -> int
  val set_x : Tsdl.Sdl.point -> int -> unit
  val set_y : Tsdl.Sdl.point -> int -> unit
end