reveal inconsistency in child transformations

wh-engine/actor.lisp

@@ -73,7 +73,6 @@
   (:documentation "Base class for entities in the game."))
 
 (defmethod make-load-form ((this actor) &optional environment)
-  ;(make-load-form-saving-slots this :environment environment)
   (make-generic-load-form this :environment environment))
 
 (defmethod scene ((this actor))

wh-engine/component.lisp

@@ -18,7 +18,6 @@
   (:documentation "Base class for components attached to game entities."))
 
 (defmethod make-load-form ((this component) &optional environment)
-  ;(make-load-form-saving-slots this :environment environment)
   (make-generic-load-form this :environment environment))
 
 (defmethod actor ((this component))

wh-engine/main.lisp

@@ -119,7 +119,7 @@
   "List of all known views.")
 
 (defun register-test-scene ()
-  (let (test-scene test-actor test-drawable test-actor-2 camera-actor camera-view child-actor)
+  (let (test-scene test-actor test-drawable test-actor-2 camera-actor camera-view child-actor grandchild-actor)
     (setf test-scene (make-instance 'scene
                                     :id -1
                                     :name "Test scene"))
@@ -145,7 +145,7 @@
 
     (setf child-actor (make-instance 'actor
                                      :name "Child Actor"
-                                     :location (vec2 0.0 0.5)
+                                     :location (vec2 0 0.5)
                                      :z-layer -2))
     [test-scene (add-actor child-actor)]
     [test-actor-2 (add-child child-actor)]
@@ -154,6 +154,18 @@
                                                :colour (vec4 0.0 1.0 1.0 1.0)))
     ]
 
+    (setf grandchild-actor (make-instance 'actor
+                                          :name "Grandchild Actor"
+                                          :location (vec2 0 1)
+                                          :scale (vec2 0.25 0.25)
+                                          :z-layer 1))
+    [test-scene (add-actor grandchild-actor)]
+    [child-actor (add-child grandchild-actor)]
+
+    [grandchild-actor (add-component (make-instance 'drawable-test
+                                                    :colour (vec4 1.0 1.0 0.0 0.0)))
+    ]
+
     (setf camera-actor (make-instance 'actor
                                       :name "Camera"))
     [test-scene (add-actor camera-actor)]

wh-engine/scene.lisp

@@ -23,7 +23,6 @@
   (:documentation "A scene containing game entities."))
 
 (defmethod make-load-form ((this scene) &optional environment)
-  ;(make-load-form-saving-slots this :environment environment)
   (make-generic-load-form this :environment environment))
 
 (defmethod print-object ((this scene) stream)