summaryrefslogtreecommitdiff
path: root/examples/model.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/model.scm')
-rw-r--r--examples/model.scm3
1 files changed, 0 insertions, 3 deletions
diff --git a/examples/model.scm b/examples/model.scm
index cc73918..5980e85 100644
--- a/examples/model.scm
+++ b/examples/model.scm
@@ -8,7 +8,6 @@
(ice-9 format))
(define projection (perspective-projection (/ pi 3) (/ 4.0 3.0) 0.1 500.0))
-(define rotation (make-identity-matrix4))
(define translation (make-identity-matrix4))
(define view-matrix (make-identity-matrix4))
(define model-matrix (make-identity-matrix4))
@@ -49,10 +48,8 @@
(vec3-z position)))
;; Compute new view matrix
- (matrix4-rotate-y! rotation theta)
(matrix4-translate! translation position)
(matrix4-identity! view-matrix)
- (matrix4-mult! view-matrix view-matrix rotation)
(matrix4-mult! view-matrix view-matrix translation)
;; Rotate the model about the y-axis