Does this hack work?

PerlGameDev · Sep 17, 2011 · 40d01bf · 40d01bf
1 parent f190967
commit 40d01bf
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 3 deletions.
diff --git a/lib/SDLx/Controller.pm b/lib/SDLx/Controller.pm
@@ -52,6 +52,16 @@ sub new {
 	return $self;
 }
 
+
+sub delay {
+	my $self = shift;
+	my $delay = shift; 
+	my $ref = refaddr $self;
+
+	$_sleep_cycle{ $ref }  = $delay if $delay;
+	return $self; 
+}
+
 sub DESTROY {
 	my $self = shift;
 	my $ref = refaddr $self;

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
@@ -434,12 +434,22 @@ fill_rect ( dest, dest_rect, pixel )
 		RETVAL
 
 int
-blit_surface ( src, src_rect, dest, dest_rect )
+blit_surface ( src, src_rect_sv, dest, dest_rect_sv )
 	SDL_Surface *src
 	SDL_Surface *dest
-	SDL_Rect *src_rect
-	SDL_Rect *dest_rect
+	SV *src_rect_sv
+	SV *dest_rect_sv
 	CODE:
+		SDL_Rect* src_rect = NULL;
+		SDL_Rect* dest_rect = NULL;
+			if( SvOK(src_rect_sv ) )
+			{
+				src_rect = (SDL_Rect*)bag2obj(src_rect_sv);
+			}
+			if( SvOK( dest_rect_sv) )
+			{
+				dest_rect = (SDL_Rect*)bag2obj(src_rect_sv);
+			}
 		RETVAL = SDL_BlitSurface(src,src_rect,dest,dest_rect);
 	OUTPUT:
 		RETVAL