mirror of
https://github.com/open-goal/jak-project
synced 2026-06-03 02:30:13 -04:00
water111
84 lines
3.3 KiB
Common Lisp
Vendored
84 lines
3.3 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type collide-history
|
|
(deftype collide-history (structure)
|
|
((intersect vector :inline :offset-assert 0)
|
|
(trans vector :inline :offset-assert 16)
|
|
(transv vector :inline :offset-assert 32)
|
|
(transv-out vector :inline :offset-assert 48)
|
|
(local-normal vector :inline :offset-assert 64)
|
|
(surface-normal vector :inline :offset-assert 80)
|
|
(time uint64 :offset-assert 96)
|
|
(status uint64 :offset-assert 104)
|
|
(pat pat-surface :offset-assert 112)
|
|
(reaction-flag uint32 :offset-assert 116)
|
|
)
|
|
:method-count-assert 10
|
|
:size-assert #x78
|
|
:flag-assert #xa00000078
|
|
(:methods
|
|
(update! (_type_ collide-shape-moving vector vector vector) _type_ 9)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type collide-history
|
|
(defmethod inspect collide-history ((obj collide-history))
|
|
(format #t "[~8x] ~A~%" obj 'collide-history)
|
|
(format #t "~Tintersect: ~`vector`P~%" (-> obj intersect))
|
|
(format #t "~Ttrans: ~`vector`P~%" (-> obj trans))
|
|
(format #t "~Ttransv: ~`vector`P~%" (-> obj transv))
|
|
(format #t "~Ttransv-out: ~`vector`P~%" (-> obj transv-out))
|
|
(format #t "~Tlocal-normal: ~`vector`P~%" (-> obj local-normal))
|
|
(format #t "~Tsurface-normal: ~`vector`P~%" (-> obj surface-normal))
|
|
(format #t "~Ttime: ~D~%" (-> obj time))
|
|
(format #t "~Tstatus: ~D~%" (-> obj status))
|
|
(format #t "~Tpat: ~D~%" (-> obj pat))
|
|
(format #t "~Treaction-flag: ~D~%" (-> obj reaction-flag))
|
|
obj
|
|
)
|
|
|
|
;; definition of type control-info
|
|
(deftype control-info (collide-shape-moving)
|
|
((some-quaternion quaternion :offset 496)
|
|
(unknown-vector00 vector :inline :offset 576)
|
|
(unknown-surface surface :offset 660)
|
|
(unknown-symbol symbol :offset 664)
|
|
(unknown-qword uint128 :offset 1136)
|
|
(unknown-vector10 vector :inline :offset 1216)
|
|
(unknown-vector11 vector :inline :offset 1232)
|
|
(unknown-vector12 vector :inline :offset 1248)
|
|
(unknown-vector13 vector :inline :offset 1264)
|
|
(history-length int16 :offset 2490)
|
|
(history-data collide-history 128 :inline :offset-assert 2496)
|
|
(pad uint32 27 :offset-assert 18880)
|
|
)
|
|
:method-count-assert 65
|
|
:size-assert #x4a2c
|
|
:flag-assert #x4100004a2c
|
|
)
|
|
|
|
;; definition for method 9 of type collide-history
|
|
;; Used lq/sq
|
|
(defmethod
|
|
update!
|
|
collide-history
|
|
((obj collide-history)
|
|
(cshape collide-shape-moving)
|
|
(xs vector)
|
|
(transv vector)
|
|
(transv-out vector)
|
|
)
|
|
(set! (-> obj intersect quad) (-> xs quad))
|
|
(set! (-> obj transv quad) (-> transv quad))
|
|
(set! (-> obj transv-out quad) (-> transv-out quad))
|
|
(set! (-> obj trans quad) (-> cshape trans quad))
|
|
(set! (-> obj local-normal quad) (-> cshape local-normal quad))
|
|
(set! (-> obj surface-normal quad) (-> cshape surface-normal quad))
|
|
(set! (-> obj time) (-> *display* base-frame-counter))
|
|
(set! (-> obj status) (-> cshape status))
|
|
(set! (-> obj reaction-flag) (-> cshape reaction-flag))
|
|
(set! (-> obj pat) (-> cshape cur-pat))
|
|
obj
|
|
)
|