diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-21 08:15:57 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-21 08:15:57 -0500 |
| commit | 3782dddb07974f1b1b79478d2f96384498e81bf4 (patch) | |
| tree | 1dd4a83aa84c5f2272c2db05e70ca45404070389 | |
| parent | 4da8c16d60a61eff5a1cb03e6573a4d43b3abd09 (diff) | |
[refactor] make-frameset to use clearler naming
| -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)))) |