mirror of
https://github.com/open-goal/jak-project
synced 2026-08-14 04:33:04 -04:00
Tyler Wilding
48 lines
1.8 KiB
Common Lisp
Vendored
Generated
48 lines
1.8 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type los-control
|
|
(deftype los-control (structure)
|
|
((src-proc handle :offset-assert 0)
|
|
(dst-proc handle :offset-assert 8)
|
|
(have-los time-frame :offset-assert 16)
|
|
(have-no-los time-frame :offset-assert 24)
|
|
(check-interval time-frame :offset-assert 32)
|
|
(last-check-time time-frame :offset-assert 40)
|
|
(last-collide-result collide-tri-result :inline :offset-assert 48)
|
|
(collide-with collide-spec :offset 144)
|
|
)
|
|
:method-count-assert 14
|
|
:size-assert #x94
|
|
:flag-assert #xe00000094
|
|
(:methods
|
|
(los-control-method-9 (_type_ process-focusable vector float) none :behavior process 9)
|
|
(check-los? (_type_ time-frame) symbol :behavior process 10)
|
|
(skip-check-los? (_type_ int) symbol :behavior process 11)
|
|
(set-dst-proc! (_type_ handle) none 12)
|
|
(new-source! (_type_ process time-frame collide-spec) none 13)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type los-control
|
|
(defmethod inspect los-control ((obj los-control))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'los-control)
|
|
(format #t "~1Tsrc-proc: ~D~%" (-> obj src-proc))
|
|
(format #t "~1Tdst-proc: ~D~%" (-> obj dst-proc))
|
|
(format #t "~1Thave-los: ~D~%" (-> obj have-los))
|
|
(format #t "~1Thave-no-los: ~D~%" (-> obj have-no-los))
|
|
(format #t "~1Tcheck-interval: ~D~%" (-> obj check-interval))
|
|
(format #t "~1Tlast-check-time: ~D~%" (-> obj last-check-time))
|
|
(format #t "~1Tlast-collide-result: #<collide-tri-result @ #x~X>~%" (-> obj last-collide-result))
|
|
(format #t "~1Tcollide-with: ~D~%" (-> obj collide-with))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|