Mare Overlay an object with new and DESTROY. Bootstrapper made to

[sdlgit/SDL_perl.git] / src / Core / objects / Overlay.xs

diff --git a/src/Core/objects/Overlay.xs b/src/Core/objects/Overlay.xs
index 0793345..e13c1bf 100644 (file)
--- a/src/Core/objects/Overlay.xs
+++ b/src/Core/objects/Overlay.xs
@@ -22,7 +22,26 @@ typedef struct{
   Uint8 **pixels;
   Uint32 hw_overlay:1;
 } SDL_Overlay;
-}
+
 
 =cut
 
+SDL_Overlay *
+overlay_new(CLASS, width, height, Uint32 format, display)
+       char* CLASS
+       int width
+       int height
+       Uint32 format
+       SDL_Surface *display;
+       CODE:
+               RETVAL = SDL_CreateYUVOverlay(width, height, format, display);
+       OUTPUT:
+               RETVAL
+
+void
+overlay_DESTROY(overlay)
+       SDL_Overlay *overlay
+       CODE:
+               SDL_FreeYUVOverlay(overlay);
+
+