From 96b3a372b58c8181ef9fb401f1502457f5ab6e6c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 21 Sep 2021 20:20:08 -0400 Subject: examples: model: Fix view matrix. --- examples/model.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'examples') diff --git a/examples/model.scm b/examples/model.scm index 8ba9b4a..3e17588 100644 --- a/examples/model.scm +++ b/examples/model.scm @@ -47,9 +47,10 @@ (vec3-z position))) ;; Compute new view matrix - (matrix4-translate! translation position) - (matrix4-identity! view-matrix) - (matrix4-mult! view-matrix view-matrix translation) + (look-at! view-matrix + position + (vec3+ position (vec3 0.0 0.0 1.0)) + (vec3 0.0 1.0 0.0)) ;; Rotate the model about the y-axis (set! y-rotation (+ y-rotation 0.03)) -- cgit v1.2.3