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