mirror of
https://github.com/open-goal/jak-project
synced 2026-07-05 21:49:28 -04:00
Hat Kid
9a4929ac0c
- `vector-h` - `gravity-h` - `bounding-box-h` - `matrix-h` - `quaternion-h` - `euler-h` - `transform-h` - `geometry-h` - `trigonometry-h` - `transformq-h` - `bounding-box` - `matrix` - `matrix-compose` - `transform` - `quaternion` - `euler` - `trigonometry` Not a whole lot of changes, just a couple of new functions and one new file (`matrix-compose`).
25 lines
570 B
Common Lisp
25 lines
570 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: euler-h.gc
|
|
;; name in dgo: euler-h
|
|
;; dgos: 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."
|
|
()
|
|
)
|