Fix frameset initialization

1 files changed, 7 insertions, 2 deletions

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."