15 lines
459 B
Scheme
15 lines
459 B
Scheme
(define-module (ww kamera)
|
|
#:use-module (chickadee math)
|
|
#:use-module (chickadee math vector)
|
|
#:use-module (chickadee math matrix)
|
|
#:export (poglej! view-matrix projection))
|
|
|
|
(define projection (perspective-projection (/ pi 3.0) (/ 4.0 3.0) 0.1 10.0))
|
|
(define view-matrix (make-identity-matrix4))
|
|
|
|
(define (poglej! position)
|
|
(look-at! view-matrix
|
|
position
|
|
(vec3+ position (vec3 0.0 0.0 1.0))
|
|
(vec3 0.0 1.0 0.0)))
|