summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/graphics/model.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/chickadee/graphics/model.scm b/chickadee/graphics/model.scm
index 0d8947c..152cee9 100644
--- a/chickadee/graphics/model.scm
+++ b/chickadee/graphics/model.scm
@@ -91,8 +91,8 @@
(define (render-state-world-model-matrix-mult! state matrix)
(matrix4-mult! (render-state-world-model-matrix state)
- (render-state-model-matrix state)
- matrix))
+ matrix
+ (render-state-model-matrix state)))
;;;
@@ -1019,7 +1019,7 @@
(match translation
(#(x y z)
(matrix4-translate (vec3 x y z))))))))
- (world-matrix (matrix4* parent-matrix matrix))
+ (world-matrix (matrix4* matrix parent-matrix))
(mesh (match (number-ref/optional obj "mesh")
(#f #f)
(n (vector-ref meshes n))))