From: jsancho <devnull@localhost>
Date: Thu, 5 May 2011 06:16:59 +0000 (+0000)
Subject: SDL_SetVideoMode funcionando
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=5d05f471fb4bd8eb8b3d3c0aaf6fdcae049be4b8;p=gacela.git

SDL_SetVideoMode funcionando
---

diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index d75af2c..98b4a5c 100644
--- a/src/gacela_SDL.c
+++ b/src/gacela_SDL.c
@@ -18,6 +18,10 @@ gacela_SDL_Quit ()
 SCM
 gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
 {
+  return scm_int2num (SDL_SetVideoMode (scm_num2int (width, 0, "SDL_SetVideoMode"), \
+					scm_num2int (height, 0, "SDL_SetVideoMde"), \
+					scm_num2int (bpp, 0, "SDL_SetVideoMde"), \
+					scm_num2int (flags, 0, "SDL_SetVideoMde")));
 }
 
 void*
@@ -46,5 +50,6 @@ SDL_register_functions (void* data)
 
   scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
   scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
+  scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);
   return NULL;
 }