mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 07:37:45 -04:00
15 lines
268 B
Common Lisp
15 lines
268 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: vector.gc
|
|
;; name in dgo: vector
|
|
;; dgos: GAME, ENGINE
|
|
|
|
(defun vector-identity! ((arg0 vector))
|
|
(set! (-> arg0 data 0) 1.0)
|
|
(set! (-> arg0 data 1) 1.0)
|
|
(set! (-> arg0 data 2) 1.0)
|
|
(set! (-> arg0 data 3) 1.0)
|
|
arg0
|
|
)
|