mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
59 lines
1.5 KiB
Common Lisp
59 lines
1.5 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: matrix-h.gc
|
|
;; name in dgo: matrix-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; A 4x4 matrix, stored in row-major order
|
|
(deftype matrix (structure)
|
|
((data float 16 :offset-assert 0)
|
|
(vector vector 4 :inline :offset 0)
|
|
(quad uint128 4 :offset 0)
|
|
)
|
|
:method-count-assert 10
|
|
:size-assert #x40
|
|
:flag-assert #xa00000040
|
|
(:methods
|
|
(transform-vectors! (_type_ (inline-array vector) (inline-array vector) int) none 9)
|
|
)
|
|
)
|
|
|
|
;; A 3x3 matrix, stored in row-major order.
|
|
;; NOTE: the rows each have an extra 4-bytes of padding
|
|
;; so this is really a 3x4 matrix.
|
|
(deftype matrix3 (structure)
|
|
((data float 12 :offset-assert 0)
|
|
(vector vector 3 :inline :offset 0)
|
|
(quad uint128 3 :offset 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x30
|
|
:flag-assert #x900000030
|
|
)
|
|
|
|
;; guess on signs here
|
|
(deftype matrix4h (structure)
|
|
((data int16 16 :offset-assert 0)
|
|
(vector4h vector4h 4 :inline :offset 0)
|
|
(long int64 4 :offset 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
(defun matrix-copy! ((dst matrix) (src matrix))
|
|
(let ((v1-0 (-> src vector 0 quad))
|
|
(a2-0 (-> src vector 1 quad))
|
|
(a3-0 (-> src vector 2 quad))
|
|
(a1-1 (-> src vector 3 quad))
|
|
)
|
|
(set! (-> dst vector 0 quad) v1-0)
|
|
(set! (-> dst vector 1 quad) a2-0)
|
|
(set! (-> dst vector 2 quad) a3-0)
|
|
(set! (-> dst vector 3 quad) a1-1)
|
|
)
|
|
dst
|
|
)
|