(no commit message)

diff --git a/Makefile b/Makefile
index d0cbb68dc2c67f2b2d1380debd5b7720e47def2c..f38a6d766ae7a24dacbb135e77382ff2cdeac51c 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,6 +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_ttf -lSDL_mixer -lSDL_gfx -lGL -lGLU -lftgl
+LIBS = -lSDL -lSDL_image -lSDL_mixer -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.lisp b/gacela.lisp
index 45010602874f72dc9a980f767edd549e7a622535..895bb381749829d25cdadc16a360fe6881408df7 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -267,7 +267,7 @@
     (do () ((quit?))
        (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
        (glLoadIdentity)
-(gluLookAt 0 0 50 0 0 0 0 1 0)
+;(gluLookAt 0 0 50 0 0 0 0 1 0)
        (when (functionp game-code) (funcall game-code))
        (SDL_GL_SwapBuffers)
        (delay-frame)

diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp
index 6ff5c1b02278dbe9d5860fc920329b0af771f0d3..6f3376e716fa385aeb34c0dc2404fd7ae8733bdd 100644 (file)
--- a/gacela_SDL.lisp
+++ b/gacela_SDL.lisp
@@ -29,9 +29,7 @@
 
 (clines "#include <SDL/SDL.h>")
 (clines "#include <SDL/SDL_image.h>")
-(clines "#include <SDL/SDL_ttf.h>")
 (clines "#include <SDL/SDL_mixer.h>")
-(clines "#include <SDL/SDL_rotozoom.h>")
 
 ;;; SDL constants as functions
 (mapcconst int "int" "SDL_INIT_TIMER")
@@ -140,9 +138,6 @@
 (defcfun "int gacela_SDL_EnableKeyRepeat (int delay, int interval)" 0
   "return SDL_EnableKeyRepeat (delay, interval);")
 
-(defcfun "int gacela_zoomSurface (int src, float zoomx, float zoomy, int smooth)" 0
-  "return zoomSurface (src, zoomx, zoomy, smooth);")
-
 (defcfun "int gacela_SDL_ByteOrder (void)" 0
   "return SDL_BYTEORDER;")
 
@@ -185,7 +180,6 @@
 ;(defentry free (int) (void "gacela_free"))
 (defentry SDL_GL_SwapBuffers () (void "gacela_SDL_GL_SwapBuffers"))
 (defentry SDL_EnableKeyRepeat (int int) (int "gacela_SDL_EnableKeyRepeat"))
-(defentry zoomSurface (int float float int) (int "gacela_zoomSurface"))
 (defentry SDL_ByteOrder () (int "gacela_SDL_ByteOrder"))
 
 ;;; C-Gacela Functions

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 4b6f58fb126ec746a7c6b0b9d995226ae29bc03e..d992ba5d57cbcca68a40f7d3f1f44e32368e3b74 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -128,7 +128,7 @@
 (defun draw-square (&key (size 1) texture)
   (draw-rectangle size size :texture texture))
 
-(defun draw-cube (&key size texture texture-1 texture-2 texture-3 texture-4 texture-5 texture-6)
+(defun draw-cube (&key (size 1) texture texture-1 texture-2 texture-3 texture-4 texture-5 texture-6)
   (let ((-size (neg size)))
     (progn-textures
      (glNormal3f 0 0 1)