mirror of
https://github.com/open-goal/jak-project
synced 2026-06-28 19:21:06 -04:00
ManDude
25b0e1be7d
* decomp: `collectables` * fix types * `powerups` and fixes * fixes * Merge branch 'pr/929' into d/temp/collectables * fix collide stuff * update things... * update * update * temp bump global heap mem * fix `defstate` hooks wrong/unnecessary sets & collide stuff for collectables * dumb mistakes :) * stub out broken process-drawable stuff * update refs * add `:no-inspect` key and save some memory & remove birth logs * Update kmachine.h * clang * add citadel * fix no-inspect key * fix tests!! * fix stupid mistake in `collide-shape-prim-sphere` alloc * comment annoying print * feedback * fix edge-case probably * remove `:no-inspect`s
84 lines
3.0 KiB
Common Lisp
Vendored
Generated
84 lines
3.0 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type pris-mtx
|
|
(deftype pris-mtx (structure)
|
|
((data float 32 :offset 0)
|
|
(vector vector 8 :inline :offset 0)
|
|
(t-mtx matrix :inline :offset 0)
|
|
(n-mtx matrix3 :inline :offset 64)
|
|
(scale vector :inline :offset 112)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x80
|
|
:flag-assert #x900000080
|
|
)
|
|
|
|
;; definition for method 3 of type pris-mtx
|
|
(defmethod inspect pris-mtx ((obj pris-mtx))
|
|
(format #t "[~8x] ~A~%" obj 'pris-mtx)
|
|
(format #t "~Tdata[32] @ #x~X~%" (-> obj t-mtx))
|
|
(format #t "~Tvector[8] @ #x~X~%" (-> obj t-mtx))
|
|
(format #t "~Tt-mtx: #<matrix @ #x~X>~%" (-> obj t-mtx))
|
|
(format #t "~Tn-mtx: #<matrix3 @ #x~X>~%" (-> obj n-mtx))
|
|
(format #t "~Tscale: #<vector @ #x~X>~%" (-> obj scale))
|
|
obj
|
|
)
|
|
|
|
;; definition of type generic-pris-mtx-save
|
|
(deftype generic-pris-mtx-save (structure)
|
|
((loc-mtx pris-mtx :inline :offset-assert 0)
|
|
(par-mtx pris-mtx :inline :offset-assert 128)
|
|
(dif-mtx pris-mtx :inline :offset-assert 256)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x180
|
|
:flag-assert #x900000180
|
|
)
|
|
|
|
;; definition for method 3 of type generic-pris-mtx-save
|
|
(defmethod inspect generic-pris-mtx-save ((obj generic-pris-mtx-save))
|
|
(format #t "[~8x] ~A~%" obj 'generic-pris-mtx-save)
|
|
(format #t "~Tloc-mtx: #<pris-mtx @ #x~X>~%" (-> obj loc-mtx))
|
|
(format #t "~Tpar-mtx: #<pris-mtx @ #x~X>~%" (-> obj par-mtx))
|
|
(format #t "~Tdif-mtx: #<pris-mtx @ #x~X>~%" (-> obj dif-mtx))
|
|
obj
|
|
)
|
|
|
|
;; definition of type generic-constants
|
|
(deftype generic-constants (structure)
|
|
((fog vector :inline :offset-assert 0)
|
|
(adgif gs-gif-tag :inline :offset-assert 16)
|
|
(giftag gs-gif-tag :inline :offset-assert 32)
|
|
(hvdf-offset vector :inline :offset-assert 48)
|
|
(hmge-scale vector :inline :offset-assert 64)
|
|
(invh-scale vector :inline :offset-assert 80)
|
|
(guard vector :inline :offset-assert 96)
|
|
(adnop qword :inline :offset-assert 112)
|
|
(flush qword :inline :offset-assert 128)
|
|
(stores qword :inline :offset-assert 144)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #xa0
|
|
:flag-assert #x9000000a0
|
|
)
|
|
|
|
;; definition for method 3 of type generic-constants
|
|
(defmethod inspect generic-constants ((obj generic-constants))
|
|
(format #t "[~8x] ~A~%" obj 'generic-constants)
|
|
(format #t "~Tfog: #<vector @ #x~X>~%" (-> obj fog))
|
|
(format #t "~Tadgif: #<qword @ #x~X>~%" (-> obj adgif))
|
|
(format #t "~Tgiftag: #<qword @ #x~X>~%" (-> obj giftag))
|
|
(format #t "~Thvdf-offset: #<vector @ #x~X>~%" (-> obj hvdf-offset))
|
|
(format #t "~Thmge-scale: #<vector @ #x~X>~%" (-> obj hmge-scale))
|
|
(format #t "~Tinvh-scale: #<vector @ #x~X>~%" (-> obj invh-scale))
|
|
(format #t "~Tguard: #<vector @ #x~X>~%" (-> obj guard))
|
|
(format #t "~Tadnop: #<qword @ #x~X>~%" (-> obj adnop))
|
|
(format #t "~Tflush: #<qword @ #x~X>~%" (-> obj flush))
|
|
(format #t "~Tstores: #<qword @ #x~X>~%" (-> obj stores))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|