mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
25 lines
479 B
Common Lisp
25 lines
479 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: matrix.gc
|
|
;; name in dgo: matrix
|
|
;; dgos: GAME, ENGINE
|
|
|
|
(defun matrix-identity! ((m matrix))
|
|
(rlet ((vf1 :class vf))
|
|
;; zero
|
|
(.xor.vf vf1 vf1 vf1)
|
|
(.svf (-> m vector 0) vf1)
|
|
(.svf (-> m vector 1) vf1)
|
|
(.svf (-> m vector 2) vf1)
|
|
(.svf (-> m vector 2) vf1)
|
|
)
|
|
(let ((one 1.0))
|
|
(set! (-> m data 15) one)
|
|
(set! (-> m data 10) one)
|
|
(set! (-> m data 5) one)
|
|
(set! (-> m data 0) one)
|
|
)
|
|
m
|
|
)
|