sig   val create : x:int -> y:int -> w:int -> h:int -> Tsdl.Sdl.rect   val x : Tsdl.Sdl.rect -> int   val y : Tsdl.Sdl.rect -> int   val w : Tsdl.Sdl.rect -> int   val h : Tsdl.Sdl.rect -> int   val set_x : Tsdl.Sdl.rect -> int -> unit   val set_y : Tsdl.Sdl.rect -> int -> unit   val set_w : Tsdl.Sdl.rect -> int -> unit   val set_h : Tsdl.Sdl.rect -> int -> unit end