jak-project/goal_src/engine/math/matrix.gc

;;-*-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
  )