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
end