mirror of
https://github.com/open-goal/jak-project
synced 2026-06-08 12:27:57 -04:00
Tyler Wilding
219 lines
9.1 KiB
Common Lisp
Vendored
Generated
219 lines
9.1 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type vis-gif-tag
|
|
(deftype vis-gif-tag (structure)
|
|
"Unused."
|
|
((fog0 uint32)
|
|
(strip uint32)
|
|
(regs uint32)
|
|
(fan uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type vis-gif-tag
|
|
(defmethod inspect ((this vis-gif-tag))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'vis-gif-tag)
|
|
(format #t "~1Tfog0: ~D~%" (-> this fog0))
|
|
(format #t "~1Tstrip: ~D~%" (-> this strip))
|
|
(format #t "~1Tregs: ~D~%" (-> this regs))
|
|
(format #t "~1Tfan: ~D~%" (-> this fan))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type cull-info
|
|
(deftype cull-info (structure)
|
|
"Also seems unused."
|
|
((x-fact float)
|
|
(y-fact float)
|
|
(z-fact float)
|
|
(cam-radius float)
|
|
(cam-x float)
|
|
(cam-y float)
|
|
(xz-dir-ax float)
|
|
(xz-dir-az float)
|
|
(xz-dir-bx float)
|
|
(xz-dir-bz float)
|
|
(xz-cross-ab float)
|
|
(yz-dir-ay float)
|
|
(yz-dir-az float)
|
|
(yz-dir-by float)
|
|
(yz-dir-bz float)
|
|
(yz-cross-ab float)
|
|
)
|
|
:allow-misaligned
|
|
)
|
|
|
|
;; definition for method 3 of type cull-info
|
|
(defmethod inspect ((this cull-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'cull-info)
|
|
(format #t "~1Tx-fact: ~f~%" (-> this x-fact))
|
|
(format #t "~1Ty-fact: ~f~%" (-> this y-fact))
|
|
(format #t "~1Tz-fact: ~f~%" (-> this z-fact))
|
|
(format #t "~1Tcam-radius: ~f~%" (-> this cam-radius))
|
|
(format #t "~1Tcam-x: ~f~%" (-> this cam-x))
|
|
(format #t "~1Tcam-y: ~f~%" (-> this cam-y))
|
|
(format #t "~1Txz-dir-ax: ~f~%" (-> this xz-dir-ax))
|
|
(format #t "~1Txz-dir-az: ~f~%" (-> this xz-dir-az))
|
|
(format #t "~1Txz-dir-bx: ~f~%" (-> this xz-dir-bx))
|
|
(format #t "~1Txz-dir-bz: ~f~%" (-> this xz-dir-bz))
|
|
(format #t "~1Txz-cross-ab: ~f~%" (-> this xz-cross-ab))
|
|
(format #t "~1Tyz-dir-ay: ~f~%" (-> this yz-dir-ay))
|
|
(format #t "~1Tyz-dir-az: ~f~%" (-> this yz-dir-az))
|
|
(format #t "~1Tyz-dir-by: ~f~%" (-> this yz-dir-by))
|
|
(format #t "~1Tyz-dir-bz: ~f~%" (-> this yz-dir-bz))
|
|
(format #t "~1Tyz-cross-ab: ~f~%" (-> this yz-cross-ab))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type math-camera
|
|
(deftype math-camera (basic)
|
|
((d meters)
|
|
(f meters)
|
|
(fov degrees)
|
|
(x-ratio float)
|
|
(y-ratio float)
|
|
(x-pix float)
|
|
(x-clip float)
|
|
(x-clip-ratio-in float)
|
|
(x-clip-ratio-over float)
|
|
(y-pix float)
|
|
(y-clip float)
|
|
(y-clip-ratio-in float)
|
|
(y-clip-ratio-over float)
|
|
(cull-info cull-info :inline)
|
|
(fog-start meters)
|
|
(fog-end meters)
|
|
(fog-max float)
|
|
(fog-min float)
|
|
(reset int32)
|
|
(smooth-step float)
|
|
(smooth-t float)
|
|
(perspective matrix :inline)
|
|
(isometric matrix :inline)
|
|
(sprite-2d matrix :inline)
|
|
(sprite-2d-hvdf vector :inline)
|
|
(camera-rot matrix :inline)
|
|
(inv-camera-rot matrix :inline)
|
|
(inv-camera-rot-smooth matrix :inline)
|
|
(inv-camera-rot-smooth-from quaternion :inline)
|
|
(camera-temp matrix :inline)
|
|
(prev-camera-temp matrix :inline)
|
|
(prev-inv-camera-rot matrix :inline)
|
|
(prev-trans vector :inline)
|
|
(hmge-scale vector :inline)
|
|
(inv-hmge-scale vector :inline)
|
|
(hvdf-off vector :inline)
|
|
(guard vector :inline)
|
|
(vis-gifs vis-gif-tag 4 :inline)
|
|
(giftex uint128 :overlay-at (-> vis-gifs 0 fog0))
|
|
(gifgr uint128 :offset 864)
|
|
(giftex-trans uint128 :offset 880)
|
|
(gifgr-trans uint128 :offset 896)
|
|
(pfog0 float)
|
|
(pfog1 float)
|
|
(trans vector :inline)
|
|
(plane plane 4 :inline)
|
|
(guard-plane plane 4 :inline)
|
|
(shrub-mat matrix :inline)
|
|
(quat-other quaternion :inline)
|
|
(trans-other vector :inline)
|
|
(shrub-mat-other matrix :inline)
|
|
(camera-temp-other matrix :inline)
|
|
(camera-rot-other matrix :inline)
|
|
(inv-camera-rot-other matrix :inline)
|
|
(plane-other plane 4 :inline)
|
|
(guard-plane-other plane 4 :inline)
|
|
(mirror-trans vector :inline)
|
|
(mirror-normal vector :inline)
|
|
(fov-correction-factor float)
|
|
)
|
|
(:methods
|
|
(new (symbol type) _type_)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type math-camera
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this math-camera))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Td: (meters ~m)~%" (-> this d))
|
|
(format #t "~1Tf: (meters ~m)~%" (-> this f))
|
|
(format #t "~1Tfov: (deg ~r)~%" (-> this fov))
|
|
(format #t "~1Tx-ratio: ~f~%" (-> this x-ratio))
|
|
(format #t "~1Ty-ratio: ~f~%" (-> this y-ratio))
|
|
(format #t "~1Tx-pix: ~f~%" (-> this x-pix))
|
|
(format #t "~1Tx-clip: ~f~%" (-> this x-clip))
|
|
(format #t "~1Tx-clip-ratio-in: ~f~%" (-> this x-clip-ratio-in))
|
|
(format #t "~1Tx-clip-ratio-over: ~f~%" (-> this x-clip-ratio-over))
|
|
(format #t "~1Ty-pix: ~f~%" (-> this y-pix))
|
|
(format #t "~1Ty-clip: ~f~%" (-> this y-clip))
|
|
(format #t "~1Ty-clip-ratio-in: ~f~%" (-> this y-clip-ratio-in))
|
|
(format #t "~1Ty-clip-ratio-over: ~f~%" (-> this y-clip-ratio-over))
|
|
(format #t "~1Tcull-info: #<cull-info @ #x~X>~%" (-> this cull-info))
|
|
(format #t "~1Tfog-start: (meters ~m)~%" (-> this fog-start))
|
|
(format #t "~1Tfog-end: (meters ~m)~%" (-> this fog-end))
|
|
(format #t "~1Tfog-max: ~f~%" (-> this fog-max))
|
|
(format #t "~1Tfog-min: ~f~%" (-> this fog-min))
|
|
(format #t "~1Treset: ~D~%" (-> this reset))
|
|
(format #t "~1Tsmooth-step: ~f~%" (-> this smooth-step))
|
|
(format #t "~1Tsmooth-t: ~f~%" (-> this smooth-t))
|
|
(format #t "~1Tperspective: #<matrix @ #x~X>~%" (-> this perspective))
|
|
(format #t "~1Tisometric: #<matrix @ #x~X>~%" (-> this isometric))
|
|
(format #t "~1Tsprite-2d: #<matrix @ #x~X>~%" (-> this sprite-2d))
|
|
(format #t "~1Tsprite-2d-hvdf: #<vector @ #x~X>~%" (-> this sprite-2d-hvdf))
|
|
(format #t "~1Tcamera-rot: #<matrix @ #x~X>~%" (-> this camera-rot))
|
|
(format #t "~1Tinv-camera-rot: #<matrix @ #x~X>~%" (-> this inv-camera-rot))
|
|
(format #t "~1Tinv-camera-rot-smooth: #<matrix @ #x~X>~%" (-> this inv-camera-rot-smooth))
|
|
(format #t "~1Tinv-camera-rot-smooth-from: #<quaternion @ #x~X>~%" (-> this inv-camera-rot-smooth-from))
|
|
(format #t "~1Tcamera-temp: #<matrix @ #x~X>~%" (-> this camera-temp))
|
|
(format #t "~1Tprev-camera-temp: #<matrix @ #x~X>~%" (-> this prev-camera-temp))
|
|
(format #t "~1Tprev-inv-camera-rot: #<matrix @ #x~X>~%" (-> this prev-inv-camera-rot))
|
|
(format #t "~1Tprev-trans: ~`vector`P~%" (-> this prev-trans))
|
|
(format #t "~1Thmge-scale: #<vector @ #x~X>~%" (-> this hmge-scale))
|
|
(format #t "~1Tinv-hmge-scale: #<vector @ #x~X>~%" (-> this inv-hmge-scale))
|
|
(format #t "~1Thvdf-off: #<vector @ #x~X>~%" (-> this hvdf-off))
|
|
(format #t "~1Tguard: #<vector @ #x~X>~%" (-> this guard))
|
|
(format #t "~1Tvis-gifs[4] @ #x~X~%" (-> this vis-gifs))
|
|
(format #t "~1Tgiftex: ~D~%" (-> this giftex))
|
|
(format #t "~1Tgifgr: ~D~%" (-> this gifgr))
|
|
(format #t "~1Tgiftex-trans: ~D~%" (-> this giftex-trans))
|
|
(format #t "~1Tgifgr-trans: ~D~%" (-> this gifgr-trans))
|
|
(format #t "~1Tpfog0: ~f~%" (-> this pfog0))
|
|
(format #t "~1Tpfog1: ~f~%" (-> this pfog1))
|
|
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
|
|
(format #t "~1Tplane[4] @ #x~X~%" (-> this plane))
|
|
(format #t "~1Tguard-plane[4] @ #x~X~%" (-> this guard-plane))
|
|
(format #t "~1Tshrub-mat: #<matrix @ #x~X>~%" (-> this shrub-mat))
|
|
(format #t "~1Tquat-other: #<quaternion @ #x~X>~%" (-> this quat-other))
|
|
(format #t "~1Ttrans-other: #<vector @ #x~X>~%" (-> this trans-other))
|
|
(format #t "~1Tshrub-mat-other: #<matrix @ #x~X>~%" (-> this shrub-mat-other))
|
|
(format #t "~1Tcamera-temp-other: #<matrix @ #x~X>~%" (-> this camera-temp-other))
|
|
(format #t "~1Tcamera-rot-other: #<matrix @ #x~X>~%" (-> this camera-rot-other))
|
|
(format #t "~1Tinv-camera-rot-other: #<matrix @ #x~X>~%" (-> this inv-camera-rot-other))
|
|
(format #t "~1Tplane-other[4] @ #x~X~%" (-> this plane-other))
|
|
(format #t "~1Tguard-plane-other[4] @ #x~X~%" (-> this guard-plane-other))
|
|
(format #t "~1Tmirror-trans: #<vector @ #x~X>~%" (-> this mirror-trans))
|
|
(format #t "~1Tmirror-normal: #<vector @ #x~X>~%" (-> this mirror-normal))
|
|
(format #t "~1Tfov-correction-factor: ~f~%" (-> this fov-correction-factor))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|