"SDL_Quit ();")
(defcfun "int gacela_SDL_SetVideoMode (int width, int height, int bpp, int flags)" 0
+ "close(2);"
"return SDL_SetVideoMode (width, height, bpp, flags);")
(defcfun "void gacela_SDL_WM_SetCaption (char *title, char *icon)" 0
(defcfun "int gacela_SDL_ByteOrder (void)" 0
"return SDL_BYTEORDER;")
+(defcfun "int gacela_zoomSurface (int src, double zoomx, double zoomy, int smooth)" 0
+ "return zoomSurface (src, zoomx, zoomy, smooth);")
+
(defentry SDL_Init (int) (int "gacela_SDL_Init"))
(defentry SDL_Quit () (void "gacela_SDL_Quit"))
(defentry SDL_SetVideoMode (int int int int) (int "gacela_SDL_SetVideoMode"))
(defentry SDL_GL_SwapBuffers () (void "gacela_SDL_GL_SwapBuffers"))
(defentry SDL_EnableKeyRepeat (int int) (int "gacela_SDL_EnableKeyRepeat"))
(defentry SDL_ByteOrder () (int "gacela_SDL_ByteOrder"))
+(defentry zoomSurface (int double double int) (int "gacela_zoomSurface"))
;;; C-Gacela Functions
(defcfun "int gacela_surface_format (int surface)" 0
"const SDL_Surface *s = surface;"
"return s->format->BytesPerPixel;")
+(defcfun "int gacela_resize_surface (int surface, int width, int height)" 0
+ "const SDL_Surface *s = surface;"
+ "if (s->w == width && s->h == height) {"
+ " return s;"
+ "} else {"
+ " return zoomSurface (s, width / s->w, height / s->h, 0);"
+ "}")
+
;(defentry apply-surface2 (int int int int int int int int int) (void "apply_surface"))
;(defentry render-text2 (int string int int int) (int "render_text"))
;(defentry box-collision (int int int int int int) (int "box_collision"))
(defentry surface-h (int) (int "gacela_surface_h"))
(defentry surface-pixels (int) (int "gacela_surface_pixels"))
(defentry surface-format-BytesPerPixel (int) (int "gacela_surface_format_BytesPerPixel"))
+(defentry resize-surface (int int int) (int "gacela_resize_surface"))