X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2FCore%2Fobjects%2FOverlay.xs;h=1d03b1739d9c44a0425d7bcfdc4ab04a733b3b11;hb=f73f699aff1bce1c02d5e88f3c20f34f2793dbda;hp=0793345e28ab7947b08d9f9f87effb746c4f6564;hpb=ae2d15942b5ee719ea5bb81d2486f8d1bb3a4f21;p=sdlgit%2FSDL_perl.git

diff --git a/src/Core/objects/Overlay.xs b/src/Core/objects/Overlay.xs
index 0793345..1d03b17 100644
--- a/src/Core/objects/Overlay.xs
+++ b/src/Core/objects/Overlay.xs
@@ -22,7 +22,67 @@ typedef struct{
   Uint8 **pixels;
   Uint32 hw_overlay:1;
 } SDL_Overlay;
-}
+
 
 =cut
 
+SDL_Overlay *
+overlay_new(CLASS, width, height, format, display)
+	char* CLASS
+	int width
+	int height
+	Uint32 format
+	SDL_Surface *display;
+	CODE:
+		RETVAL = SDL_CreateYUVOverlay(width, height, format, display);
+	OUTPUT:
+		RETVAL
+
+int
+overlay_w( overlay )
+	SDL_Overlay* overlay
+	CODE:
+		RETVAL = overlay->w;
+	OUTPUT:
+		RETVAL
+
+int
+overlay_h( overlay )
+	SDL_Overlay* overlay
+	CODE:
+		RETVAL = overlay->h;
+	OUTPUT:
+		RETVAL
+
+int
+overlay_planes( overlay )
+	SDL_Overlay* overlay
+	CODE:
+		RETVAL = overlay->planes;
+	OUTPUT:
+		RETVAL
+
+Uint32 
+overlay_hwoverlay( overlay )
+	SDL_Overlay* overlay
+	CODE:
+		RETVAL = overlay->hw_overlay;		
+	OUTPUT:
+		RETVAL
+
+Uint32
+overlay_format( overlay )
+	SDL_Overlay* overlay
+	CODE:
+		RETVAL = overlay->format;		
+	OUTPUT:
+		RETVAL
+
+
+void
+overlay_DESTROY(overlay)
+	SDL_Overlay *overlay
+	CODE:
+		SDL_FreeYUVOverlay(overlay);
+
+