mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 07:07:04 -04:00
Tyler Wilding
121 lines
4.4 KiB
Common Lisp
Vendored
Generated
121 lines
4.4 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type net-predictor-simple-state
|
|
(deftype net-predictor-simple-state (structure)
|
|
((time int32)
|
|
(pos vector :inline)
|
|
(vel vector :inline)
|
|
(rot quaternion :inline)
|
|
(angvel vector :inline)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type net-predictor-simple-state
|
|
(defmethod inspect ((this net-predictor-simple-state))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'net-predictor-simple-state)
|
|
(format #t "~1Ttime: ~D~%" (-> this time))
|
|
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Tvel: #<vector @ #x~X>~%" (-> this vel))
|
|
(format #t "~1Trot: #<quaternion @ #x~X>~%" (-> this rot))
|
|
(format #t "~1Tangvel: #<vector @ #x~X>~%" (-> this angvel))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type net-predictor-simple
|
|
(deftype net-predictor-simple (structure)
|
|
((last-net net-predictor-simple-state :inline)
|
|
(extrapolated net-predictor-simple-state :inline)
|
|
(active net-predictor-simple-state :inline)
|
|
(vel-scale vector :inline)
|
|
(angvel-scale vector :inline)
|
|
(min-delay int32)
|
|
(max-delay int32)
|
|
(pos-err-thresh float)
|
|
(rot-err-thresh float)
|
|
(pos-track-factor float)
|
|
(vel-track-factor float)
|
|
(max-extrapolation int32)
|
|
(error-snap float)
|
|
(flags uint8)
|
|
)
|
|
(:methods
|
|
(net-predictor-simple-method-9 () none)
|
|
(net-predictor-simple-method-10 () none)
|
|
(net-predictor-simple-method-11 () none)
|
|
(net-predictor-simple-method-12 () none)
|
|
(net-predictor-simple-method-13 () none)
|
|
(net-predictor-simple-method-14 () none)
|
|
(net-predictor-simple-method-15 () none)
|
|
(net-predictor-simple-method-16 () none)
|
|
(net-predictor-simple-method-17 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type net-predictor-simple
|
|
(defmethod inspect ((this net-predictor-simple))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'net-predictor-simple)
|
|
(format #t "~1Tlast-net: #<net-predictor-simple-state @ #x~X>~%" (-> this last-net))
|
|
(format #t "~1Textrapolated: #<net-predictor-simple-state @ #x~X>~%" (-> this extrapolated))
|
|
(format #t "~1Tactive: #<net-predictor-simple-state @ #x~X>~%" (-> this active))
|
|
(format #t "~1Tvel-scale: #<vector @ #x~X>~%" (-> this vel-scale))
|
|
(format #t "~1Tangvel-scale: #<vector @ #x~X>~%" (-> this angvel-scale))
|
|
(format #t "~1Tmin-delay: ~D~%" (-> this min-delay))
|
|
(format #t "~1Tmax-delay: ~D~%" (-> this max-delay))
|
|
(format #t "~1Tpos-err-thresh: ~f~%" (-> this pos-err-thresh))
|
|
(format #t "~1Trot-err-thresh: ~f~%" (-> this rot-err-thresh))
|
|
(format #t "~1Tpos-track-factor: ~f~%" (-> this pos-track-factor))
|
|
(format #t "~1Tvel-track-factor: ~f~%" (-> this vel-track-factor))
|
|
(format #t "~1Tmax-extrapolation: ~D~%" (-> this max-extrapolation))
|
|
(format #t "~1Terror-snap: ~f~%" (-> this error-snap))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type net-predictor-sphcol
|
|
(deftype net-predictor-sphcol (net-predictor-simple)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type net-predictor-sphcol
|
|
(defmethod inspect ((this net-predictor-sphcol))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'net-predictor-sphcol)
|
|
(format #t "~1Tlast-net: #<net-predictor-simple-state @ #x~X>~%" (-> this last-net))
|
|
(format #t "~1Textrapolated: #<net-predictor-simple-state @ #x~X>~%" (-> this extrapolated))
|
|
(format #t "~1Tactive: #<net-predictor-simple-state @ #x~X>~%" (-> this active))
|
|
(format #t "~1Tvel-scale: #<vector @ #x~X>~%" (-> this vel-scale))
|
|
(format #t "~1Tangvel-scale: #<vector @ #x~X>~%" (-> this angvel-scale))
|
|
(format #t "~1Tmin-delay: ~D~%" (-> this min-delay))
|
|
(format #t "~1Tmax-delay: ~D~%" (-> this max-delay))
|
|
(format #t "~1Tpos-err-thresh: ~f~%" (-> this pos-err-thresh))
|
|
(format #t "~1Trot-err-thresh: ~f~%" (-> this rot-err-thresh))
|
|
(format #t "~1Tpos-track-factor: ~f~%" (-> this pos-track-factor))
|
|
(format #t "~1Tvel-track-factor: ~f~%" (-> this vel-track-factor))
|
|
(format #t "~1Tmax-extrapolation: ~D~%" (-> this max-extrapolation))
|
|
(format #t "~1Terror-snap: ~f~%" (-> this error-snap))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|