diff options
| -rw-r--r-- | src/interactive/frameset.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interactive/frameset.lisp b/src/interactive/frameset.lisp index 86f445d..3ffbc18 100644 --- a/src/interactive/frameset.lisp +++ b/src/interactive/frameset.lisp @@ -47,7 +47,6 @@ (defmethod render ((fs frameset)) (render (current-frame-unit fs))) - (macrolet ((def-frameset-accessors (&rest accessor-names) (let ((defs @@ -73,7 +72,7 @@ (defun make-frameset (sequenced-assets &key (fps 2) asset-args) (let* ((asset-names (remove-duplicates sequenced-assets :test #'equal)) - (assets + (images (loop for name in asset-names collect (make-instance @@ -84,6 +83,6 @@ collect (position name asset-names :test #'equal)))) (make-instance 'frameset - :frames (make-array (length assets) :initial-contents assets) + :frames (make-array (length images) :initial-contents images) :sequence (make-array (length sequence) :initial-contents sequence) :wait-time (/ 1000.0 fps)))) |