(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index 617ad3ccd76185f18473dd2bc489962601917fe4..efdeb60e95d68f58d411ad69e086fe967a25ac70 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -25,7 +25,6 @@
 (defvar *gacela-freq* 30)
 (defvar *transparent-color* '(:red 0 :green 0 :blue 0))
 (defvar *background-color* '(:red 0 :green 0 :blue 0))
-(defvar *zoom* -10)
 
 ;;; SDL Initialization Subsystem
 (let (initialized)
@@ -92,7 +91,7 @@
   (glShadeModel GL_SMOOTH)
   (glClearColor 0 0 0 0)
   (glClearDepth 1)
-  (glEnable GL_DEPTH_TEST)
+  (glDisable GL_DEPTH_TEST)
   (glDepthFunc GL_LEQUAL)
 ;  (glEnable GL_BLEND)
 ;  (glBlendFunc GL_SRC_ALPHA GL_ONE)
@@ -357,7 +356,6 @@
      (do () ((quit?))
         (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
         (glLoadIdentity)
-        (translate 0 0 *zoom*)
         ,@code
         (SDL_GL_SwapBuffers)
         (SDL_Delay (- *gacela-freq* (rem (SDL_GetTicks) *gacela-freq*)))

diff --git a/gacela_GL.lisp b/gacela_GL.lisp
index 4ab7c888146bb45338dbb8cdac19c64752605010..bce7813d8351cdf256a815fc210ed3a437e56397 100644 (file)
--- a/gacela_GL.lisp
+++ b/gacela_GL.lisp
@@ -126,6 +126,9 @@
 (defcfun "void gacela_glTranslatef (float x, float y, float z)" 0
   "glTranslatef (x, y, z);")
 
+(defcfun "void gacela_glVertex2f (float x, float y)" 0
+  "glVertex2f (x, y);")
+
 (defcfun "void gacela_glVertex3f (float x, float y, float z)" 0
   "glVertex3f (x, y, z);")
 
@@ -194,6 +197,7 @@
 (defentry glRotatef (float float float float) (void "gacela_glRotatef"))
 (defentry glShadeModel (int) (void "gacela_glShadeModel"))
 (defentry glTranslatef (float float float) (void "gacela_glTranslatef"))
+(defentry glVertex2f (float float) (void "gacela_glVertex2f"))
 (defentry glVertex3f (float float float) (void "gacela_glVertex3f"))
 (defentry glViewport (int int int int) (void "gacela_glViewport"))
 (defentry glGenTextures (int) (object "gacela_glGenTextures"))

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 7a6dca6e08e3c9782b1cd233b74418bbc266baec..364163b65186240d29cf593d86d14652aacc9725 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -17,6 +17,8 @@
 
 (in-package :gacela)
 
+(defmacro set-dimension (&key 2d 3d))
+
 (defun draw (&rest vertexes)
   (begin-draw (length vertexes))
   (draw-vertexes vertexes)
@@ -32,7 +34,7 @@
           (draw-vertexes (cdr vertexes)))))
 
 (defun draw-vertex (vertex &key texture-coord)
-  (cond ((consp (car vertex)) (apply #'glColor3f (car vertex)) (apply #'glVertex3f (cadr vertex)))
+  (cond ((consp (car vertex)) (draw-color (car vertex)) (apply #'glVertex3f (cadr vertex)))
        (t (cond (texture-coord (apply #'glTexCoord2f texture-coord)))
           (apply #'glVertex3f vertex))))