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

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