Added update_rects

[sdlgit/SDL_perl.git] / src / Core / Video.xs

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index 753bca6..a7a6b34 100644 (file)
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -58,6 +58,7 @@ AV*
 list_modes ( format, flags )
        Uint32 flags
        SDL_PixelFormat *format
+
        CODE:
                SDL_Rect **mode;
                RETVAL = newAV();
@@ -75,5 +76,40 @@ list_modes ( format, flags )
                RETVAL
 
 
+int
+video_video_mode_ok ( width, height, bpp, flags )
+       int width
+       int height
+       int bpp
+       Uint32 flags
+       CODE:
+               RETVAL = SDL_VideoModeOK(width,height,bpp,flags);
+       OUTPUT:
+               RETVAL
+
+void
+video_update_rect ( surface, x, y, w ,h )
+       SDL_Surface *surface
+       int x
+       int y
+       int w
+       int h
+       CODE:
+               SDL_UpdateRect(surface,x,y,w,h);
+
+void
+video_update_rects ( surface, ... )
+       SDL_Surface *surface
+       CODE:
+               SDL_Rect *rects;
+               int num_rects,i;
+               if ( items < 2 ) return;
+               num_rects = items - 1;
+               rects = (SDL_Rect *)safemalloc(sizeof(SDL_Rect)*items);
+               for(i=0;i<num_rects;i++) {
+                       rects[i] = *(SDL_Rect *)SvIV((SV*)SvRV( ST(i + 1) ));
+               }
+               SDL_UpdateRects(surface,num_rects,rects);
+               safefree(rects);