mirror of
https://github.com/open-goal/jak-project
synced 2026-07-11 07:25:37 -04:00
Tyler Wilding
319 lines
11 KiB
Common Lisp
Vendored
Generated
319 lines
11 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type minimap-class-node
|
|
(deftype minimap-class-node (structure)
|
|
((default-position vector :inline)
|
|
(flags minimap-flag)
|
|
(name string)
|
|
(icon-xy vector2ub :inline)
|
|
(class minimap-class)
|
|
(scale float)
|
|
(color rgba)
|
|
)
|
|
(:methods
|
|
(minimap-class-node-method-9 (_type_) symbol)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type minimap-class-node
|
|
(defmethod inspect ((this minimap-class-node))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-49)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'minimap-class-node)
|
|
(format #t "~1Tdefault-position: ~`vector`P~%" (-> this default-position))
|
|
(format #t "~1Tflags: #x~X : (minimap-flag " (-> this flags))
|
|
(let ((s5-0 (-> this flags)))
|
|
(if (= (logand s5-0 (minimap-flag active)) (minimap-flag active))
|
|
(format #t "active ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag fade-in)) (minimap-flag fade-in))
|
|
(format #t "fade-in ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag racer)) (minimap-flag racer))
|
|
(format #t "racer ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag minimap)) (minimap-flag minimap))
|
|
(format #t "minimap ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag flash)) (minimap-flag flash))
|
|
(format #t "flash ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag task-graph)) (minimap-flag task-graph))
|
|
(format #t "task-graph ")
|
|
)
|
|
(if (= (logand s5-0 (minimap-flag fade-out)) (minimap-flag fade-out))
|
|
(format #t "fade-out ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Tname: ~A~%" (-> this name))
|
|
(format #t "~1Ticon-xy: #<vector2ub @ #x~X>~%" (-> this icon-xy))
|
|
(let ((t9-13 format)
|
|
(a0-21 #t)
|
|
(a1-13 "~1Tclass: #x~X : ~S~%")
|
|
(a2-5 (-> this class))
|
|
(v1-23 (-> this class))
|
|
)
|
|
(t9-13 a0-21 a1-13 a2-5 (cond
|
|
((= v1-23 (minimap-class raptor))
|
|
"raptor"
|
|
)
|
|
((= v1-23 (minimap-class blue-flag))
|
|
"blue-flag"
|
|
)
|
|
((= v1-23 (minimap-class racer-4))
|
|
"racer-4"
|
|
)
|
|
((= v1-23 (minimap-class chicken-drone))
|
|
"chicken-drone"
|
|
)
|
|
((= v1-23 (minimap-class racer-0))
|
|
"racer-0"
|
|
)
|
|
((= v1-23 (minimap-class racer-5))
|
|
"racer-5"
|
|
)
|
|
((= v1-23 (minimap-class success-seeker))
|
|
"success-seeker"
|
|
)
|
|
((= v1-23 (minimap-class racer-1))
|
|
"racer-1"
|
|
)
|
|
((= v1-23 (minimap-class red-flag))
|
|
"red-flag"
|
|
)
|
|
((= v1-23 (minimap-class racer-6))
|
|
"racer-6"
|
|
)
|
|
((= v1-23 (minimap-class none))
|
|
"none"
|
|
)
|
|
((= v1-23 (minimap-class racer-2))
|
|
"racer-2"
|
|
)
|
|
((= v1-23 (minimap-class neutral-flag))
|
|
"neutral-flag"
|
|
)
|
|
((= v1-23 (minimap-class goal))
|
|
"goal"
|
|
)
|
|
((= v1-23 (minimap-class racer-3))
|
|
"racer-3"
|
|
)
|
|
(else
|
|
"*unknown*"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(format #t "~1Tscale: ~f~%" (-> this scale))
|
|
(format #t "~1Tcolor: #x~X~%" (-> this color))
|
|
(label cfg-49)
|
|
this
|
|
)
|
|
|
|
;; definition of type connection-minimap
|
|
(deftype connection-minimap (connection-pers)
|
|
((next connection-minimap :override)
|
|
(handle handle :overlay-at update-time)
|
|
(position vector :overlay-at (-> param 0))
|
|
(alpha float :overlay-at (-> param 1))
|
|
(flags minimap-flag :overlay-at (-> param 2))
|
|
(class minimap-class-node :overlay-at (-> param 3))
|
|
(node uint16)
|
|
(edge-ry int16)
|
|
(last-world-pos vector :inline)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type connection-minimap
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this connection-minimap))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-30)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'connection-minimap)
|
|
(format #t "~1Tnext: #<connection-minimap @ #x~X>~%" (-> this next))
|
|
(format #t "~1Tkey: ~A~%" (-> this key))
|
|
(format #t "~1Tupdate-time: ~D~%" (-> this handle))
|
|
(format #t "~1Tparam[4] @ #x~X~%" (-> this param))
|
|
(dotimes (s5-0 4)
|
|
(format #t "~T [~D]~1Tparam: ~A~%" s5-0 (-> this param s5-0))
|
|
)
|
|
(format #t "~1Tparam-int32[4] @ #x~X~%" (-> this param))
|
|
(dotimes (s5-1 4)
|
|
(format #t "~T [~D]~1Tparam-int32: ~D~%" s5-1 (-> this param s5-1))
|
|
)
|
|
(format #t "~1Tparam-int64[2] @ #x~X~%" (-> this param))
|
|
(dotimes (s5-2 2)
|
|
(format #t "~T [~D]~1Tparam-int64: ~D~%" s5-2 (-> this param-int64 s5-2))
|
|
)
|
|
(format #t "~1Tparam-float[4] @ #x~X~%" (-> this param))
|
|
(dotimes (s5-3 4)
|
|
(format #t "~T [~D]~1Tparam-float: ~f~%" s5-3 (the-as float (-> this param s5-3)))
|
|
)
|
|
(format #t "~1Tparam-quat: #x~X~%" (-> this param-quat))
|
|
(format #t "~1Thandle: ~D~%" (-> this handle))
|
|
(format #t "~1Tposition: #<vector @ #x~X>~%" (-> this position))
|
|
(format #t "~1Talpha: ~f~%" (-> this alpha))
|
|
(format #t "~1Tflags: #x~X : (minimap-flag " (-> this flags))
|
|
(let ((s5-4 (-> this flags)))
|
|
(if (= (logand s5-4 (minimap-flag active)) (minimap-flag active))
|
|
(format #t "active ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag fade-in)) (minimap-flag fade-in))
|
|
(format #t "fade-in ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag racer)) (minimap-flag racer))
|
|
(format #t "racer ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag minimap)) (minimap-flag minimap))
|
|
(format #t "minimap ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag flash)) (minimap-flag flash))
|
|
(format #t "flash ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag task-graph)) (minimap-flag task-graph))
|
|
(format #t "task-graph ")
|
|
)
|
|
(if (= (logand s5-4 (minimap-flag fade-out)) (minimap-flag fade-out))
|
|
(format #t "fade-out ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Tclass: #<minimap-class-node @ #x~X>~%" (-> this class))
|
|
(format #t "~1Tnode: ~D~%" (-> this node))
|
|
(format #t "~1Tedge-ry: ~D~%" (-> this edge-ry))
|
|
(format #t "~1Tlast-world-pos: ~`vector`P~%" (-> this last-world-pos))
|
|
(label cfg-30)
|
|
this
|
|
)
|
|
|
|
;; definition of type engine-minimap
|
|
(deftype engine-minimap (engine-pers)
|
|
((alive-list connection-minimap :override)
|
|
(dead-list connection-minimap :override)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type engine-minimap
|
|
(defmethod inspect ((this engine-minimap))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tname: ~A~%" (-> this name))
|
|
(format #t "~1Tlength: ~D~%" (-> this length))
|
|
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
|
(format #t "~1Telement-type: ~A~%" (-> this element-type))
|
|
(format #t "~1Texecute-time: ~D~%" (-> this execute-time))
|
|
(format #t "~1Talive-list: #<connection-minimap @ #x~X>~%" (-> this alive-list))
|
|
(format #t "~1Tdead-list: #<connection-minimap @ #x~X>~%" (-> this dead-list))
|
|
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type minimap-draw-work
|
|
(deftype minimap-draw-work (structure)
|
|
((buf dma-buffer)
|
|
(global-flags uint32)
|
|
(draw-pos vector4w :inline)
|
|
(mat matrix :inline)
|
|
(corner vector 4 :inline)
|
|
(vec vector :inline)
|
|
(pos vector :inline)
|
|
(mid-val float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type minimap-draw-work
|
|
(defmethod inspect ((this minimap-draw-work))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'minimap-draw-work)
|
|
(format #t "~1Tbuf: ~A~%" (-> this buf))
|
|
(format #t "~1Tglobal-flags: ~D~%" (-> this global-flags))
|
|
(format #t "~1Tdraw-pos: #<vector4w @ #x~X>~%" (-> this draw-pos))
|
|
(format #t "~1Tmat: #<matrix @ #x~X>~%" (-> this mat))
|
|
(format #t "~1Tcorner[4] @ #x~X~%" (-> this corner))
|
|
(format #t "~1Tvec: #<vector @ #x~X>~%" (-> this vec))
|
|
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Tmid-val: ~f~%" (-> this mid-val))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type minimap
|
|
(deftype minimap (structure)
|
|
((draw-tmpl dma-gif-packet :inline)
|
|
(sprite-tmpl dma-gif-packet :inline)
|
|
(sprite2-tmpl dma-gif-packet :inline)
|
|
(adgif-tmpl dma-gif-packet :inline)
|
|
(color vector4w :inline)
|
|
(tex-coords bounding-box2 :inline)
|
|
(race-corner vector :inline)
|
|
(mat matrix :inline)
|
|
(tex-offset vector2 :inline)
|
|
(race-tex texture)
|
|
(race-scale float)
|
|
(meters-per-texel float)
|
|
(icon-inv-scale float)
|
|
(fade float)
|
|
(goal-time float)
|
|
(engine engine-minimap)
|
|
(engine-key uint32)
|
|
)
|
|
(:methods
|
|
(minimap-method-9 () none)
|
|
(minimap-method-10 () none)
|
|
(minimap-method-11 () none)
|
|
(minimap-method-12 () none)
|
|
(minimap-method-13 () none)
|
|
(minimap-method-14 () none)
|
|
(minimap-method-15 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type minimap
|
|
(defmethod inspect ((this minimap))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'minimap)
|
|
(format #t "~1Tdraw-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this draw-tmpl))
|
|
(format #t "~1Tsprite-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite-tmpl))
|
|
(format #t "~1Tsprite2-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite2-tmpl))
|
|
(format #t "~1Tadgif-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this adgif-tmpl))
|
|
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
|
|
(format #t "~1Ttex-coords: #<bounding-box2 @ #x~X>~%" (-> this tex-coords))
|
|
(format #t "~1Trace-corner: #<vector @ #x~X>~%" (-> this race-corner))
|
|
(format #t "~1Tmat: #<matrix @ #x~X>~%" (-> this mat))
|
|
(format #t "~1Ttex-offset: #<vector2 @ #x~X>~%" (-> this tex-offset))
|
|
(format #t "~1Trace-tex: ~A~%" (-> this race-tex))
|
|
(format #t "~1Trace-scale: ~f~%" (-> this race-scale))
|
|
(format #t "~1Tmeters-per-texel: ~f~%" (-> this meters-per-texel))
|
|
(format #t "~1Ticon-inv-scale: ~f~%" (-> this icon-inv-scale))
|
|
(format #t "~1Tfade: ~f~%" (-> this fade))
|
|
(format #t "~1Tgoal-time: ~f~%" (-> this goal-time))
|
|
(format #t "~1Tengine: ~A~%" (-> this engine))
|
|
(format #t "~1Tengine-key: ~D~%" (-> this engine-key))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|