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