From 3782dddb07974f1b1b79478d2f96384498e81bf4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 21 Jul 2022 08:15:57 -0500 Subject: [refactor] make-frameset to use clearler naming --- src/interactive/frameset.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/interactive') 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)))) -- cgit v1.2.3