From cfad9102eb45541eb9b3308ae75f3f6a024381e0 Mon Sep 17 00:00:00 2001 From: jsancho Date: Tue, 31 Aug 2010 09:19:11 +0000 Subject: [PATCH] --- Makefile | 2 +- gacela_SDL.lisp | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Makefile b/Makefile index f38a6d7..72e5898 100644 --- a/Makefile +++ b/Makefile @@ -1,7 +1,7 @@ LISP = gcl INC = -I/usr/include/FTGL -I/usr/include/freetype2 # LIBS = -lSDL -lSDL_image -lSDL_ttf -lSDL_mixer -lSDL_gfx -lGL -lGLU -lftgl -LIBS = -lSDL -lSDL_image -lSDL_mixer -lGL -lGLU -lftgl +LIBS = -lSDL -lSDL_image -lSDL_mixer -lSDL_gfx -lGL -lGLU -lftgl OBJ = gacela.o gacela_misc.o gacela_SDL.o gacela_GL.o gacela_FTGL.o \ gacela_draw.o gacela_ttf.o gacela_events.o gacela_mobs.o \ diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp index 47a8a27..eff4f1a 100644 --- a/gacela_SDL.lisp +++ b/gacela_SDL.lisp @@ -144,6 +144,9 @@ (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")) @@ -184,6 +187,7 @@ (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 -- 2.39.2