From 2cbb8e4114c860e1774efd40d18661aee8ab2a72 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 6 Aug 2023 09:06:43 -0700 Subject: Fix frameset initialization --- src/interactive/frameset.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/interactive/frameset.lisp') diff --git a/src/interactive/frameset.lisp b/src/interactive/frameset.lisp index 25812f0..c866d04 100644 --- a/src/interactive/frameset.lisp +++ b/src/interactive/frameset.lisp @@ -32,12 +32,17 @@ (defmethod initialize-instance :after ((fs frameset) &key) (add-handler fs #'check-advance-frameset-index) - (with-slots (index sequence count frames) fs + (with-slots (index sequence count frames x y scale-x scale-y rotation) fs (setf index 0 count (length sequence)) (loop for frame across frames when frame - do (setf (unit-in-scene-p frame) fs)))) + do (setf (unit-in-scene-p frame) fs + (x frame) x + (y frame) y + (scale-x frame) scale-x + (scale-y frame) scale-y + (rotation frame) rotation)))) (defun current-frame-unit (fs) "Returns the unit be currently displaayed as the animation's frame." -- cgit v1.2.3