(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index e00837b3758fa1ac2dd232bc7aab62bf96f84e27..cd29c3e7e8a1a4a3c758eae9d975f275cba00cb9 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -253,7 +253,9 @@
 
 ;;; Resources Manager
 (defstruct resource plist free-function time)
-(defstruct texture filename min-filter mag-filter)
+
+(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)))