mirror of
https://github.com/open-goal/jak-project
synced 2026-06-03 18:36:52 -04:00
water111
37 lines
1.2 KiB
Common Lisp
37 lines
1.2 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type trajectory
|
|
(deftype trajectory (structure)
|
|
((initial-position vector :inline :offset-assert 0)
|
|
(initial-velocity vector :inline :offset-assert 16)
|
|
(time float :offset-assert 32)
|
|
(gravity float :offset-assert 36)
|
|
)
|
|
:method-count-assert 16
|
|
:size-assert #x28
|
|
:flag-assert #x1000000028
|
|
(:methods
|
|
(TODO-RENAME-9 (_type_ float vector) vector 9)
|
|
(TODO-RENAME-10 (_type_ float vector) vector 10)
|
|
(TODO-RENAME-11 (_type_ vector vector float float) none 11)
|
|
(TODO-RENAME-12 (_type_ vector vector float float) none 12)
|
|
(TODO-RENAME-13 (_type_ vector vector float float) none 13)
|
|
(TODO-RENAME-14 (_type_ vector vector float float) none 14)
|
|
(TODO-RENAME-15 (_type_) none 15)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type trajectory
|
|
(defmethod inspect trajectory ((obj trajectory))
|
|
(format #t "[~8x] ~A~%" obj 'trajectory)
|
|
(format #t "~Tinitial-position: ~`vector`P~%" (-> obj initial-position))
|
|
(format #t "~Tinitial-velocity: ~`vector`P~%" (-> obj initial-velocity))
|
|
(format #t "~Ttime: ~f~%" (-> obj time))
|
|
(format #t "~Tgravity: (meters ~m)~%" (-> obj gravity))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|