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