mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 23:22:17 -04:00
Tyler Wilding
245 lines
6.5 KiB
Common Lisp
Vendored
Generated
245 lines
6.5 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type hud-string
|
|
(deftype hud-string (structure)
|
|
((text string)
|
|
(scale float)
|
|
(width float)
|
|
(height float)
|
|
(color font-color)
|
|
(flags uint16)
|
|
(pos vector4w :inline)
|
|
(alpha float)
|
|
(time float)
|
|
(effect uint8)
|
|
(effect-color uint8)
|
|
(text-length int32)
|
|
)
|
|
(:methods
|
|
(hud-string-method-9 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-string
|
|
(defmethod inspect ((this hud-string))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'hud-string)
|
|
(format #t "~1Ttext: ~A~%" (-> this text))
|
|
(format #t "~1Tscale: ~f~%" (-> this scale))
|
|
(format #t "~1Twidth: ~f~%" (-> this width))
|
|
(format #t "~1Theight: ~f~%" (-> this height))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tpos: #<vector4w @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Talpha: ~f~%" (-> this alpha))
|
|
(format #t "~1Ttime: ~f~%" (-> this time))
|
|
(format #t "~1Teffect: ~D~%" (-> this effect))
|
|
(format #t "~1Teffect-color: ~D~%" (-> this effect-color))
|
|
(format #t "~1Ttext-length: ~D~%" (-> this text-length))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-corners
|
|
(deftype hud-corners (structure)
|
|
((data uint64 4)
|
|
)
|
|
(:methods
|
|
(hud-corners-method-9 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-corners
|
|
(defmethod inspect ((this hud-corners))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'hud-corners)
|
|
(format #t "~1Tdata[4] @ #x~X~%" (-> this data))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-sprite
|
|
(deftype hud-sprite (structure)
|
|
((pos vector4w :inline)
|
|
(offset-x float :overlay-at (-> pos data 0))
|
|
(offset-y float :overlay-at (-> pos data 1))
|
|
(color vector4w :inline)
|
|
(flags hud-sprite-flags)
|
|
(scale-x float)
|
|
(width float :overlay-at scale-x)
|
|
(scale-y float)
|
|
(height float :overlay-at scale-y)
|
|
(angle float)
|
|
(tex texture)
|
|
(tid texture-id :overlay-at tex)
|
|
)
|
|
(:methods
|
|
(hud-sprite-method-9 () none)
|
|
(hud-sprite-method-10 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-sprite
|
|
(defmethod inspect ((this hud-sprite))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'hud-sprite)
|
|
(format #t "~1Tpos: #<vector4w @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Toffset-x: ~f~%" (-> this offset-x))
|
|
(format #t "~1Toffset-y: ~f~%" (-> this offset-y))
|
|
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Twidth: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Theight: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tangle: ~f~%" (-> this angle))
|
|
(format #t "~1Ttex: ~A~%" (-> this tex))
|
|
(format #t "~1Ttid: ~D~%" (-> this tex))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-box
|
|
(deftype hud-box (structure)
|
|
((box bounding-box2 :inline)
|
|
(min vector2 :inline :overlay-at (-> box min))
|
|
(max vector2 :inline :overlay-at (-> box max))
|
|
(color vector4w :inline)
|
|
)
|
|
(:methods
|
|
(hud-box-method-9 () none)
|
|
(hud-box-method-10 () none)
|
|
(hud-box-method-11 () none)
|
|
(hud-box-method-12 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-box
|
|
(defmethod inspect ((this hud-box))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'hud-box)
|
|
(format #t "~1Tbox: #<bounding-box2 @ #x~X>~%" (-> this box))
|
|
(format #t "~1Tmin: #<vector2 @ #x~X>~%" (-> this box))
|
|
(format #t "~1Tmax: #<vector2 @ #x~X>~%" (-> this box max))
|
|
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-icon
|
|
(deftype hud-icon (structure)
|
|
((icon (pointer manipy))
|
|
(pos vector4w :inline)
|
|
(scale-x float)
|
|
(scale-y float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-icon
|
|
(defmethod inspect ((this hud-icon))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'hud-icon)
|
|
(format #t "~1Ticon: #x~X~%" (-> this icon))
|
|
(format #t "~1Tpos: #<vector4w @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud
|
|
(deftype hud (process)
|
|
((trigger-time uint64)
|
|
(last-hide-time uint64)
|
|
(offset float)
|
|
(flags hud-flags)
|
|
(strings hud-string 45 :inline)
|
|
(sprites hud-sprite 50 :inline)
|
|
(icons hud-icon 2 :inline)
|
|
(num-strings int32)
|
|
(num-sprites int32)
|
|
(gui-id sound-id)
|
|
)
|
|
(:methods
|
|
(hud-method-15 () none)
|
|
(hud-method-16 () none)
|
|
(hud-method-17 () none)
|
|
(hud-method-18 () none)
|
|
(hud-method-19 () none)
|
|
(hud-method-20 () none)
|
|
(hud-method-21 () none)
|
|
(hud-method-22 () none)
|
|
(hud-method-23 () none)
|
|
(hud-method-24 () none)
|
|
(hud-method-25 () none)
|
|
(hud-method-26 () none)
|
|
(hud-method-27 () none)
|
|
(hud-method-28 () none)
|
|
(hud-method-29 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud
|
|
(defmethod inspect ((this hud))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Ttrigger-time: ~D~%" (-> this trigger-time))
|
|
(format #t "~2Tlast-hide-time: ~D~%" (-> this last-hide-time))
|
|
(format #t "~2Toffset: ~f~%" (-> this offset))
|
|
(format #t "~2Tflags: ~D~%" (-> this flags))
|
|
(format #t "~2Tstrings[45] @ #x~X~%" (-> this strings))
|
|
(format #t "~2Tsprites[50] @ #x~X~%" (-> this sprites))
|
|
(format #t "~2Ticons[2] @ #x~X~%" (-> this icons))
|
|
(format #t "~2Tnum-strings: ~D~%" (-> this num-strings))
|
|
(format #t "~2Tnum-sprites: ~D~%" (-> this num-sprites))
|
|
(format #t "~2Tgui-id: ~D~%" (-> this gui-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-map
|
|
(deftype hud-map (hud)
|
|
((x float)
|
|
(y float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-map
|
|
(defmethod inspect ((this hud-map))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type hud inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tx: ~f~%" (-> this x))
|
|
(format #t "~2Ty: ~f~%" (-> this y))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|