mirror of
https://github.com/open-goal/jak-project
synced 2026-06-30 03:49:08 -04:00
Tyler Wilding
25 lines
578 B
Common Lisp
25 lines
578 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: euler-h.gc
|
|
;; name in dgo: euler-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(define EulSafe
|
|
"Maybe euler angle storage orders?
|
|
What is this naming convention?"
|
|
(new 'static 'boxed-array :type int32 0 1 2 0)
|
|
)
|
|
|
|
(define EulNext (new 'static 'boxed-array :type int32 1 2 0 1))
|
|
|
|
(deftype euler-angles (vector)
|
|
"Just uses the same xyzw and data array as vector.
|
|
The `w` stores an integer that seems to have
|
|
bitfields for... something? Like maybe the order?
|
|
Euler angles are mostly unused, and the code is a bit of disaster."
|
|
()
|
|
)
|