mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
656489e942
* temp * temp2 * basic case support * working for or without else * support more cases * clean up to drawable headers * ocean * format json
92 lines
2.3 KiB
Common Lisp
92 lines
2.3 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: mspace-h.gc
|
|
;; name in dgo: mspace-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; mspace is the skeleton-based animation system.
|
|
|
|
(deftype joint (basic)
|
|
((name basic :offset-assert 4)
|
|
(number int32 :offset-assert 8)
|
|
(parent joint :offset-assert 12)
|
|
(bind-pose matrix :inline :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x50
|
|
:flag-assert #x900000050
|
|
)
|
|
|
|
(deftype bone-cache (structure)
|
|
((bone-matrix uint32 :offset-assert 0)
|
|
(parent-matrix uint32 :offset-assert 4)
|
|
(dummy uint32 :offset-assert 8)
|
|
(frame uint32 :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
(deftype bone (structure)
|
|
((transform matrix :inline :offset-assert 0)
|
|
(position vector :inline :offset 48) ;; overlays the matrix
|
|
(scale vector :inline :offset-assert 64)
|
|
(cache bone-cache :inline :offset-assert 80)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x60
|
|
:flag-assert #x900000060
|
|
)
|
|
|
|
(deftype skeleton (inline-array-class)
|
|
((bones bone :inline :dynamic))
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
(set! (-> skeleton heap-base) 96)
|
|
|
|
(deftype cspace (structure)
|
|
((parent cspace :offset-assert 0)
|
|
(joint joint :offset-assert 4)
|
|
(joint-num int16 :offset-assert 8)
|
|
(geo basic :offset-assert 12)
|
|
(bone bone :offset-assert 16)
|
|
(param0 function :offset-assert 20)
|
|
(param1 basic :offset-assert 24)
|
|
(param2 basic :offset-assert 28)
|
|
)
|
|
:method-count-assert 10
|
|
:size-assert #x20
|
|
:flag-assert #xa00000020
|
|
;; params are loaded with signed loads.
|
|
(:methods
|
|
(new (symbol type basic) _type_ 0)
|
|
(dummy-9 (_type_ basic) _type_ 9)
|
|
)
|
|
)
|
|
|
|
(deftype cspace-array (inline-array-class)
|
|
((data cspace :inline :dynamic :offset-assert 16))
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
(set! (-> cspace-array heap-base) 32)
|
|
|
|
|
|
(defmethod print cspace ((obj cspace))
|
|
"Print a cspace, with the attached joint"
|
|
(format #t "#<cspace ~S @ #x~X>"
|
|
(if (-> obj joint)
|
|
(-> obj joint name)
|
|
"nojoint")
|
|
obj
|
|
)
|
|
obj
|
|
)
|
|
|
|
|