(no commit message)

[gacela.git] / gacela.lisp

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)