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