mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 17:58:14 -04:00
water111
84 lines
4.4 KiB
Common Lisp
Vendored
84 lines
4.4 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type background-work
|
|
(deftype background-work (basic)
|
|
((tfrag-tree-count int32 :offset-assert 4)
|
|
(tfrag-trees drawable-tree-tfrag 8 :offset-assert 8)
|
|
(tfrag-levels level 8 :offset-assert 40)
|
|
(trans-tfrag-tree-count int32 :offset-assert 72)
|
|
(trans-tfrag-trees drawable-tree-trans-tfrag 8 :offset-assert 76)
|
|
(trans-tfrag-levels level 8 :offset-assert 108)
|
|
(dirt-tfrag-tree-count int32 :offset-assert 140)
|
|
(dirt-tfrag-trees drawable-tree-dirt-tfrag 8 :offset-assert 144)
|
|
(dirt-tfrag-levels level 8 :offset-assert 176)
|
|
(ice-tfrag-tree-count int32 :offset-assert 208)
|
|
(ice-tfrag-trees drawable-tree-ice-tfrag 8 :offset-assert 212)
|
|
(ice-tfrag-levels level 8 :offset-assert 244)
|
|
(lowres-tfrag-tree-count int32 :offset-assert 276)
|
|
(lowres-tfrag-trees drawable-tree-lowres-tfrag 8 :offset-assert 280)
|
|
(lowres-tfrag-levels level 8 :offset-assert 312)
|
|
(lowres-trans-tfrag-tree-count int32 :offset-assert 344)
|
|
(lowres-trans-tfrag-trees drawable-tree-trans-tfrag 8 :offset-assert 348)
|
|
(lowres-trans-tfrag-levels level 8 :offset-assert 380)
|
|
(shrub-tree-count int32 :offset-assert 412)
|
|
(shrub-trees drawable-tree-instance-shrub 8 :offset-assert 416)
|
|
(shrub-levels level 8 :offset-assert 448)
|
|
(tie-tree-count int32 :offset-assert 480)
|
|
(tie-trees drawable-tree-instance-tie 8 :offset-assert 484)
|
|
(tie-levels level 8 :offset-assert 516)
|
|
(tie-generic basic 8 :offset-assert 548)
|
|
(wait-to-vu0 uint32 :offset-assert 580)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x248
|
|
:flag-assert #x900000248
|
|
)
|
|
|
|
;; definition for method 3 of type background-work
|
|
(defmethod inspect background-work ((obj background-work))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Ttfrag-tree-count: ~D~%" (-> obj tfrag-tree-count))
|
|
(format #t "~Ttfrag-trees[8] @ #x~X~%" (-> obj tfrag-trees))
|
|
(format #t "~Ttfrag-levels[8] @ #x~X~%" (-> obj tfrag-levels))
|
|
(format #t "~Ttrans-tfrag-tree-count: ~D~%" (-> obj trans-tfrag-tree-count))
|
|
(format #t "~Ttrans-tfrag-trees[8] @ #x~X~%" (-> obj trans-tfrag-trees))
|
|
(format #t "~Ttrans-tfrag-levels[8] @ #x~X~%" (-> obj trans-tfrag-levels))
|
|
(format #t "~Tdirt-tfrag-tree-count: ~D~%" (-> obj dirt-tfrag-tree-count))
|
|
(format #t "~Tdirt-tfrag-trees[8] @ #x~X~%" (-> obj dirt-tfrag-trees))
|
|
(format #t "~Tdirt-tfrag-levels[8] @ #x~X~%" (-> obj dirt-tfrag-levels))
|
|
(format #t "~Tice-tfrag-tree-count: ~D~%" (-> obj ice-tfrag-tree-count))
|
|
(format #t "~Tice-tfrag-trees[8] @ #x~X~%" (-> obj ice-tfrag-trees))
|
|
(format #t "~Tice-tfrag-levels[8] @ #x~X~%" (-> obj ice-tfrag-levels))
|
|
(format #t "~Tlowres-tfrag-tree-count: ~D~%" (-> obj lowres-tfrag-tree-count))
|
|
(format #t "~Tlowres-tfrag-trees[8] @ #x~X~%" (-> obj lowres-tfrag-trees))
|
|
(format #t "~Tlowres-tfrag-levels[8] @ #x~X~%" (-> obj lowres-tfrag-levels))
|
|
(format
|
|
#t
|
|
"~Tlowres-trans-tfrag-tree-count: ~D~%"
|
|
(-> obj lowres-trans-tfrag-tree-count)
|
|
)
|
|
(format
|
|
#t
|
|
"~Tlowres-trans-tfrag-trees[8] @ #x~X~%"
|
|
(-> obj lowres-trans-tfrag-trees)
|
|
)
|
|
(format
|
|
#t
|
|
"~Tlowres-trans-tfrag-levels[8] @ #x~X~%"
|
|
(-> obj lowres-trans-tfrag-levels)
|
|
)
|
|
(format #t "~Tshrub-tree-count: ~D~%" (-> obj shrub-tree-count))
|
|
(format #t "~Tshrub-trees[8] @ #x~X~%" (-> obj shrub-trees))
|
|
(format #t "~Tshrub-levels[8] @ #x~X~%" (-> obj shrub-levels))
|
|
(format #t "~Ttie-tree-count: ~D~%" (-> obj tie-tree-count))
|
|
(format #t "~Ttie-trees[8] @ #x~X~%" (-> obj tie-trees))
|
|
(format #t "~Ttie-levels[8] @ #x~X~%" (-> obj tie-levels))
|
|
(format #t "~Ttie-generic[8] @ #x~X~%" (-> obj tie-generic))
|
|
(format #t "~Twait-to-vu0: ~D~%" (-> obj wait-to-vu0))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|