(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index bf7cea34a889da6d1e6074d54a53858374673515..cd29c3e7e8a1a4a3c758eae9d975f275cba00cb9 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -253,9 +253,11 @@
 
 ;;; Resources Manager
 (defstruct resource plist free-function time)
-(defstruct texture filename min-filter mag-filter)
 
-(let ((resources-table (make-hash-table :test 'equalp)))
+(defun make-texture (&key filename min-filter mag-filter)
+  `(:type texture :filename ,filename :min-filter ,min-filter :mag-filter ,mag-filter))
+
+(let ((resources-table (make-hash-table :test 'equal)))
 
   (defun set-resource (key plist free-function &key static)
     (setf (gethash key resources-table)

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 450ed133c0eb15e12d6aab2b4d762b35df3e6ce7..a66adf9c34f74685d8231d08113742863b3e431b 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -73,10 +73,8 @@
                      (cond ((/= zoomed-image 0) (values zoomed-image width height))))))))))
 
 (defun load-texture (filename &key (min-filter GL_LINEAR) (mag-filter GL_LINEAR) static)
-;  (init-textures)
-;  (init-video-mode)
   (let ((key (make-texture :filename filename :min-filter min-filter :mag-filter mag-filter)))
-    (cond ((get-resource key) t)
+    (cond ((get-resource key) key)
          (t
           (progn-textures
            (multiple-value-bind
@@ -92,7 +90,7 @@
                      (glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER min-filter)
                      (glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER mag-filter)
                      (SDL_FreeSurface image)
-                     (set-resource key (list :texture texture :width real-w :height real-h) nil :static static)
+                     (set-resource key `(:id-texture ,texture :width ,real-w :height ,real-h) nil :static static)
                      key)))))))))
 
 (defun draw-image-function (filename)
@@ -104,7 +102,7 @@
 
 (defun draw-quad (v1 v2 v3 v4 &key texture)
   (cond (texture (progn-textures
-                 (glBindTexture GL_TEXTURE_2D texture)
+                 (glBindTexture GL_TEXTURE_2D (getf texture :id-texture))
                  (begin-draw 4)
                  (draw-vertex v1 :texture-coord '(0 0))
                  (draw-vertex v2 :texture-coord '(1 0))
@@ -122,19 +120,19 @@
 
 (defun draw-cube (&key size texture)
   (let ((-size (neg size)))
-    (enable :textures texture)
-    (glNormal3f 0 0 1)
-    (draw-quad (list -size size size) (list size size size) (list size -size size) (list -size -size size) :texture texture)
-    (glNormal3f 0 0 -1)
-    (draw-quad (list -size -size -size) (list size -size -size) (list size size -size) (list -size size -size) :texture texture)
-    (glNormal3f 0 1 0)
-    (draw-quad (list size size size) (list -size size size) (list -size size -size) (list size size -size) :texture texture)
-    (glNormal3f 0 -1 0)
-    (draw-quad (list -size -size size) (list size -size size) (list size -size -size) (list -size -size -size) :texture texture)
-    (glNormal3f 1 0 0)
-    (draw-quad (list size -size -size) (list size -size size) (list size size size) (list size size -size) :texture texture)
-    (glNormal3f -1 0 0)
-    (draw-quad (list -size -size size) (list -size -size -size) (list -size size -size) (list -size size size) :texture texture)))
+    (progn-textures
+     (glNormal3f 0 0 1)
+     (draw-quad (list -size size size) (list size size size) (list size -size size) (list -size -size size) :texture texture)
+     (glNormal3f 0 0 -1)
+     (draw-quad (list -size -size -size) (list size -size -size) (list size size -size) (list -size size -size) :texture texture)
+     (glNormal3f 0 1 0)
+     (draw-quad (list size size size) (list -size size size) (list -size size -size) (list size size -size) :texture texture)
+     (glNormal3f 0 -1 0)
+     (draw-quad (list -size -size size) (list size -size size) (list size -size -size) (list -size -size -size) :texture texture)
+     (glNormal3f 1 0 0)
+     (draw-quad (list size -size -size) (list size -size size) (list size size size) (list size size -size) :texture texture)
+     (glNormal3f -1 0 0)
+     (draw-quad (list -size -size size) (list -size -size -size) (list -size size -size) (list -size size size) :texture texture))))
 
 (defun add-light (&key light position ambient (id GL_LIGHT1) (turn-on t))
   (init-lighting)
@@ -151,6 +149,3 @@
   (glRotatef xrot 1 0 0)
   (glRotatef yrot 0 1 0)
   (cond (zrot (glRotatef zrot 0 0 1))))
-
-(defun enable (&key textures)
-  (cond (textures (glEnable GL_TEXTURE_2D))))