X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=cd29c3e7e8a1a4a3c758eae9d975f275cba00cb9;hb=1243230551950fd65d351fdc347327459c1b5394;hp=bf7cea34a889da6d1e6074d54a53858374673515;hpb=a43020f63638aee6921f1c6333b0d81fa72d4e11;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index bf7cea3..cd29c3e 100644
--- 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)