mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-06 01:49:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

[jak3] misc. headers (#3345)

Browse Source 
trail-h, minimap-h, bigmap-h, capture, memory-usage-h, blit-displays-h,
sky-h, rest of ocean-h
This commit is contained in:
water111
2024-01-27 14:06:21 -05:00
committed by GitHub
parent 398d2ee5e1
commit 8d0d05717f
24 changed files with 5739 additions and 317 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/config/jak3/all-types.gc
+357 -222
View File
File diff suppressed because it is too large Load Diff
decompiler/config/jak3/ntsc_v1/label_types.jsonc
+2 -1
View File
@@ -39,5 +39,6 @@
["L3", "(inline-array profile-spec)", 14],
["L2", "(pointer uint64)", 584]
],
"texture-anim-h": [["L1", "(pointer uint8)", 256]]
"texture-anim-h": [["L1", "(pointer uint8)", 256]],
"capture": [["L4", "gs-store-image-packet"]]
}
decompiler/config/jak3/ntsc_v1/type_casts.jsonc
+5
View File
@@ -231,5 +231,10 @@
[334, "v1", "(pointer uint64)"],
[141, "v1", "int"],
[25, "v1", "dma-tag"]
],
"(method 3 connection-minimap)": [
[97, "f0", "float"]
]
}
decompiler/config/jak3/ntsc_v1/var_names.jsonc
+17
View File
@@ -519,5 +519,22 @@
"stream",
"expected-size"
]
},
"gs-set-default-store-image": {
"args": [
"packet",
"source-vram",
"width",
"tex-fmt",
"ssax",
"ssay",
"rrw",
"rrh"
]
},
"store-image": {
"args": [
"work"
]
}
}
goal_src/jak3/engine/debug/memory-usage-h.gc
+30
View File
@@ -7,3 +7,33 @@
;; DECOMP BEGINS
;; this file is debug only
(declare-file (debug))
(deftype memory-usage-info (structure)
((name string)
(count int32)
(used int32)
(total int32)
)
)
(deftype memory-usage-block (basic)
((work-bsp basic)
(length int32)
(data memory-usage-info 113 :inline)
)
(:methods
(reset! (_type_) _type_)
(calculate-total (_type_) int)
(print-mem-usage (_type_ level object) _type_)
)
)
(define *mem-usage* (new 'debug 'memory-usage-block))
(define *dma-mem-usage* (new 'debug 'memory-usage-block))
(define *temp-mem-usage* (the-as memory-usage-block #f))
goal_src/jak3/engine/gfx/blit-displays-h.gc
+79
View File
@@ -7,3 +7,82 @@
;; DECOMP BEGINS
(deftype blit-displays-work (structure)
((adgif-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(contrast-tmpl dma-gif-packet :inline)
(sprite-slow-tmpl dma-gif-packet :inline)
(draw-slow-time-tmpl dma-gif-packet :inline)
(line-tmpl dma-gif-packet :inline)
(scan-tmpl dma-gif-packet :inline)
(color vector4w :inline)
(line-color uint64)
(scan-colors vector4w 15 :inline)
(zoom-blur-pos vector :inline)
(zoom-blur-count int32)
(zoom-blur-texels int32)
(zoom-blur-alpha-target float)
(zoom-blur-alpha-current float)
(zoom-blur-2d basic)
(menu-mode symbol)
(screen-copied symbol)
(vu1-enable-user-menu vu1-renderer-mask)
(texture-enable-user-menu uint32)
(count-down uint32)
(horizontal-flip-flag symbol)
(scan-alpha float)
(scanline uint32)
(progress-interp float)
(progress-interp-dest float)
(progress-interp-speed float)
(slow-time float)
)
(:methods
(blit-displays-work-method-9 () none)
(blit-displays-work-method-10 () none)
(blit-displays-work-method-11 () none)
(blit-displays-work-method-12 () none)
(blit-displays-work-method-13 () none)
(blit-displays-work-method-14 () none)
(blit-displays-work-method-15 () none)
(blit-displays-work-method-16 () none)
(blit-displays-work-method-17 () none)
(blit-displays-work-method-18 () none)
(blit-displays-work-method-19 () none)
(blit-displays-work-method-20 () none)
(get-menu-mode (_type_) symbol)
(get-screen-copied (_type_) symbol)
(get-horizontal-flip-flag (_type_) symbol)
(set-menu-mode (_type_ symbol) symbol)
(set-screen-copied (_type_ symbol) symbol)
(set-horizontal-flip-flag (_type_ symbol) symbol)
)
)
(defmethod get-menu-mode ((this blit-displays-work))
(-> this menu-mode)
)
(defmethod get-screen-copied ((this blit-displays-work))
(-> this screen-copied)
)
(defmethod get-horizontal-flip-flag ((this blit-displays-work))
(-> this horizontal-flip-flag)
)
(defmethod set-menu-mode ((this blit-displays-work) (arg0 symbol))
(set! (-> this menu-mode) arg0)
arg0
)
(defmethod set-screen-copied ((this blit-displays-work) (arg0 symbol))
(set! (-> this screen-copied) arg0)
arg0
)
(defmethod set-horizontal-flip-flag ((this blit-displays-work) (arg0 symbol))
(set! (-> this horizontal-flip-flag) arg0)
arg0
)
goal_src/jak3/engine/gfx/foreground/lights-h.gc
+6 -1
View File
@@ -25,6 +25,11 @@
(ambi light :inline)
)
)
(deftype vu-lights (structure)
((direction vector 3 :inline)
(color vector 3 :inline)
(ambient vector :inline)
)
)
;; DECOMP BEGINS
goal_src/jak3/engine/gfx/ocean/ocean-h.gc
+681 -68
View File
@@ -7,125 +7,738 @@
;; DECOMP BEGINS
(deftype ocean-spheres (structure)
((spheres sphere 36 :inline :offset-assert 0) ;; guessed by decompiler
(deftype ocean-corner (structure)
((bsphere sphere :inline)
(start-corner vector :inline)
(y-scales vector :inline)
(alphas vector :inline)
(colors uint32 4)
)
:method-count-assert 9
:size-assert #x240
:flag-assert #x900000240
)
(deftype ocean-wave-info (structure)
((frequency float)
(amplitude float)
(wave-speed float)
(angle float)
(kx float)
(ky float)
(w float)
(flags int32)
)
)
(deftype ocean-vertex (structure)
((pos vector :inline)
(stq vector :inline)
(col vector :inline)
)
)
(deftype ocean-spheres (structure)
((spheres sphere 36 :inline)
)
)
(deftype ocean-colors (structure)
((colors rgba 2548 :offset-assert 0) ;; guessed by decompiler
((colors rgba 2548)
)
:method-count-assert 9
:size-assert #x27d0
:flag-assert #x9000027d0
)
(deftype ocean-colors-float (structure)
((colors vector 2548 :inline :offset-assert 0) ;; guessed by decompiler
((colors vector 2548 :inline)
)
:method-count-assert 9
:size-assert #x9f40
:flag-assert #x900009f40
)
(deftype ocean-mid-mask (structure)
((mask uint8 8 :offset-assert 0) ;; guessed by decompiler
(dword uint64 :offset 0)
((mask uint8 8)
(dword uint64 :overlay-at (-> mask 0))
)
:pack-me
:method-count-assert 9
:size-assert #x8
:flag-assert #x900000008
)
(deftype ocean-mid-indices (basic)
((data uint16 36 :offset-assert 4) ;; guessed by decompiler
((data uint16 36)
)
:method-count-assert 9
:size-assert #x4c
:flag-assert #x90000004c
)
(deftype ocean-mid-masks (basic)
((data (inline-array ocean-mid-mask) :offset-assert 4) ;; guessed by decompiler
((data (inline-array ocean-mid-mask))
)
:method-count-assert 9
:size-assert #x8
:flag-assert #x900000008
)
(deftype ocean-trans-mask (structure)
((mask uint8 4 :offset-assert 0) ;; guessed by decompiler
(word int32 :offset 0)
((mask uint8 4)
(word int32 :overlay-at (-> mask 0))
)
:pack-me
:method-count-assert 9
:size-assert #x4
:flag-assert #x900000004
)
(deftype ocean-trans-index (structure)
((parent int16 :offset-assert 0)
(child int16 :offset-assert 2)
((parent int16)
(child int16)
)
:pack-me
:method-count-assert 9
:size-assert #x4
:flag-assert #x900000004
)
(deftype ocean-trans-indices (basic)
((data ocean-trans-index 2304 :inline :offset-assert 4)
((data ocean-trans-index 2304 :inline)
)
:method-count-assert 9
:size-assert #x2404
:flag-assert #x900002404
)
(deftype ocean-near-index (structure)
((data uint16 16 :offset-assert 0) ;; guessed by decompiler
((data uint16 16)
)
:method-count-assert 9
:size-assert #x20
:flag-assert #x900000020
)
(deftype ocean-near-indices (basic)
((data (inline-array ocean-near-index) :offset-assert 4) ;; guessed by decompiler
((data (inline-array ocean-near-index))
)
:method-count-assert 9
:size-assert #x8
:flag-assert #x900000008
)
(deftype ocean-near-colors (structure)
((color0 vector :inline :offset-assert 0)
(color1 vector :inline :offset-assert 16)
(color2 vector :inline :offset-assert 32)
(color3 vector :inline :offset-assert 48)
((color0 vector :inline)
(color1 vector :inline)
(color2 vector :inline)
(color3 vector :inline)
)
:method-count-assert 9
:size-assert #x40
:flag-assert #x900000040
)
(deftype ocean-map (structure)
((start-corner vector :inline :offset-assert 0)
(far-color vector :inline :offset-assert 16)
(ocean-colors ocean-colors :offset-assert 32)
(ocean-mid-indices ocean-mid-indices :offset-assert 36) ;; guessed by decompiler
(ocean-trans-indices ocean-trans-indices :offset-assert 40) ;; guessed by decompiler
(ocean-near-indices ocean-near-indices :offset-assert 44) ;; guessed by decompiler
(ocean-mid-masks ocean-mid-masks :offset-assert 48) ;; guessed by decompiler
(deftype ocean-trans-strip (structure)
((verts uint128 10)
)
)
(deftype ocean-trans-strip-array (structure)
((data ocean-trans-strip 4 :inline)
)
)
(deftype ocean-wave-data (structure)
((data uint8 1024)
)
)
(deftype ocean-wave-frames (structure)
((frame ocean-wave-data 64 :inline)
)
)
(deftype ocean-texture-constants (structure)
((giftag gs-gif-tag :inline)
(buffers vector4w :inline)
(dests vector4w :inline)
(start vector :inline)
(offsets vector :inline)
(constants vector :inline)
(cam-nrm vector :inline)
)
)
(deftype ocean-mid-vertex (structure)
((stq vector :inline)
(col vector :inline)
(pos vector :inline)
)
)
(deftype ocean-mid-constants (structure)
((hmge-scale vector :inline)
(inv-hmge-scale vector :inline)
(hvdf-offset vector :inline)
(fog vector :inline)
(constants vector :inline)
(constants2 vector :inline)
(drw-fan gs-gif-tag :inline)
(env-fan gs-gif-tag :inline)
(drw-adgif gs-gif-tag :inline)
(drw-texture adgif-shader :inline)
(drw-strip-0 gs-gif-tag :inline)
(drw-strip-1 gs-gif-tag :inline)
(env-adgif gs-gif-tag :inline)
(env-texture adgif-shader :inline)
(env-strip gs-gif-tag :inline)
(env-color vector :inline)
(index-table vector4w 8 :inline)
(pos0 vector :inline)
(pos1 vector :inline)
(pos2 vector :inline)
(pos3 vector :inline)
)
)
(deftype ocean-mid-upload (structure)
((rot matrix :inline)
(matrix matrix :inline)
(colors uint128 108)
(masks uint128 2)
)
)
(deftype ocean-mid-upload2 (structure)
((rot matrix :inline)
(matrix matrix :inline)
(count vector4w :inline)
(tex0 vector :inline)
(tex1 vector :inline)
(tex2 vector :inline)
(tex3 vector :inline)
(clr0 vector :inline)
(clr1 vector :inline)
(clr2 vector :inline)
(clr3 vector :inline)
(verts uint128 18)
)
)
(deftype ocean-mid-work (structure)
((env0 vector :inline)
(env1 vector :inline)
(env2 vector :inline)
(hmg0 vector :inline)
(hmg1 vector :inline)
(hmg2 vector :inline)
(indices uint128 16)
)
)
(deftype ocean-near-constants (structure)
((hmge-scale vector :inline)
(inv-hmge-scale vector :inline)
(hvdf-offset vector :inline)
(fog vector :inline)
(constants vector :inline)
(constants2 vector :inline)
(constants3 vector :inline)
(constants4 vector :inline)
(constants5 vector :inline)
(drw-fan gs-gif-tag :inline)
(drw2-fan gs-gif-tag :inline)
(env-fan gs-gif-tag :inline)
(drw-adgif gs-gif-tag :inline)
(drw-texture adgif-shader :inline)
(drw-strip gs-gif-tag :inline)
(env-adgif gs-gif-tag :inline)
(env-texture adgif-shader :inline)
(env-strip gs-gif-tag :inline)
(env-color vector :inline)
(drw2-adgif gs-gif-tag :inline)
(drw2-tex0 qword :inline)
(drw2-frame qword :inline)
(drw2-strip gs-gif-tag :inline)
(drw3-adgif gs-gif-tag :inline)
(drw3-frame gs-adcmd :inline)
(index-table vector4w 4 :inline)
)
)
(deftype ocean-near-upload (structure)
((rot matrix :inline)
(matrix matrix :inline)
(masks uint128 2)
(start-height vector4w :inline)
(start-st vector :inline)
(near-colors ocean-near-colors :inline)
)
)
(deftype ocean-near-vertex (structure)
((stq vector :inline)
(clr vector :inline)
(pos vector :inline)
)
)
(deftype ocean-near-work (structure)
((verts-ptr vector :inline)
(indices uint128 16)
)
)
(deftype ocean-height-array (structure)
((data float 1024)
)
)
(deftype ocean-vert-array (structure)
((data vector 2048 :inline)
)
)
(deftype ocean-map (structure)
((start-corner vector :inline)
(far-color vector :inline)
(ocean-colors ocean-colors)
(ocean-mid-indices ocean-mid-indices)
(ocean-trans-indices ocean-trans-indices)
(ocean-near-indices ocean-near-indices)
(ocean-mid-masks ocean-mid-masks)
)
:method-count-assert 11
:size-assert #x34
:flag-assert #xb00000034
(:methods
(set-height! (_type_ float) none) ;; 9
(get-base-height (_type_) float) ;; 10
(set-height! (_type_ float) none)
(get-base-height (_type_) float)
)
)
(deftype ocean (ocean-map)
((off symbol)
(near-off symbol)
(mid-off symbol)
(far-on symbol)
(all-on basic)
(ocean-facing uint32)
(heights ocean-height-array)
(heights2 ocean-height-array)
(verts ocean-vert-array)
(ocean-near-translucent? symbol)
(deltas vector :inline)
(map-min vector :inline)
(map-max vector :inline)
(interp vector :inline)
(corner-array ocean-corner 25 :inline)
(corner-count int32)
(temp-vecs vector 4 :inline)
(mid-mask-ptrs pointer 36)
(mid-camera-masks uint64 36)
(trans-mask-ptrs pointer 64)
(trans-camera-masks ocean-trans-mask 16)
(trans-temp-masks uint32 16)
(sprite-tmpl dma-gif-packet :inline)
(sprite-tmpl2 dma-gif-packet :inline)
(sprite-tmpl3 dma-gif-packet :inline)
(adgif-tmpl dma-gif-packet :inline)
(line-tmpl dma-gif-packet :inline)
(sun-tmpl dma-gif-packet :inline)
(erase-tmpl dma-gif-packet :inline)
(haze-tmpl dma-gif-packet :inline)
(cloud-tmpl dma-gif-packet :inline)
(clut-tmpl dma-gif-packet :inline)
(cloud-lights cloud-lights :inline)
(haze-lights haze-lights :inline)
(constant vector :inline)
(sky-color vector :inline)
(haze-verts vector4w 32 :inline)
(cloud-verts vector4w 36 :inline)
(cloud-nrms vector 36 :inline)
(cloud-col0 vector 36 :inline)
(cloud-col1 vector 36 :inline)
(cloud-st0 vector 36 :inline)
(cloud-st1 vector 36 :inline)
(color80808080 vector4w :inline)
(color80808040 vector4w :inline)
(color80808000 vector4w :inline)
(st0000 vector :inline)
(st0505 vector :inline)
(st1010 vector :inline)
(uv00 vector4w :inline)
(uv44 vector4w :inline)
(uv88 vector4w :inline)
(uv1010 vector4w :inline)
(uv2020 vector4w :inline)
(uv4040 vector4w :inline)
(uv8080 vector4w :inline)
(xy00 vector4w :inline)
(xy88 vector4w :inline)
(xy1010 vector4w :inline)
(xy2020 vector4w :inline)
(xy4040 vector4w :inline)
(xy8080 vector4w :inline)
(cloud-alpha uint8 36)
(near-mask-indices uint16 16)
(mid-minx uint8)
(mid-maxx uint8)
(mid-minz uint8)
(mid-maxz uint8)
(near-minx uint8)
(near-maxx uint8)
(near-minz uint8)
(near-maxz uint8)
(temp-minx uint8)
(temp-maxx uint8)
(temp-minz uint8)
(temp-maxz uint8)
(tex1 gs-tex1)
(tex1-near gs-tex1)
(corner00 float)
(corner01 float)
(corner10 float)
(corner11 float)
(frame-num float)
(frame-speed float)
(frame-num2 float)
(frame-speed2 float)
(cloud-interp float :overlay-at (-> constant data 3))
(scales vector :inline)
(mask-hi vector4w :inline)
(mask-lo vector4w :inline)
(lights vu-lights :inline)
(uv-scroll-0 vector4w :inline)
(uv-scroll-1 vector4w :inline)
(st-scroll vector2 :inline)
(wait-to-vu0 uint32)
)
(:methods
(ocean-method-11 () none)
(ocean-method-12 () none)
(ocean-method-13 () none)
(ocean-method-14 () none)
(ocean-method-15 () none)
(ocean-method-16 () none)
(ocean-method-17 () none)
(ocean-method-18 () none)
(ocean-method-19 () none)
(ocean-method-20 () none)
(ocean-method-21 () none)
(ocean-method-22 () none)
(ocean-method-23 () none)
(ocean-method-24 () none)
(ocean-method-25 () none)
(ocean-method-26 () none)
(ocean-method-27 () none)
(ocean-method-28 () none)
(ocean-method-29 () none)
(ocean-method-30 () none)
(ocean-method-31 () none)
(ocean-method-32 () none)
(ocean-method-33 () none)
(ocean-method-34 () none)
(ocean-method-35 () none)
(ocean-method-36 () none)
(ocean-method-37 () none)
(ocean-method-38 () none)
(ocean-method-39 () none)
(ocean-method-40 () none)
(ocean-method-41 () none)
(ocean-method-42 () none)
(ocean-method-43 () none)
(ocean-method-44 () none)
(ocean-method-45 () none)
(ocean-method-46 () none)
(ocean-method-47 () none)
(ocean-method-48 () none)
(ocean-method-49 () none)
(ocean-method-50 () none)
(ocean-method-51 () none)
(ocean-method-52 () none)
(ocean-method-53 () none)
(ocean-method-54 () none)
(ocean-method-55 () none)
(ocean-method-56 () none)
(ocean-method-57 () none)
(ocean-method-58 () none)
(ocean-method-59 () none)
(ocean-method-60 () none)
(ocean-method-61 () none)
(ocean-method-62 () none)
(ocean-method-63 () none)
(ocean-method-64 () none)
(ocean-method-65 () none)
(ocean-method-66 () none)
(ocean-method-67 () none)
(ocean-method-68 () none)
(ocean-method-69 () none)
(ocean-method-70 () none)
(ocean-method-71 () none)
(ocean-method-72 () none)
(ocean-method-73 () none)
(ocean-method-74 () none)
(ocean-method-75 () none)
(ocean-method-76 () none)
(ocean-method-77 () none)
(ocean-method-78 () none)
(ocean-method-79 () none)
(ocean-method-80 () none)
(ocean-method-81 () none)
(ocean-method-82 () none)
(ocean-method-83 () none)
(ocean-method-84 () none)
(ocean-method-85 () none)
(ocean-method-86 () none)
(ocean-method-87 () none)
(ocean-method-88 () none)
(ocean-method-89 () none)
(ocean-method-90 () none)
(ocean-method-91 () none)
)
)
(define *ocean-map* (the-as ocean-map #f))
(define *ocean* (new 'static 'ocean
:sprite-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x508b400000008001 #x53531)
)
:sprite-tmpl2 (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x4 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x4 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x3023400000008001 #x551)
)
:sprite-tmpl3 (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x50ab400000008001 #x53531)
)
:adgif-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x1000000000008005 #xe)
)
:line-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x141 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x141 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x5008c00000008040 #x52521)
)
:sun-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x502b400000008001 #x52521)
)
:erase-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x4 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x4 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x3003400000008001 #x551)
)
:haze-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x45 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x45 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x4026400000008011 #x4141)
)
:cloud-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x25 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x25 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x602e400000008006 #x421421)
)
:clut-tmpl (new 'static 'dma-gif-packet
:dma-vif (new 'static 'dma-packet
:dma (new 'static 'dma-tag :qwc #x41 :id (dma-tag-id cnt))
:vif1 (new 'static 'vif-tag :imm #x41 :cmd (vif-cmd direct) :msk #x1)
)
:gif (new 'static 'array uint64 2 #x800000000008040 #x0)
)
:constant (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
:haze-verts (new 'static 'inline-array vector4w 32
(new 'static 'vector4w :x #x400 :y #x5c0 :z #xffffff)
(new 'static 'vector4w :x #x400 :y #x600 :z #xffffff)
(new 'static 'vector4w :x #x4a0 :y #x590 :z #xffffff)
(new 'static 'vector4w :x #x4c0 :y #x5e0 :z #xffffff)
(new 'static 'vector4w :x #x530 :y #x530 :z #xffffff)
(new 'static 'vector4w :x #x560 :y #x560 :z #xffffff)
(new 'static 'vector4w :x #x590 :y #x4a0 :z #xffffff)
(new 'static 'vector4w :x #x5e0 :y #x4c0 :z #xffffff)
(new 'static 'vector4w :x #x5c0 :y #x3f0 :z #xffffff)
(new 'static 'vector4w :x #x600 :y #x3f0 :z #xffffff)
(new 'static 'vector4w :x #x590 :y #x350 :z #xffffff)
(new 'static 'vector4w :x #x5e0 :y #x330 :z #xffffff)
(new 'static 'vector4w :x #x530 :y #x2c0 :z #xffffff)
(new 'static 'vector4w :x #x560 :y #x290 :z #xffffff)
(new 'static 'vector4w :x #x4a0 :y #x260 :z #xffffff)
(new 'static 'vector4w :x #x4c0 :y #x210 :z #xffffff)
(new 'static 'vector4w :x #x3f0 :y #x240 :z #xffffff)
(new 'static 'vector4w :x #x3f0 :y #x1f0 :z #xffffff)
(new 'static 'vector4w :x #x350 :y #x260 :z #xffffff)
(new 'static 'vector4w :x #x330 :y #x210 :z #xffffff)
(new 'static 'vector4w :x #x2c0 :y #x2c0 :z #xffffff)
(new 'static 'vector4w :x #x290 :y #x290 :z #xffffff)
(new 'static 'vector4w :x #x260 :y #x350 :z #xffffff)
(new 'static 'vector4w :x #x210 :y #x330 :z #xffffff)
(new 'static 'vector4w :x #x240 :y #x400 :z #xffffff)
(new 'static 'vector4w :x #x1f0 :y #x400 :z #xffffff)
(new 'static 'vector4w :x #x260 :y #x4a0 :z #xffffff)
(new 'static 'vector4w :x #x210 :y #x4c0 :z #xffffff)
(new 'static 'vector4w :x #x2c0 :y #x530 :z #xffffff)
(new 'static 'vector4w :x #x290 :y #x560 :z #xffffff)
(new 'static 'vector4w :x #x350 :y #x590 :z #xffffff)
(new 'static 'vector4w :x #x330 :y #x5e0 :z #xffffff)
)
:cloud-verts (new 'static 'inline-array vector4w 36
(new 'static 'vector4w :x #x290 :y #x290 :z #xffffff)
(new 'static 'vector4w :x #x310 :y #x230 :z #xffffff)
(new 'static 'vector4w :x #x3a0 :y #x200 :z #xffffff)
(new 'static 'vector4w :x #x450 :y #x200 :z #xffffff)
(new 'static 'vector4w :x #x4e0 :y #x230 :z #xffffff)
(new 'static 'vector4w :x #x560 :y #x290 :z #xffffff)
(new 'static 'vector4w :x #x230 :y #x310 :z #xffffff)
(new 'static 'vector4w :x #x300 :y #x300 :z #xffffff)
(new 'static 'vector4w :x #x3a0 :y #x2b0 :z #xffffff)
(new 'static 'vector4w :x #x450 :y #x2b0 :z #xffffff)
(new 'static 'vector4w :x #x4f0 :y #x300 :z #xffffff)
(new 'static 'vector4w :x #x5c0 :y #x310 :z #xffffff)
(new 'static 'vector4w :x #x200 :y #x3a0 :z #xffffff)
(new 'static 'vector4w :x #x2b0 :y #x3a0 :z #xffffff)
(new 'static 'vector4w :x #x380 :y #x380 :z #xffffff)
(new 'static 'vector4w :x #x470 :y #x380 :z #xffffff)
(new 'static 'vector4w :x #x540 :y #x3a0 :z #xffffff)
(new 'static 'vector4w :x #x5f0 :y #x3a0 :z #xffffff)
(new 'static 'vector4w :x #x200 :y #x450 :z #xffffff)
(new 'static 'vector4w :x #x2b0 :y #x450 :z #xffffff)
(new 'static 'vector4w :x #x380 :y #x470 :z #xffffff)
(new 'static 'vector4w :x #x470 :y #x470 :z #xffffff)
(new 'static 'vector4w :x #x540 :y #x450 :z #xffffff)
(new 'static 'vector4w :x #x5f0 :y #x450 :z #xffffff)
(new 'static 'vector4w :x #x230 :y #x4e0 :z #xffffff)
(new 'static 'vector4w :x #x300 :y #x4f0 :z #xffffff)
(new 'static 'vector4w :x #x3a0 :y #x540 :z #xffffff)
(new 'static 'vector4w :x #x450 :y #x540 :z #xffffff)
(new 'static 'vector4w :x #x4f0 :y #x4f0 :z #xffffff)
(new 'static 'vector4w :x #x5c0 :y #x4e0 :z #xffffff)
(new 'static 'vector4w :x #x290 :y #x560 :z #xffffff)
(new 'static 'vector4w :x #x310 :y #x5c0 :z #xffffff)
(new 'static 'vector4w :x #x3a0 :y #x5f0 :z #xffffff)
(new 'static 'vector4w :x #x450 :y #x5f0 :z #xffffff)
(new 'static 'vector4w :x #x4e0 :y #x5c0 :z #xffffff)
(new 'static 'vector4w :x #x560 :y #x560 :z #xffffff)
)
:cloud-nrms (new 'static 'inline-array vector 36
(new 'static 'vector :x -0.4999 :y 0.7071 :z -0.5)
(new 'static 'vector :x -0.3209 :y 0.7071 :z -0.63)
(new 'static 'vector :x -0.1105 :y 0.7071 :z -0.6984)
(new 'static 'vector :x 0.1105 :y 0.7071 :z -0.6983)
(new 'static 'vector :x 0.321 :y 0.7071 :z -0.63)
(new 'static 'vector :x 0.5 :y 0.7071 :z -0.4999)
(new 'static 'vector :x -0.63 :y 0.7071 :z -0.321)
(new 'static 'vector :x -0.3921 :y 0.832 :z -0.3922)
(new 'static 'vector :x -0.1434 :y 0.832 :z -0.5358)
(new 'static 'vector :x 0.1435 :y 0.832 :z -0.5357)
(new 'static 'vector :x 0.3922 :y 0.832 :z -0.3921)
(new 'static 'vector :x 0.63 :y 0.7071 :z -0.3209)
(new 'static 'vector :x -0.6983 :y 0.7071 :z -0.1106)
(new 'static 'vector :x -0.5357 :y 0.832 :z -0.1435)
(new 'static 'vector :x -0.334 :y 0.8814 :z -0.334)
(new 'static 'vector :x 0.334 :y 0.8814 :z -0.334)
(new 'static 'vector :x 0.5358 :y 0.832 :z -0.1434)
(new 'static 'vector :x 0.6984 :y 0.7071 :z -0.1105)
(new 'static 'vector :x -0.6984 :y 0.7071 :z 0.1105)
(new 'static 'vector :x -0.5358 :y 0.832 :z 0.1435)
(new 'static 'vector :x -0.334 :y 0.8814 :z 0.334)
(new 'static 'vector :x 0.334 :y 0.8814 :z 0.334)
(new 'static 'vector :x 0.5357 :y 0.832 :z 0.1435)
(new 'static 'vector :x 0.6983 :y 0.7071 :z 0.1105)
(new 'static 'vector :x -0.63 :y 0.7071 :z 0.321)
(new 'static 'vector :x -0.3922 :y 0.832 :z 0.3921)
(new 'static 'vector :x -0.1435 :y 0.832 :z 0.5357)
(new 'static 'vector :x 0.1435 :y 0.832 :z 0.5358)
(new 'static 'vector :x 0.3922 :y 0.832 :z 0.3922)
(new 'static 'vector :x 0.63 :y 0.7071 :z 0.321)
(new 'static 'vector :x -0.5 :y 0.7071 :z 0.4999)
(new 'static 'vector :x -0.321 :y 0.7071 :z 0.63)
(new 'static 'vector :x -0.1106 :y 0.7071 :z 0.6983)
(new 'static 'vector :x 0.1105 :y 0.7071 :z 0.6984)
(new 'static 'vector :x 0.321 :y 0.7071 :z 0.63)
(new 'static 'vector :x 0.4999 :y 0.7071 :z 0.5)
)
:color80808080 (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80)
:color80808040 (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w 64)
:color80808000 (new 'static 'vector4w :x #x80 :y #x80 :z #x80)
:st0000 (new 'static 'vector :z 1.0)
:st0505 (new 'static 'vector :x 0.5 :y 0.5 :z 1.0)
:st1010 (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
:uv44 (new 'static 'vector4w :x 64 :y 64)
:uv88 (new 'static 'vector4w :x #x80 :y #x80)
:uv1010 (new 'static 'vector4w :x #x100 :y #x100)
:uv2020 (new 'static 'vector4w :x #x200 :y #x200)
:uv4040 (new 'static 'vector4w :x #x400 :y #x400)
:uv8080 (new 'static 'vector4w :x #x800 :y #x800)
:xy00 (new 'static 'vector4w :z #xffffff)
:xy88 (new 'static 'vector4w :x #x80 :y #x80 :z #xffffff)
:xy1010 (new 'static 'vector4w :x #x100 :y #x100 :z #xffffff)
:xy2020 (new 'static 'vector4w :x #x200 :y #x200 :z #xffffff)
:xy4040 (new 'static 'vector4w :x #x400 :y #x400 :z #xffffff)
:xy8080 (new 'static 'vector4w :x #x800 :y #x800 :z #xffffff)
:cloud-alpha (new 'static 'array uint8 36
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
#x80
)
:tex1 (new 'static 'gs-tex1 :mxl #x6 :mmag #x1 :mmin #x5 :l #x1 :k #xeed)
:tex1-near (new 'static 'gs-tex1 :mxl #x3 :mmag #x1 :mmin #x5 :l #x1 :k #xeed)
:scales (new 'static 'vector :x -0.00012207031 :y 255.0 :z -0.00012207031 :w 128.0)
:mask-hi (new 'static 'vector4w :x -65536 :y -65536 :z -65536 :w -65536)
:mask-lo (new 'static 'vector4w :x #xffff :y #xffff :z #xffff :w #xffff)
)
)
goal_src/jak3/engine/gfx/sky/sky-h.gc
+217
View File
@@ -7,3 +7,220 @@
;; DECOMP BEGINS
(deftype sky-color-hour (structure)
((snapshot1 int32)
(snapshot2 int32)
(morph-start float)
(morph-end float)
)
)
(deftype sky-color-day (structure)
((hour sky-color-hour 24 :inline)
)
)
(deftype sky-sun-data (structure)
((data uint128 4)
(pos vector :inline :overlay-at (-> data 0))
(r-sun float :overlay-at (-> data 1))
(r-halo float :offset 20)
(r-aurora float :offset 24)
(c-sun-start rgba :overlay-at (-> data 2))
(c-sun-end rgba :overlay-at (-> data 3))
(c-halo-start rgba :offset 36)
(c-halo-end rgba :offset 52)
(c-aurora-start rgba :offset 40)
(c-aurora-end rgba :offset 56)
)
)
(deftype sky-moon-data (structure)
((data uint128 2)
(pos vector :inline :overlay-at (-> data 0))
(scale vector :inline :overlay-at (-> data 1))
)
)
(deftype sky-orbit (structure)
((high-noon float)
(tilt float)
(rise float)
(dist float)
(min-halo float)
(max-halo float)
)
:allow-misaligned
)
(deftype sky-upload-data (structure)
((data uint128 16)
(sun sky-sun-data 2 :inline :overlay-at (-> data 0))
(moon sky-moon-data :inline :overlay-at (-> data 8))
(day-star sky-moon-data :inline :overlay-at (-> data 12))
)
)
(deftype sky-vertex (structure)
((pos vector :inline)
(stq vector :inline)
(col vector :inline)
)
)
(deftype cloud-vertex (structure)
((pos vector :inline)
(stq vector :inline)
(col vector :inline)
(nrm vector :inline)
(stq2 vector :inline)
(col2 vector :inline)
(nrm2 vector :inline)
)
)
(deftype cloud-vert-array (structure)
((data cloud-vertex 100 :inline)
)
)
(deftype haze-vertex (structure)
((pos vector :inline)
(nrm vector :inline)
(col vector :inline)
)
)
(deftype haze-vert-array (structure)
((data haze-vertex 36 :inline)
)
)
(deftype cloud-lights (structure)
((sun0-normal vector :inline)
(sun1-normal vector :inline)
(moon-normal vector :inline)
(ambi-color vector :inline)
(ambi-color-lower vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-color-lower vector :inline)
(sun0-scale float)
(sun1-scale float)
(moon-scale float)
)
)
(deftype haze-lights (structure)
((sun0-normal vector :inline)
(sun1-normal vector :inline)
(moon-normal vector :inline)
(ambi-color vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-scale float)
(sun1-scale float)
(moon-scale float)
)
)
(deftype sky-work (structure)
((adgif-tmpl dma-gif-packet :inline)
(draw-tmpl dma-gif-packet :inline)
(draw-tmpl2 dma-gif-packet :inline)
(fog-tmpl dma-gif-packet :inline)
(blend-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(sprite-tmpl2 dma-gif-packet :inline)
(sun-coords vector 2 :inline)
(green-coords vector 2 :inline)
(moon0-coords vector 2 :inline)
(moon1-coords vector 2 :inline)
(moon2-coords vector 2 :inline)
(day-star-coords vector 2 :inline)
(star-coords vector 2 :inline)
(sun-colors vector4w 2 :inline)
(green-colors vector4w 2 :inline)
(moon-colors vector4w 3 :inline)
(day-star-colors vector4w 3 :inline)
(star-colors vector4w 16 :inline)
(st-coords vector 2 :inline)
(random vector4w 8 :inline)
(giftag-base dma-gif :inline)
(giftag-haze dma-gif :inline)
(giftag-roof dma-gif :inline)
(giftag-ocean dma-gif :inline)
(fog vector :inline)
(sky float 8)
(time float)
(off-s uint16)
(off-t uint16)
(orbit sky-orbit 3 :inline)
(upload-data sky-upload-data :inline)
(ambi-color vector :inline)
(ambi-color-lower vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-color-lower vector :inline)
(cam-mat matrix :inline)
(star-mat matrix :inline)
(vec0 vector4w :inline)
(vec1 vector4w :inline)
(cloud-lights cloud-lights :inline)
(haze-lights haze-lights :inline)
(buf dma-buffer)
(draw-vortex basic)
(day-star-scale float)
(stars vector 512 :inline)
(disable-day-star basic)
)
(:methods
(sky-work-method-9 () none)
(sky-work-method-10 () none)
(sky-work-method-11 () none)
(sky-work-method-12 () none)
(sky-work-method-13 () none)
(sky-work-method-14 () none)
(sky-work-method-15 () none)
(sky-work-method-16 () none)
(sky-work-method-17 () none)
(sky-work-method-18 () none)
(sky-work-method-19 () none)
(sky-work-method-20 () none)
(sky-work-method-21 () none)
(sky-work-method-22 () none)
(sky-work-method-23 () none)
(sky-work-method-24 () none)
(sky-work-method-25 () none)
(sky-work-method-26 () none)
(sky-work-method-27 () none)
(sky-work-method-28 () none)
(sky-work-method-29 () none)
(sky-work-method-30 () none)
(sky-work-method-31 () none)
(sky-work-method-32 () none)
(sky-work-method-33 () none)
(sky-work-method-34 () none)
(sky-work-method-35 () none)
(sky-work-method-36 () none)
(sky-work-method-37 () none)
(sky-work-method-38 () none)
)
)
goal_src/jak3/engine/ui/bigmap-h.gc
+69
View File
@@ -7,3 +7,72 @@
;; DECOMP BEGINS
(deftype bigmap-image (structure)
((clut-offset uint32)
(image-offset uint32)
(width uint32)
(height uint32)
(data uint8 1)
)
)
(deftype bigmap-info (vector)
((scale float :overlay-at (-> data 2))
(inv-scale float :overlay-at (-> data 3))
)
)
(deftype bigmap-info-array (structure)
((data bigmap-info 24 :inline)
)
)
(deftype bigmap (basic)
((drawing-flag symbol)
(loading-flag symbol)
(bigmap-index uint32)
(bigmap-image external-art-buffer)
(tpage external-art-buffer)
(tpage2 basic)
(progress-minimap texture-page)
(progress-minimap2 basic)
(load-index uint32)
(x0 int32)
(y0 int32)
(x1 int32)
(y1 int32)
(goal-time float)
(sprite-tmpl dma-gif-packet :inline)
(draw-tmpl dma-gif-packet :inline)
(adgif-tmpl dma-gif-packet :inline)
(offset vector :inline)
(size float :overlay-at (-> offset data 2))
(scale float :overlay-at (-> offset data 3))
(scroll vector :inline)
(pos vector4w :inline)
(color vector4w :inline)
(corner vector 4 :inline)
(auto-save-icon-flag symbol)
(global-flags uint32)
)
(:methods
(new (symbol type) _type_)
(bigmap-method-9 () none)
(bigmap-method-10 () none)
(bigmap-method-11 () none)
(bigmap-method-12 () none)
(bigmap-method-13 () none)
(bigmap-method-14 () none)
(bigmap-method-15 () none)
(bigmap-method-16 () none)
(bigmap-method-17 () none)
(bigmap-method-18 () none)
(bigmap-method-19 () none)
(bigmap-method-20 () none)
(bigmap-method-21 () none)
(bigmap-method-22 () none)
)
)
goal_src/jak3/engine/ui/minimap-h.gc
+343
View File
@@ -5,5 +5,348 @@
;; name in dgo: minimap-h
;; dgos: GAME
(defenum minimap-flag
:type uint32
:bitfield #t
(active 0)
(fade-in 1)
(fade-out 2)
(clamp 3)
(trail 4)
(task-graph 5)
(flash 6)
(minimap 7)
(background 8)
(task 9)
(enemy 10)
(frustum 11)
(racer 12)
(bigmap 13)
(bigmap-only 14)
(goal 15)
(local-only 16)
(transport 17)
(ctywide 18)
(wasall 19)
(waswide 20)
(desert 21)
)
(defenum minimap-class
:type uint16
(none 0)
(onintent 1)
(vinroom 2)
(sewer-kg 3)
(sewer-genb 4)
(sewer-slumb 5)
(hiphog 6)
(gungame 7)
(gun-yellow 8)
(desert-nest-entrance 9)
(guard 10)
(parking-spot 11)
(goal 12)
(goal-no-trail 13)
(goal-no-trail-bigmap 14)
(cty-sniper-vicinity 15)
(forest 16)
(wascity-gungame 17)
(city-transport 18)
(wascity-leaper-race 19)
(wascity-pre-game 20)
(desert-transport 21)
(waspal 22)
(stadium 23)
(wasteland-arena 24)
(guard-frustum 25)
(wasdoors 26)
(gun-dark 27)
(spargus-city 28)
(racer 29)
(racer-target 30)
(racer-errol 31)
(monk-temple 32)
(bbush-desd 33)
(bbush-desc 34)
(bbush-desa 35)
(bbush-desg 36)
(bbush-desh 37)
(bbush-desc-2 38)
(bbush-dese 39)
(bbush-desb 40)
(bbush-desa-2 41)
(bbush-desc-3 42)
(bbush-desg-2 43)
(bbush-desd-2 44)
(bbush-desg-3 45)
(bbush-dese-2 46)
(bbush-dese-3 47)
(bbush-desd-3 48)
(bbush-desb-2 49)
(bbush-wasa-1 50)
(bbush-wasa-2 51)
(bbush-wasa-3 52)
(bbush-wasa-4 53)
(bbush-wasb-2 54)
(bbush-wasb-1 55)
(bbush-wasb-4 56)
(bbush-wasb-3 57)
(bbush-desg-4 58)
(bbush-wasb-5 59)
(bbush-wasb-6 60)
(bbush-desa-3 61)
(bbush-wasa-5 62)
(bbush-desd-4 63)
(bbush-desd-5 64)
(bbush-sluma-1 65)
(bbush-genb-1 66)
(bbush-slumb-1 67)
(bbush-slumb-3 68)
(bbush-desc-4 69)
(bbush-inda-1 70)
(bbush-dese-4 71)
(bbush-desc-5 72)
(bbush-desb-3 73)
(bbush-wasa-6 74)
(bbush-wasb-7 75)
(bbush-indb-1 76)
(bbush-desf 77)
(bbush-port-1 78)
(bbush-genb-2 79)
(bbush-genb-3 80)
(bbush-genb-4 81)
(bbush-slumb-4 82)
(bbush-slumc-1 83)
(bbush-dese-5 84)
(bbush-post-game 85)
(bbush-slumc-2 86)
(bbush-sluma-2 87)
(bbush-sluma-3 88)
(bbush-indb-2 89)
(bbush-indb-3 90)
(bbush-inda-2 91)
(bbush-inda-3 92)
(bbush-inda-4 93)
(bbush-inda-5 94)
(bbush-port-4 95)
(bbush-port-5 96)
(bbush-port-6 97)
(bbush-port-7 98)
(bbush-port-8 99)
(bbush-desb-4 100)
(atoll-valve 101)
(atoll-ashelin 102)
(mountain-lens 103)
(mountain-shard 104)
(mountain-gear 105)
(ruins-hut 106)
(forest-samos 107)
(metalhead 108)
(kleever-arena 109)
(seem-wascitya 110)
(seem-wascityb 111)
(kleever-wasdoors 112)
(damus-wasdoors 113)
(damus-waspal 114)
(damus-arena 115)
(kleever-wascityb 116)
(red-clamped-dot 117)
(tiny-red-dot 118)
(desert-temple 119)
(desert-oasis 120)
(desert-corral 121)
(sig-wasdoors 122)
(freehq 123)
(green-clamped-dot 124)
(nest-cocoon 125)
(nest-bridge 126)
(factory 127)
(big-orange-flashing-clamped-dot 128)
(big-red-flashing-clamped-dot 129)
(big-green-flashing-clamped-dot 130)
(big-purple-flashing-clamped-dot 131)
(medium-purple-dot 132)
(parked-vehicle 133)
(samos-genb 134)
(projectile 135)
(desertb-race 136)
(big-red-flashing-trail-dot 137)
(big-green-flashing-trail-dot 138)
(robot-frustum 139)
(desert-marauder-village 140)
(gray-clamped-dot 141)
(volcano-monk 142)
(volcano-collapsing-rock 143)
(volcano-stone-lid 144)
(volcano-dark-maker-idol 145)
(medium-green-dot 146)
(big-red-flashing-dot 147)
(factory-clamped-target 148)
(factory-clamped-tower 149)
(desglide-ring-dot 150)
(desglide-thermal-dot 151)
(mine-elevator 152)
(mine-armor 153)
(mine-sign-up 154)
(mine-sign-down 155)
(mine-door 156)
(ruins-elec-gate 157)
(ruins-goal 158)
(dp-bipedal 159)
(neo-wasp 160)
(dark-maker 161)
(templea-door 162)
(templeb-watchers 163)
(templeb-regen 164)
(templeb-warpgate 165)
(templex-darkmaker 166)
(temple-tests-door 167)
(templeb-freeze 168)
(temple-elev 169)
(factoryc-vehicle 170)
(templeb-defend 171)
(templeb-seem 172)
(temple-defend-door-1 173)
(temple-defend-door-2 174)
(temple-defend-door-3 175)
(palace-ruins 176)
)
;; DECOMP BEGINS
(deftype minimap-table-entry (structure)
((corner vector :inline)
(level-name basic)
(tex-name basic)
(meters-per-texel float)
(pos-scale float)
(min-inv-scale float)
(max-inv-scale float)
(switch-immediate basic)
)
)
(deftype minimap-class-node (structure)
((default-position vector :inline)
(flags minimap-flag)
(name basic)
(icon-xy vector2ub :inline)
(class minimap-class)
(scale float)
(color rgba)
)
(:methods
(minimap-class-node-method-9 () none)
)
)
(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)
(last-relative-pos vector :inline)
)
)
(deftype engine-minimap (engine-pers)
((alive-list connection-minimap :override)
(dead-list connection-minimap :override)
)
)
(deftype minimap-trail (structure)
((used-by connection-minimap)
(search-id uint32)
(node-count int16)
(goal-node-id int32)
(node-path-dist float)
(last-updated uint64)
(cached-info trail-cached-search-info :inline)
(node-id uint16 64)
)
(:methods
(minimap-trail-method-9 () none)
(minimap-trail-method-10 () none)
)
)
(deftype minimap-draw-work (structure)
((buf dma-buffer)
(justify-right symbol)
(global-flags uint32)
(draw-pos vector4w :inline)
(mat matrix :inline)
(corner vector 4 :inline)
)
)
(deftype minimap (structure)
((draw-tmpl dma-gif-packet :inline)
(draw2-tmpl dma-gif-packet :inline)
(draw3-tmpl dma-gif-packet :inline)
(draw4-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(adgif-tmpl dma-gif-packet :inline)
(color vector4w :inline)
(offset vector :inline)
(minimap-corner vector :inline)
(last-name string)
(last-tex basic)
(target-inv-scale float)
(map-bits uint64)
(level level)
(ctywide level)
(meters-per-texel float)
(pos-scale float)
(min-inv-scale float)
(max-inv-scale float)
(inv-scale float :overlay-at (-> offset data 1))
(map-inv-scale float)
(icon-inv-scale float)
(fade float :overlay-at (-> offset data 3))
(engine engine-minimap)
(engine-key uint32)
(trail minimap-trail 6 :inline)
(race-tex texture)
(race-scale float)
(race-level level)
(sprite2-tmpl dma-gif-packet :inline)
(race-corner vector :inline)
(goal-time float)
(frustum-alpha float)
)
(: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)
(minimap-method-16 () none)
(minimap-method-17 () none)
(minimap-method-18 () none)
(minimap-method-19 () none)
(minimap-method-20 () none)
(minimap-method-21 () none)
(minimap-method-22 () none)
(minimap-method-23 () none)
(minimap-method-24 () none)
(minimap-method-25 () none)
(minimap-method-26 () none)
(minimap-method-27 () none)
)
)
goal_src/jak3/engine/util/capture-h.gc
+10 -10
View File
@@ -12,17 +12,17 @@
(deftype gs-store-image-packet (structure)
((vifcode vif-tag 4)
(giftag uint128)
(bitbltbuf uint64)
(bitbltbuf-addr uint64)
(trxpos uint64)
(trxpos-addr uint64)
(trxreg uint64)
(trxreg-addr uint64)
(giftag gif-tag)
(bitbltbuf gs-bitbltbuf)
(bitbltbuf-addr gs-reg64)
(trxpos gs-trxpos)
(trxpos-addr gs-reg64)
(trxreg gs-trxreg)
(trxreg-addr gs-reg64)
(finish uint64)
(finish-addr uint64)
(trxdir uint64)
(trxdir-addr uint64)
(finish-addr gs-reg64)
(trxdir gs-trxdir)
(trxdir-addr gs-reg64)
)
)
goal_src/jak3/engine/util/capture.gc
+62
View File
@@ -7,3 +7,65 @@
;; DECOMP BEGINS
;; this file is debug only
(declare-file (debug))
(defun gs-set-default-store-image ((packet gs-store-image-packet)
(source-vram int)
(width int)
(tex-fmt gs-psm)
(ssax int)
(ssay int)
(rrw int)
(rrh int)
)
"Set up a gs-store-image-packet for copying VRAM data to RAM."
(set! (-> packet vifcode 0) (new 'static 'vif-tag))
(set! (-> packet vifcode 1) (new 'static 'vif-tag :imm #x8000 :cmd (vif-cmd mskpath3)))
(set! (-> packet vifcode 2) (new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1))
(set! (-> packet vifcode 3) (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1))
(set! (-> packet giftag) (new 'static 'gif-tag :nloop #x5 :eop #x1 :nreg #x1 :regs0 (gif-reg-id a+d)))
(set! (-> packet bitbltbuf)
(new 'static 'gs-bitbltbuf :sbp source-vram :sbw width :spsm (the-as int tex-fmt))
)
(set! (-> packet bitbltbuf-addr) (gs-reg64 bitbltbuf))
(set! (-> packet trxpos) (new 'static 'gs-trxpos :ssax ssax :ssay ssay))
(set! (-> packet trxpos-addr) (gs-reg64 trxpos))
(set! (-> packet trxreg) (new 'static 'gs-trxreg :rrw rrw :rrh rrh))
(set! (-> packet trxreg-addr) (gs-reg64 trxreg))
(set! (-> packet finish) (the-as uint 0))
(set! (-> packet finish-addr) (gs-reg64 finish))
(set! (-> packet trxdir) (new 'static 'gs-trxdir :xdir #x1))
(set! (-> packet trxdir-addr) (gs-reg64 trxdir))
(.sync.l)
7
)
(defun store-image ((work screen-shot-work))
"Take a screenshot!"
(let ((gp-0 512)
(s5-0 416)
)
(let ((a3-0 (-> work count))
(a2-0 (-> work name))
)
(set! (-> *image-name* data 0) (the-as uint 0))
(format *image-name* "final/rawshots/~s-~d.raw" a2-0 a3-0)
)
(format 0 "writing ~s~%" *image-name*)
(let ((s4-0 (new 'stack 'file-stream *image-name* 'write)))
(let ((s3-0 (-> *display* frames (-> *display* on-screen) global-buf data)))
(let ((s2-0 (new 'static 'gs-store-image-packet)))
(gs-set-default-store-image s2-0 #x3300 (/ gp-0 64) (gs-psm ct32) 0 0 gp-0 s5-0)
(flush-cache 0)
(gs-store-image s2-0 s3-0)
)
(sync-path 0 0)
(file-stream-write s4-0 s3-0 (the-as uint (* (* s5-0 gp-0) 4)))
)
(file-stream-close s4-0)
)
)
0
(none)
)
goal_src/jak3/levels/city/common/trail-h.gc
+181
View File
@@ -5,5 +5,186 @@
;; name in dgo: trail-h
;; dgos: GAME
(defenum trail-node-flag
:type uint8
:bitfield #t
(tnf0 0) ;; unused??
(tnf1 1)
)
(defenum conn-flag
:type uint8
:bitfield #t
(cf0 0)
(cf1 1)
(cf2 2)
(cf3 3)
)
;; DECOMP BEGINS
(deftype trail-node (structure)
((next-id int16)
(prev-id int16)
(parent-id int16)
(x int16)
(y int16)
(z int16)
(first-conn uint16)
(cost-from-start uint16)
(cost-to-goal uint16)
(flags trail-node-flag)
(conn-count uint8)
)
(:methods
(trail-node-method-9 () none)
(trail-node-method-10 () none)
(trail-node-method-11 () none)
)
)
(deftype trail-visgroup (structure)
((first-node uint16)
(node-count uint8)
(pad uint8)
)
)
(deftype trail-blocker (structure)
((plane plane :inline)
(center vector :inline)
(radius-squared float :overlay-at (-> center data 3))
)
)
(deftype trail-conn (structure)
((head-id uint16)
(tail-id uint16)
(flags conn-flag)
(visgroup-id uint8)
(cost uint16)
)
(:methods
(trail-conn-method-9 () none)
)
)
(deftype trail-conn-hash-cell (structure)
((first-conn uint16)
(conn-count uint8)
(pov-count uint8)
(first-pov uint16)
)
)
(deftype trail-conn-search (structure)
((best-conn-id int32)
(best-dist float)
(src-pos vector)
(conn-pos vector)
(debug-cells-searched int32)
(debug-conns-searched int32)
(bounds bounding-box4w :inline)
(cell-quads qword 2 :inline)
(conn-quads qword 7 :inline)
(cell-bits vector16ub 2 :inline :overlay-at cell-quads)
(conn-bits vector16ub 2 :inline :overlay-at conn-quads)
)
)
(deftype trail-conn-hash (basic)
((cell-width meters)
(origin vector :inline)
(cell (inline-array trail-conn-hash-cell))
(conn-ids (pointer uint16))
)
)
(deftype trail-cached-search-info (structure)
((goal-conn-id int16)
(orig-goal-pos vector :inline)
(conn-goal-pos vector :inline)
)
)
(deftype trail-cached-start-pov (structure)
((last-updated uint64)
(pov-can-see-start uint64)
(next-node-id int32)
(start-pos vector :inline)
)
)
(deftype trail-graph (basic)
((mode uint8)
(search-id uint32)
(open-head-id int16)
(goal-conn-id int16)
(goal-node-id int16)
(over-under-thresh float)
(over-under-above-too-low float)
(over-under-below-too-high float)
(pov-node-count uint16)
(node-count uint16)
(conn-count uint16)
(blocker-count uint16)
(conn-mask uint8)
(node (inline-array trail-node))
(conn (inline-array trail-conn))
(blocker uint32)
(conn-ids (pointer uint16))
(visgroup (inline-array trail-conn-hash-cell))
(visnode-ids (pointer uint16))
(conn-hash trail-conn-hash)
(cell-pov-bit-arrays uint32)
(pov-can-see-goal uint64)
(cached-start-pov trail-cached-start-pov :inline)
(orig-start-pos vector :inline)
(orig-goal-pos vector :inline)
(conn-start-pos vector :inline)
(conn-goal-pos vector :inline)
(open-quads qword 6 :inline)
(closed-quads qword 6 :inline)
(open-bits vector16ub 2 :inline :overlay-at open-quads)
(closed-bits vector16ub 2 :inline :overlay-at closed-quads)
)
(:methods
(trail-graph-method-9 () none)
(trail-graph-method-10 () none)
(trail-graph-method-11 () none)
(trail-graph-method-12 () none)
(trail-graph-method-13 () none)
(trail-graph-method-14 () none)
(trail-graph-method-15 () none)
(trail-graph-method-16 () none)
(trail-graph-method-17 () none)
(trail-graph-method-18 () none)
(trail-graph-method-19 () none)
(trail-graph-method-20 () none)
(trail-graph-method-21 () none)
(trail-graph-method-22 () none)
(trail-graph-method-23 () none)
(trail-graph-method-24 () none)
(trail-graph-method-25 () none)
(trail-graph-method-26 () none)
(trail-graph-method-27 () none)
(trail-graph-method-28 () none)
(trail-graph-method-29 () none)
(trail-graph-method-30 () none)
(trail-graph-method-31 () none)
(trail-graph-method-32 () none)
(trail-graph-method-33 () none)
)
)
(define *trail-graph* (the-as trail-graph #f))
test/decompiler/reference/jak3/engine/debug/memory-usage-h_REF.gc
Generated Vendored
+72
View File
@@ -0,0 +1,72 @@
;;-*-Lisp-*-
(in-package goal)
;; this file is debug only
(declare-file (debug))
;; definition of type memory-usage-info
(deftype memory-usage-info (structure)
((name string)
(count int32)
(used int32)
(total int32)
)
)
;; definition for method 3 of type memory-usage-info
(defmethod inspect ((this memory-usage-info))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'memory-usage-info)
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tcount: ~D~%" (-> this count))
(format #t "~1Tused: ~D~%" (-> this used))
(format #t "~1Ttotal: ~D~%" (-> this total))
(label cfg-4)
this
)
;; definition of type memory-usage-block
(deftype memory-usage-block (basic)
((work-bsp basic)
(length int32)
(data memory-usage-info 113 :inline)
)
(:methods
(reset! (_type_) _type_)
(calculate-total (_type_) int)
(print-mem-usage (_type_ level object) _type_)
)
)
;; definition for method 3 of type memory-usage-block
(defmethod inspect ((this memory-usage-block))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Twork-bsp: ~A~%" (-> this work-bsp))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tdata[113] @ #x~X~%" (-> this data))
(label cfg-4)
this
)
;; definition for symbol *mem-usage*, type memory-usage-block
(define *mem-usage* (new 'debug 'memory-usage-block))
;; definition for symbol *dma-mem-usage*, type memory-usage-block
(define *dma-mem-usage* (new 'debug 'memory-usage-block))
;; definition for symbol *temp-mem-usage*, type memory-usage-block
(define *temp-mem-usage* (the-as memory-usage-block #f))
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/gfx/blit-displays-h_REF.gc
Generated Vendored
+134
View File
@@ -0,0 +1,134 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type blit-displays-work
(deftype blit-displays-work (structure)
((adgif-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(contrast-tmpl dma-gif-packet :inline)
(sprite-slow-tmpl dma-gif-packet :inline)
(draw-slow-time-tmpl dma-gif-packet :inline)
(line-tmpl dma-gif-packet :inline)
(scan-tmpl dma-gif-packet :inline)
(color vector4w :inline)
(line-color uint64)
(scan-colors vector4w 15 :inline)
(zoom-blur-pos vector :inline)
(zoom-blur-count int32)
(zoom-blur-texels int32)
(zoom-blur-alpha-target float)
(zoom-blur-alpha-current float)
(zoom-blur-2d basic)
(menu-mode symbol)
(screen-copied symbol)
(vu1-enable-user-menu vu1-renderer-mask)
(texture-enable-user-menu uint32)
(count-down uint32)
(horizontal-flip-flag symbol)
(scan-alpha float)
(scanline uint32)
(progress-interp float)
(progress-interp-dest float)
(progress-interp-speed float)
(slow-time float)
)
(:methods
(blit-displays-work-method-9 () none)
(blit-displays-work-method-10 () none)
(blit-displays-work-method-11 () none)
(blit-displays-work-method-12 () none)
(blit-displays-work-method-13 () none)
(blit-displays-work-method-14 () none)
(blit-displays-work-method-15 () none)
(blit-displays-work-method-16 () none)
(blit-displays-work-method-17 () none)
(blit-displays-work-method-18 () none)
(blit-displays-work-method-19 () none)
(blit-displays-work-method-20 () none)
(get-menu-mode (_type_) symbol)
(get-screen-copied (_type_) symbol)
(get-horizontal-flip-flag (_type_) symbol)
(set-menu-mode (_type_ symbol) symbol)
(set-screen-copied (_type_ symbol) symbol)
(set-horizontal-flip-flag (_type_ symbol) symbol)
)
)
;; definition for method 3 of type blit-displays-work
(defmethod inspect ((this blit-displays-work))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'blit-displays-work)
(format #t "~1Tadgif-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this adgif-tmpl))
(format #t "~1Tsprite-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite-tmpl))
(format #t "~1Tcontrast-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this contrast-tmpl))
(format #t "~1Tsprite-slow-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite-slow-tmpl))
(format #t "~1Tdraw-slow-time-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this draw-slow-time-tmpl))
(format #t "~1Tline-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this line-tmpl))
(format #t "~1Tscan-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this scan-tmpl))
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
(format #t "~1Tline-color: ~D~%" (-> this line-color))
(format #t "~1Tscan-colors[15] @ #x~X~%" (-> this scan-colors))
(format #t "~1Tzoom-blur-pos: #<vector @ #x~X>~%" (-> this zoom-blur-pos))
(format #t "~1Tzoom-blur-count: ~D~%" (-> this zoom-blur-count))
(format #t "~1Tzoom-blur-texels: ~D~%" (-> this zoom-blur-texels))
(format #t "~1Tzoom-blur-alpha-target: ~f~%" (-> this zoom-blur-alpha-target))
(format #t "~1Tzoom-blur-alpha-current: ~f~%" (-> this zoom-blur-alpha-current))
(format #t "~1Tzoom-blur-2d: ~A~%" (-> this zoom-blur-2d))
(format #t "~1Tmenu-mode: ~A~%" (-> this menu-mode))
(format #t "~1Tscreen-copied: ~A~%" (-> this screen-copied))
(format #t "~1Tvu1-enable-user-menu: ~D~%" (-> this vu1-enable-user-menu))
(format #t "~1Ttexture-enable-user-menu: ~D~%" (-> this texture-enable-user-menu))
(format #t "~1Tcount-down: ~D~%" (-> this count-down))
(format #t "~1Thorizontal-flip-flag: ~A~%" (-> this horizontal-flip-flag))
(format #t "~1Tscan-alpha: ~f~%" (-> this scan-alpha))
(format #t "~1Tscanline: ~D~%" (-> this scanline))
(format #t "~1Tprogress-interp: ~f~%" (-> this progress-interp))
(format #t "~1Tprogress-interp-dest: ~f~%" (-> this progress-interp-dest))
(format #t "~1Tprogress-interp-speed: ~f~%" (-> this progress-interp-speed))
(format #t "~1Tslow-time: ~f~%" (-> this slow-time))
(label cfg-4)
this
)
;; definition for method 21 of type blit-displays-work
(defmethod get-menu-mode ((this blit-displays-work))
(-> this menu-mode)
)
;; definition for method 22 of type blit-displays-work
(defmethod get-screen-copied ((this blit-displays-work))
(-> this screen-copied)
)
;; definition for method 23 of type blit-displays-work
(defmethod get-horizontal-flip-flag ((this blit-displays-work))
(-> this horizontal-flip-flag)
)
;; definition for method 24 of type blit-displays-work
(defmethod set-menu-mode ((this blit-displays-work) (arg0 symbol))
(set! (-> this menu-mode) arg0)
arg0
)
;; definition for method 25 of type blit-displays-work
(defmethod set-screen-copied ((this blit-displays-work) (arg0 symbol))
(set! (-> this screen-copied) arg0)
arg0
)
;; definition for method 26 of type blit-displays-work
(defmethod set-horizontal-flip-flag ((this blit-displays-work) (arg0 symbol))
(set! (-> this horizontal-flip-flag) arg0)
arg0
)
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/gfx/ocean/ocean-h_REF.gc
Generated Vendored
+1350
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/jak3/engine/gfx/sky/sky-h_REF.gc
Generated Vendored
+507
View File
@@ -0,0 +1,507 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type sky-color-hour
(deftype sky-color-hour (structure)
((snapshot1 int32)
(snapshot2 int32)
(morph-start float)
(morph-end float)
)
)
;; definition for method 3 of type sky-color-hour
(defmethod inspect ((this sky-color-hour))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-color-hour)
(format #t "~1Tsnapshot1: ~D~%" (-> this snapshot1))
(format #t "~1Tsnapshot2: ~D~%" (-> this snapshot2))
(format #t "~1Tmorph-start: ~f~%" (-> this morph-start))
(format #t "~1Tmorph-end: ~f~%" (-> this morph-end))
(label cfg-4)
this
)
;; definition of type sky-color-day
(deftype sky-color-day (structure)
((hour sky-color-hour 24 :inline)
)
)
;; definition for method 3 of type sky-color-day
(defmethod inspect ((this sky-color-day))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-color-day)
(format #t "~1Thour[24] @ #x~X~%" (-> this hour))
(label cfg-4)
this
)
;; definition of type sky-sun-data
(deftype sky-sun-data (structure)
((data uint128 4)
(pos vector :inline :overlay-at (-> data 0))
(r-sun float :overlay-at (-> data 1))
(r-halo float :offset 20)
(r-aurora float :offset 24)
(c-sun-start rgba :overlay-at (-> data 2))
(c-sun-end rgba :overlay-at (-> data 3))
(c-halo-start rgba :offset 36)
(c-halo-end rgba :offset 52)
(c-aurora-start rgba :offset 40)
(c-aurora-end rgba :offset 56)
)
)
;; definition for method 3 of type sky-sun-data
(defmethod inspect ((this sky-sun-data))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-sun-data)
(format #t "~1Tdata[4] @ #x~X~%" (-> this data))
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this data))
(format #t "~1Tr-sun: ~f~%" (-> this r-sun))
(format #t "~1Tr-halo: ~f~%" (-> this r-halo))
(format #t "~1Tr-aurora: ~f~%" (-> this r-aurora))
(format #t "~1Tc-sun-start: ~D~%" (-> this c-sun-start))
(format #t "~1Tc-sun-end: ~D~%" (-> this c-sun-end))
(format #t "~1Tc-halo-start: ~D~%" (-> this c-halo-start))
(format #t "~1Tc-halo-end: ~D~%" (-> this c-halo-end))
(format #t "~1Tc-aurora-start: ~D~%" (-> this c-aurora-start))
(format #t "~1Tc-aurora-end: ~D~%" (-> this c-aurora-end))
(label cfg-4)
this
)
;; definition of type sky-moon-data
(deftype sky-moon-data (structure)
((data uint128 2)
(pos vector :inline :overlay-at (-> data 0))
(scale vector :inline :overlay-at (-> data 1))
)
)
;; definition for method 3 of type sky-moon-data
(defmethod inspect ((this sky-moon-data))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-moon-data)
(format #t "~1Tdata[2] @ #x~X~%" (-> this data))
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this data))
(format #t "~1Tscale: #<vector @ #x~X>~%" (-> this scale))
(label cfg-4)
this
)
;; definition of type sky-orbit
(deftype sky-orbit (structure)
((high-noon float)
(tilt float)
(rise float)
(dist float)
(min-halo float)
(max-halo float)
)
:allow-misaligned
)
;; definition for method 3 of type sky-orbit
(defmethod inspect ((this sky-orbit))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-orbit)
(format #t "~1Thigh-noon: ~f~%" (-> this high-noon))
(format #t "~1Ttilt: ~f~%" (-> this tilt))
(format #t "~1Trise: ~f~%" (-> this rise))
(format #t "~1Tdist: ~f~%" (-> this dist))
(format #t "~1Tmin-halo: ~f~%" (-> this min-halo))
(format #t "~1Tmax-halo: ~f~%" (-> this max-halo))
(label cfg-4)
this
)
;; definition of type sky-upload-data
(deftype sky-upload-data (structure)
((data uint128 16)
(sun sky-sun-data 2 :inline :overlay-at (-> data 0))
(moon sky-moon-data :inline :overlay-at (-> data 8))
(day-star sky-moon-data :inline :overlay-at (-> data 12))
)
)
;; definition for method 3 of type sky-upload-data
(defmethod inspect ((this sky-upload-data))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-upload-data)
(format #t "~1Tdata[16] @ #x~X~%" (-> this data))
(format #t "~1Tsun[2] @ #x~X~%" (-> this data))
(format #t "~1Tmoon: #<sky-moon-data @ #x~X>~%" (-> this moon))
(format #t "~1Tday-star: #<sky-moon-data @ #x~X>~%" (-> this day-star))
(label cfg-4)
this
)
;; definition of type sky-vertex
(deftype sky-vertex (structure)
((pos vector :inline)
(stq vector :inline)
(col vector :inline)
)
)
;; definition for method 3 of type sky-vertex
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect ((this sky-vertex))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-vertex)
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
(format #t "~1Tstq: #<vector @ #x~X>~%" (-> this stq))
(format #t "~1Tcol: #<vector @ #x~X>~%" (-> this col))
(label cfg-4)
this
)
;; definition for method 3 of type sky-vertex
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect ((this sky-vertex))
(format #t "sky-vertex [~X]:~%" this)
(format #t "~TPos: [~F ~F ~F ~F]~%" (-> this pos x) (-> this pos y) (-> this pos z) (-> this pos w))
(format #t "~TSTQ: [~F ~F ~F ~F]~%" (-> this stq x) (-> this stq y) (-> this stq z) (-> this stq w))
(format #t "~TCol: [~F ~F ~F ~F]~%" (-> this col x) (-> this col y) (-> this col z) (-> this col w))
this
)
;; definition of type cloud-vertex
(deftype cloud-vertex (structure)
((pos vector :inline)
(stq vector :inline)
(col vector :inline)
(nrm vector :inline)
(stq2 vector :inline)
(col2 vector :inline)
(nrm2 vector :inline)
)
)
;; definition for method 3 of type cloud-vertex
(defmethod inspect ((this cloud-vertex))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'cloud-vertex)
(format #t "~1Tpos: ~`vector`P~%" (-> this pos))
(format #t "~1Tstq: ~`vector`P~%" (-> this stq))
(format #t "~1Tcol: ~`vector`P~%" (-> this col))
(format #t "~1Tnrm: ~`vector`P~%" (-> this nrm))
(format #t "~1Tstq2: ~`vector`P~%" (-> this stq2))
(format #t "~1Tcol2: ~`vector`P~%" (-> this col2))
(format #t "~1Tnrm2: ~`vector`P~%" (-> this nrm2))
(label cfg-4)
this
)
;; definition of type cloud-vert-array
(deftype cloud-vert-array (structure)
((data cloud-vertex 100 :inline)
)
)
;; definition for method 3 of type cloud-vert-array
(defmethod inspect ((this cloud-vert-array))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'cloud-vert-array)
(format #t "~1Tdata[100] @ #x~X~%" (-> this data))
(label cfg-4)
this
)
;; definition of type haze-vertex
(deftype haze-vertex (structure)
((pos vector :inline)
(nrm vector :inline)
(col vector :inline)
)
)
;; definition for method 3 of type haze-vertex
(defmethod inspect ((this haze-vertex))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'haze-vertex)
(format #t "~1Tpos: ~`vector`P~%" (-> this pos))
(format #t "~1Tnrm: ~`vector`P~%" (-> this nrm))
(format #t "~1Tcol: ~`vector`P~%" (-> this col))
(label cfg-4)
this
)
;; definition of type haze-vert-array
(deftype haze-vert-array (structure)
((data haze-vertex 36 :inline)
)
)
;; definition for method 3 of type haze-vert-array
(defmethod inspect ((this haze-vert-array))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'haze-vert-array)
(format #t "~1Tdata[36] @ #x~X~%" (-> this data))
(label cfg-4)
this
)
;; definition of type cloud-lights
(deftype cloud-lights (structure)
((sun0-normal vector :inline)
(sun1-normal vector :inline)
(moon-normal vector :inline)
(ambi-color vector :inline)
(ambi-color-lower vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-color-lower vector :inline)
(sun0-scale float)
(sun1-scale float)
(moon-scale float)
)
)
;; definition for method 3 of type cloud-lights
(defmethod inspect ((this cloud-lights))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'cloud-lights)
(format #t "~1Tsun0-normal: #<vector @ #x~X>~%" (-> this sun0-normal))
(format #t "~1Tsun1-normal: #<vector @ #x~X>~%" (-> this sun1-normal))
(format #t "~1Tmoon-normal: #<vector @ #x~X>~%" (-> this moon-normal))
(format #t "~1Tambi-color: #<vector @ #x~X>~%" (-> this ambi-color))
(format #t "~1Tambi-color-lower: #<vector @ #x~X>~%" (-> this ambi-color-lower))
(format #t "~1Tsun0-color: #<vector @ #x~X>~%" (-> this sun0-color))
(format #t "~1Tsun1-color: #<vector @ #x~X>~%" (-> this sun1-color))
(format #t "~1Tmoon-color: #<vector @ #x~X>~%" (-> this moon-color))
(format #t "~1Tsun0-color-lower: #<vector @ #x~X>~%" (-> this sun0-color-lower))
(format #t "~1Tsun0-scale: ~f~%" (-> this sun0-scale))
(format #t "~1Tsun1-scale: ~f~%" (-> this sun1-scale))
(format #t "~1Tmoon-scale: ~f~%" (-> this moon-scale))
(label cfg-4)
this
)
;; definition of type haze-lights
(deftype haze-lights (structure)
((sun0-normal vector :inline)
(sun1-normal vector :inline)
(moon-normal vector :inline)
(ambi-color vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-scale float)
(sun1-scale float)
(moon-scale float)
)
)
;; definition for method 3 of type haze-lights
(defmethod inspect ((this haze-lights))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'haze-lights)
(format #t "~1Tsun0-normal: #<vector @ #x~X>~%" (-> this sun0-normal))
(format #t "~1Tsun1-normal: #<vector @ #x~X>~%" (-> this sun1-normal))
(format #t "~1Tmoon-normal: #<vector @ #x~X>~%" (-> this moon-normal))
(format #t "~1Tambi-color: #<vector @ #x~X>~%" (-> this ambi-color))
(format #t "~1Tsun0-color: #<vector @ #x~X>~%" (-> this sun0-color))
(format #t "~1Tsun1-color: #<vector @ #x~X>~%" (-> this sun1-color))
(format #t "~1Tmoon-color: #<vector @ #x~X>~%" (-> this moon-color))
(format #t "~1Tsun0-scale: ~f~%" (-> this sun0-scale))
(format #t "~1Tsun1-scale: ~f~%" (-> this sun1-scale))
(format #t "~1Tmoon-scale: ~f~%" (-> this moon-scale))
(label cfg-4)
this
)
;; definition of type sky-work
(deftype sky-work (structure)
((adgif-tmpl dma-gif-packet :inline)
(draw-tmpl dma-gif-packet :inline)
(draw-tmpl2 dma-gif-packet :inline)
(fog-tmpl dma-gif-packet :inline)
(blend-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(sprite-tmpl2 dma-gif-packet :inline)
(sun-coords vector 2 :inline)
(green-coords vector 2 :inline)
(moon0-coords vector 2 :inline)
(moon1-coords vector 2 :inline)
(moon2-coords vector 2 :inline)
(day-star-coords vector 2 :inline)
(star-coords vector 2 :inline)
(sun-colors vector4w 2 :inline)
(green-colors vector4w 2 :inline)
(moon-colors vector4w 3 :inline)
(day-star-colors vector4w 3 :inline)
(star-colors vector4w 16 :inline)
(st-coords vector 2 :inline)
(random vector4w 8 :inline)
(giftag-base dma-gif :inline)
(giftag-haze dma-gif :inline)
(giftag-roof dma-gif :inline)
(giftag-ocean dma-gif :inline)
(fog vector :inline)
(sky float 8)
(time float)
(off-s uint16)
(off-t uint16)
(orbit sky-orbit 3 :inline)
(upload-data sky-upload-data :inline)
(ambi-color vector :inline)
(ambi-color-lower vector :inline)
(sun0-color vector :inline)
(sun1-color vector :inline)
(moon-color vector :inline)
(sun0-color-lower vector :inline)
(cam-mat matrix :inline)
(star-mat matrix :inline)
(vec0 vector4w :inline)
(vec1 vector4w :inline)
(cloud-lights cloud-lights :inline)
(haze-lights haze-lights :inline)
(buf dma-buffer)
(draw-vortex basic)
(day-star-scale float)
(stars vector 512 :inline)
(disable-day-star basic)
)
(:methods
(sky-work-method-9 () none)
(sky-work-method-10 () none)
(sky-work-method-11 () none)
(sky-work-method-12 () none)
(sky-work-method-13 () none)
(sky-work-method-14 () none)
(sky-work-method-15 () none)
(sky-work-method-16 () none)
(sky-work-method-17 () none)
(sky-work-method-18 () none)
(sky-work-method-19 () none)
(sky-work-method-20 () none)
(sky-work-method-21 () none)
(sky-work-method-22 () none)
(sky-work-method-23 () none)
(sky-work-method-24 () none)
(sky-work-method-25 () none)
(sky-work-method-26 () none)
(sky-work-method-27 () none)
(sky-work-method-28 () none)
(sky-work-method-29 () none)
(sky-work-method-30 () none)
(sky-work-method-31 () none)
(sky-work-method-32 () none)
(sky-work-method-33 () none)
(sky-work-method-34 () none)
(sky-work-method-35 () none)
(sky-work-method-36 () none)
(sky-work-method-37 () none)
(sky-work-method-38 () none)
)
)
;; definition for method 3 of type sky-work
(defmethod inspect ((this sky-work))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'sky-work)
(format #t "~1Tadgif-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this adgif-tmpl))
(format #t "~1Tdraw-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this draw-tmpl))
(format #t "~1Tdraw-tmpl2: #<dma-gif-packet @ #x~X>~%" (-> this draw-tmpl2))
(format #t "~1Tfog-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this fog-tmpl))
(format #t "~1Tblend-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this blend-tmpl))
(format #t "~1Tsprite-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite-tmpl))
(format #t "~1Tsprite-tmpl2: #<dma-gif-packet @ #x~X>~%" (-> this sprite-tmpl2))
(format #t "~1Tsun-coords[2] @ #x~X~%" (-> this sun-coords))
(format #t "~1Tgreen-coords[2] @ #x~X~%" (-> this green-coords))
(format #t "~1Tmoon0-coords[2] @ #x~X~%" (-> this moon0-coords))
(format #t "~1Tmoon1-coords[2] @ #x~X~%" (-> this moon1-coords))
(format #t "~1Tmoon2-coords[2] @ #x~X~%" (-> this moon2-coords))
(format #t "~1Tday-star-coords[2] @ #x~X~%" (-> this day-star-coords))
(format #t "~1Tstar-coords[2] @ #x~X~%" (-> this star-coords))
(format #t "~1Tsun-colors[2] @ #x~X~%" (-> this sun-colors))
(format #t "~1Tgreen-colors[2] @ #x~X~%" (-> this green-colors))
(format #t "~1Tmoon-colors[3] @ #x~X~%" (-> this moon-colors))
(format #t "~1Tday-star-colors[3] @ #x~X~%" (-> this day-star-colors))
(format #t "~1Tstar-colors[16] @ #x~X~%" (-> this star-colors))
(format #t "~1Tst-coords[2] @ #x~X~%" (-> this st-coords))
(format #t "~1Trandom[8] @ #x~X~%" (-> this random))
(format #t "~1Tgiftag-base: #<dma-gif @ #x~X>~%" (-> this giftag-base))
(format #t "~1Tgiftag-haze: #<dma-gif @ #x~X>~%" (-> this giftag-haze))
(format #t "~1Tgiftag-roof: #<dma-gif @ #x~X>~%" (-> this giftag-roof))
(format #t "~1Tgiftag-ocean: #<dma-gif @ #x~X>~%" (-> this giftag-ocean))
(format #t "~1Tfog: #<vector @ #x~X>~%" (-> this fog))
(format #t "~1Tsky[8] @ #x~X~%" (-> this sky))
(format #t "~1Ttime: ~f~%" (-> this time))
(format #t "~1Toff-s: ~D~%" (-> this off-s))
(format #t "~1Toff-t: ~D~%" (-> this off-t))
(format #t "~1Torbit[3] @ #x~X~%" (-> this orbit))
(format #t "~1Tupload-data: #<sky-upload-data @ #x~X>~%" (-> this upload-data))
(format #t "~1Tambi-color: #<vector @ #x~X>~%" (-> this ambi-color))
(format #t "~1Tambi-color-lower: #<vector @ #x~X>~%" (-> this ambi-color-lower))
(format #t "~1Tsun0-color: #<vector @ #x~X>~%" (-> this sun0-color))
(format #t "~1Tsun1-color: #<vector @ #x~X>~%" (-> this sun1-color))
(format #t "~1Tmoon-color: #<vector @ #x~X>~%" (-> this moon-color))
(format #t "~1Tsun0-color-lower: #<vector @ #x~X>~%" (-> this sun0-color-lower))
(format #t "~1Tcam-mat: #<matrix @ #x~X>~%" (-> this cam-mat))
(format #t "~1Tstar-mat: #<matrix @ #x~X>~%" (-> this star-mat))
(format #t "~1Tvec0: #<vector4w @ #x~X>~%" (-> this vec0))
(format #t "~1Tvec1: #<vector4w @ #x~X>~%" (-> this vec1))
(format #t "~1Tcloud-lights: #<cloud-lights @ #x~X>~%" (-> this cloud-lights))
(format #t "~1Thaze-lights: #<haze-lights @ #x~X>~%" (-> this haze-lights))
(format #t "~1Tbuf: ~A~%" (-> this buf))
(format #t "~1Tdraw-vortex: ~A~%" (-> this draw-vortex))
(format #t "~1Tday-star-scale: ~f~%" (-> this day-star-scale))
(format #t "~1Tstars[512] @ #x~X~%" (-> this stars))
(format #t "~1Tdisable-day-star: ~A~%" (-> this disable-day-star))
(label cfg-4)
this
)
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/ui/bigmap-h_REF.gc
Generated Vendored
+165
View File
@@ -0,0 +1,165 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type bigmap-image
(deftype bigmap-image (structure)
((clut-offset uint32)
(image-offset uint32)
(width uint32)
(height uint32)
(data uint8 1)
)
)
;; definition for method 3 of type bigmap-image
(defmethod inspect ((this bigmap-image))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'bigmap-image)
(format #t "~1Tclut-offset: ~D~%" (-> this clut-offset))
(format #t "~1Timage-offset: ~D~%" (-> this image-offset))
(format #t "~1Twidth: ~D~%" (-> this width))
(format #t "~1Theight: ~D~%" (-> this height))
(format #t "~1Tdata[1] @ #x~X~%" (-> this data))
(label cfg-4)
this
)
;; definition of type bigmap-info
(deftype bigmap-info (vector)
((scale float :overlay-at (-> data 2))
(inv-scale float :overlay-at (-> data 3))
)
)
;; definition for method 3 of type bigmap-info
;; INFO: Used lq/sq
(defmethod inspect ((this bigmap-info))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'bigmap-info)
(format #t "~1Tdata[4] @ #x~X~%" (&-> this x))
(format #t "~1Tx: ~f~%" (-> this x))
(format #t "~1Ty: ~f~%" (-> this y))
(format #t "~1Tz: ~f~%" (-> this z))
(format #t "~1Tw: ~f~%" (-> this w))
(format #t "~1Tquad: ~D~%" (-> this quad))
(format #t "~1Tscale: ~f~%" (-> this z))
(format #t "~1Tinv-scale: ~f~%" (-> this w))
(label cfg-4)
this
)
;; definition of type bigmap-info-array
(deftype bigmap-info-array (structure)
((data bigmap-info 24 :inline)
)
)
;; definition for method 3 of type bigmap-info-array
(defmethod inspect ((this bigmap-info-array))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'bigmap-info-array)
(format #t "~1Tdata[24] @ #x~X~%" (-> this data))
(label cfg-4)
this
)
;; definition of type bigmap
(deftype bigmap (basic)
((drawing-flag symbol)
(loading-flag symbol)
(bigmap-index uint32)
(bigmap-image external-art-buffer)
(tpage external-art-buffer)
(tpage2 basic)
(progress-minimap texture-page)
(progress-minimap2 basic)
(load-index uint32)
(x0 int32)
(y0 int32)
(x1 int32)
(y1 int32)
(goal-time float)
(sprite-tmpl dma-gif-packet :inline)
(draw-tmpl dma-gif-packet :inline)
(adgif-tmpl dma-gif-packet :inline)
(offset vector :inline)
(size float :overlay-at (-> offset data 2))
(scale float :overlay-at (-> offset data 3))
(scroll vector :inline)
(pos vector4w :inline)
(color vector4w :inline)
(corner vector 4 :inline)
(auto-save-icon-flag symbol)
(global-flags uint32)
)
(:methods
(new (symbol type) _type_)
(bigmap-method-9 () none)
(bigmap-method-10 () none)
(bigmap-method-11 () none)
(bigmap-method-12 () none)
(bigmap-method-13 () none)
(bigmap-method-14 () none)
(bigmap-method-15 () none)
(bigmap-method-16 () none)
(bigmap-method-17 () none)
(bigmap-method-18 () none)
(bigmap-method-19 () none)
(bigmap-method-20 () none)
(bigmap-method-21 () none)
(bigmap-method-22 () none)
)
)
;; definition for method 3 of type bigmap
(defmethod inspect ((this bigmap))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tdrawing-flag: ~A~%" (-> this drawing-flag))
(format #t "~1Tloading-flag: ~A~%" (-> this loading-flag))
(format #t "~1Tbigmap-index: ~D~%" (-> this bigmap-index))
(format #t "~1Tbigmap-image: ~A~%" (-> this bigmap-image))
(format #t "~1Ttpage: ~A~%" (-> this tpage))
(format #t "~1Ttpage2: ~A~%" (-> this tpage2))
(format #t "~1Tprogress-minimap: ~A~%" (-> this progress-minimap))
(format #t "~1Tprogress-minimap2: ~A~%" (-> this progress-minimap2))
(format #t "~1Tload-index: ~D~%" (-> this load-index))
(format #t "~1Tx0: ~D~%" (-> this x0))
(format #t "~1Ty0: ~D~%" (-> this y0))
(format #t "~1Tx1: ~D~%" (-> this x1))
(format #t "~1Ty1: ~D~%" (-> this y1))
(format #t "~1Tgoal-time: ~f~%" (-> this goal-time))
(format #t "~1Tsprite-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this sprite-tmpl))
(format #t "~1Tdraw-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this draw-tmpl))
(format #t "~1Tadgif-tmpl: #<dma-gif-packet @ #x~X>~%" (-> this adgif-tmpl))
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
(format #t "~1Tsize: ~f~%" (-> this offset z))
(format #t "~1Tscale: ~f~%" (-> this offset w))
(format #t "~1Tscroll: #<vector @ #x~X>~%" (-> this scroll))
(format #t "~1Tpos: #<vector4w @ #x~X>~%" (-> this pos))
(format #t "~1Tcolor: #<vector4w @ #x~X>~%" (-> this color))
(format #t "~1Tcorner[4] @ #x~X~%" (-> this corner))
(format #t "~1Tauto-save-icon-flag: ~A~%" (-> this auto-save-icon-flag))
(format #t "~1Tglobal-flags: ~D~%" (-> this global-flags))
(label cfg-4)
this
)
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/ui/minimap-h_REF.gc
Generated Vendored
+1004
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/jak3/engine/util/capture-h_REF.gc
Generated Vendored
+10 -14
View File
@@ -7,17 +7,17 @@
;; definition of type gs-store-image-packet
(deftype gs-store-image-packet (structure)
((vifcode vif-tag 4)
(giftag uint128)
(bitbltbuf uint64)
(bitbltbuf-addr uint64)
(trxpos uint64)
(trxpos-addr uint64)
(trxreg uint64)
(trxreg-addr uint64)
(giftag gif-tag)
(bitbltbuf gs-bitbltbuf)
(bitbltbuf-addr gs-reg64)
(trxpos gs-trxpos)
(trxpos-addr gs-reg64)
(trxreg gs-trxreg)
(trxreg-addr gs-reg64)
(finish uint64)
(finish-addr uint64)
(trxdir uint64)
(trxdir-addr uint64)
(finish-addr gs-reg64)
(trxdir gs-trxdir)
(trxdir-addr gs-reg64)
)
)
@@ -91,7 +91,3 @@
;; failed to figure out what this is:
0
test/decompiler/reference/jak3/engine/util/capture_REF.gc
Generated Vendored
+73
View File
@@ -0,0 +1,73 @@
;;-*-Lisp-*-
(in-package goal)
;; this file is debug only
(declare-file (debug))
;; definition for function gs-set-default-store-image
;; INFO: Used lq/sq
(defun gs-set-default-store-image ((packet gs-store-image-packet)
(source-vram int)
(width int)
(tex-fmt gs-psm)
(ssax int)
(ssay int)
(rrw int)
(rrh int)
)
"Set up a gs-store-image-packet for copying VRAM data to RAM."
(set! (-> packet vifcode 0) (new 'static 'vif-tag))
(set! (-> packet vifcode 1) (new 'static 'vif-tag :imm #x8000 :cmd (vif-cmd mskpath3)))
(set! (-> packet vifcode 2) (new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1))
(set! (-> packet vifcode 3) (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1))
(set! (-> packet giftag) (new 'static 'gif-tag :nloop #x5 :eop #x1 :nreg #x1 :regs0 (gif-reg-id a+d)))
(set! (-> packet bitbltbuf)
(new 'static 'gs-bitbltbuf :sbp source-vram :sbw width :spsm (the-as int tex-fmt))
)
(set! (-> packet bitbltbuf-addr) (gs-reg64 bitbltbuf))
(set! (-> packet trxpos) (new 'static 'gs-trxpos :ssax ssax :ssay ssay))
(set! (-> packet trxpos-addr) (gs-reg64 trxpos))
(set! (-> packet trxreg) (new 'static 'gs-trxreg :rrw rrw :rrh rrh))
(set! (-> packet trxreg-addr) (gs-reg64 trxreg))
(set! (-> packet finish) (the-as uint 0))
(set! (-> packet finish-addr) (gs-reg64 finish))
(set! (-> packet trxdir) (new 'static 'gs-trxdir :xdir #x1))
(set! (-> packet trxdir-addr) (gs-reg64 trxdir))
(.sync.l)
7
)
;; definition for function store-image
;; WARN: Return type mismatch int vs none.
(defun store-image ((work screen-shot-work))
"Take a screenshot!"
(let ((gp-0 512)
(s5-0 416)
)
(let ((a3-0 (-> work count))
(a2-0 (-> work name))
)
(set! (-> *image-name* data 0) (the-as uint 0))
(format *image-name* "final/rawshots/~s-~d.raw" a2-0 a3-0)
)
(format 0 "writing ~s~%" *image-name*)
(let ((s4-0 (new 'stack 'file-stream *image-name* 'write)))
(let ((s3-0 (-> *display* frames (-> *display* on-screen) global-buf data)))
(let ((s2-0 (new 'static 'gs-store-image-packet)))
(gs-set-default-store-image s2-0 #x3300 (/ gp-0 64) (gs-psm ct32) 0 0 gp-0 s5-0)
(flush-cache 0)
(gs-store-image s2-0 s3-0)
)
(sync-path 0 0)
(file-stream-write s4-0 s3-0 (the-as uint (* (* s5-0 gp-0) 4)))
)
(file-stream-close s4-0)
)
)
0
(none)
)
test/decompiler/reference/jak3/levels/city/common/trail-h_REF.gc
Generated Vendored
+362
View File
@@ -0,0 +1,362 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type trail-node
(deftype trail-node (structure)
((next-id int16)
(prev-id int16)
(parent-id int16)
(x int16)
(y int16)
(z int16)
(first-conn uint16)
(cost-from-start uint16)
(cost-to-goal uint16)
(flags trail-node-flag)
(conn-count uint8)
)
(:methods
(trail-node-method-9 () none)
(trail-node-method-10 () none)
(trail-node-method-11 () none)
)
)
;; definition for method 3 of type trail-node
(defmethod inspect ((this trail-node))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-node)
(format #t "~1Tnext-id: ~D~%" (-> this next-id))
(format #t "~1Tprev-id: ~D~%" (-> this prev-id))
(format #t "~1Tparent-id: ~D~%" (-> this parent-id))
(format #t "~1Tx: ~D~%" (-> this x))
(format #t "~1Ty: ~D~%" (-> this y))
(format #t "~1Tz: ~D~%" (-> this z))
(format #t "~1Tfirst-conn: ~D~%" (-> this first-conn))
(format #t "~1Tcost-from-start: ~D~%" (-> this cost-from-start))
(format #t "~1Tcost-to-goal: ~D~%" (-> this cost-to-goal))
(format #t "~1Tflags: ~D~%" (-> this flags))
(format #t "~1Tconn-count: ~D~%" (-> this conn-count))
(label cfg-4)
this
)
;; definition of type trail-visgroup
(deftype trail-visgroup (structure)
((first-node uint16)
(node-count uint8)
(pad uint8)
)
)
;; definition for method 3 of type trail-visgroup
(defmethod inspect ((this trail-visgroup))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-visgroup)
(format #t "~1Tfirst-node: ~D~%" (-> this first-node))
(format #t "~1Tnode-count: ~D~%" (-> this node-count))
(format #t "~1Tpad: ~D~%" (-> this pad))
(label cfg-4)
this
)
;; definition of type trail-blocker
(deftype trail-blocker (structure)
((plane plane :inline)
(center vector :inline)
(radius-squared float :overlay-at (-> center data 3))
)
)
;; definition for method 3 of type trail-blocker
(defmethod inspect ((this trail-blocker))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-blocker)
(format #t "~1Tplane: #<plane @ #x~X>~%" (-> this plane))
(format #t "~1Tcenter: #<vector @ #x~X>~%" (-> this center))
(format #t "~1Tradius-squared: ~f~%" (-> this center w))
(label cfg-4)
this
)
;; definition of type trail-conn
(deftype trail-conn (structure)
((head-id uint16)
(tail-id uint16)
(flags conn-flag)
(visgroup-id uint8)
(cost uint16)
)
(:methods
(trail-conn-method-9 () none)
)
)
;; definition for method 3 of type trail-conn
(defmethod inspect ((this trail-conn))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-conn)
(format #t "~1Thead-id: ~D~%" (-> this head-id))
(format #t "~1Ttail-id: ~D~%" (-> this tail-id))
(format #t "~1Tflags: ~D~%" (-> this flags))
(format #t "~1Tvisgroup-id: ~D~%" (-> this visgroup-id))
(format #t "~1Tcost: ~D~%" (-> this cost))
(label cfg-4)
this
)
;; definition of type trail-conn-hash-cell
(deftype trail-conn-hash-cell (structure)
((first-conn uint16)
(conn-count uint8)
(pov-count uint8)
(first-pov uint16)
)
)
;; definition for method 3 of type trail-conn-hash-cell
(defmethod inspect ((this trail-conn-hash-cell))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-conn-hash-cell)
(format #t "~1Tfirst-conn: ~D~%" (-> this first-conn))
(format #t "~1Tconn-count: ~D~%" (-> this conn-count))
(format #t "~1Tpov-count: ~D~%" (-> this pov-count))
(format #t "~1Tfirst-pov: ~D~%" (-> this first-pov))
(label cfg-4)
this
)
;; definition of type trail-conn-search
(deftype trail-conn-search (structure)
((best-conn-id int32)
(best-dist float)
(src-pos vector)
(conn-pos vector)
(debug-cells-searched int32)
(debug-conns-searched int32)
(bounds bounding-box4w :inline)
(cell-quads qword 2 :inline)
(conn-quads qword 7 :inline)
(cell-bits vector16ub 2 :inline :overlay-at cell-quads)
(conn-bits vector16ub 2 :inline :overlay-at conn-quads)
)
)
;; definition for method 3 of type trail-conn-search
(defmethod inspect ((this trail-conn-search))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-conn-search)
(format #t "~1Tbest-conn-id: ~D~%" (-> this best-conn-id))
(format #t "~1Tbest-dist: ~f~%" (-> this best-dist))
(format #t "~1Tsrc-pos: #<vector @ #x~X>~%" (-> this src-pos))
(format #t "~1Tconn-pos: #<vector @ #x~X>~%" (-> this conn-pos))
(format #t "~1Tdebug-cells-searched: ~D~%" (-> this debug-cells-searched))
(format #t "~1Tdebug-conns-searched: ~D~%" (-> this debug-conns-searched))
(format #t "~1Tbounds: #<bounding-box4w @ #x~X>~%" (-> this bounds))
(format #t "~1Tcell-quads[2] @ #x~X~%" (-> this cell-quads))
(format #t "~1Tconn-quads[7] @ #x~X~%" (-> this conn-quads))
(format #t "~1Tcell-bits[2] @ #x~X~%" (-> this cell-quads))
(format #t "~1Tconn-bits[2] @ #x~X~%" (-> this conn-quads))
(label cfg-4)
this
)
;; definition of type trail-conn-hash
(deftype trail-conn-hash (basic)
((cell-width meters)
(origin vector :inline)
(cell (inline-array trail-conn-hash-cell))
(conn-ids (pointer uint16))
)
)
;; definition for method 3 of type trail-conn-hash
(defmethod inspect ((this trail-conn-hash))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tcell-width: (meters ~m)~%" (-> this cell-width))
(format #t "~1Torigin: #<vector @ #x~X>~%" (-> this origin))
(format #t "~1Tcell: #x~X~%" (-> this cell))
(format #t "~1Tconn-ids: #x~X~%" (-> this conn-ids))
(label cfg-4)
this
)
;; definition of type trail-cached-search-info
(deftype trail-cached-search-info (structure)
((goal-conn-id int16)
(orig-goal-pos vector :inline)
(conn-goal-pos vector :inline)
)
)
;; definition for method 3 of type trail-cached-search-info
(defmethod inspect ((this trail-cached-search-info))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-cached-search-info)
(format #t "~1Tgoal-conn-id: ~D~%" (-> this goal-conn-id))
(format #t "~1Torig-goal-pos: #<vector @ #x~X>~%" (-> this orig-goal-pos))
(format #t "~1Tconn-goal-pos: #<vector @ #x~X>~%" (-> this conn-goal-pos))
(label cfg-4)
this
)
;; definition of type trail-cached-start-pov
(deftype trail-cached-start-pov (structure)
((last-updated uint64)
(pov-can-see-start uint64)
(next-node-id int32)
(start-pos vector :inline)
)
)
;; definition for method 3 of type trail-cached-start-pov
(defmethod inspect ((this trail-cached-start-pov))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'trail-cached-start-pov)
(format #t "~1Tlast-updated: ~D~%" (-> this last-updated))
(format #t "~1Tpov-can-see-start: ~D~%" (-> this pov-can-see-start))
(format #t "~1Tnext-node-id: ~D~%" (-> this next-node-id))
(format #t "~1Tstart-pos: #<vector @ #x~X>~%" (-> this start-pos))
(label cfg-4)
this
)
;; definition of type trail-graph
(deftype trail-graph (basic)
((mode uint8)
(search-id uint32)
(open-head-id int16)
(goal-conn-id int16)
(goal-node-id int16)
(over-under-thresh float)
(over-under-above-too-low float)
(over-under-below-too-high float)
(pov-node-count uint16)
(node-count uint16)
(conn-count uint16)
(blocker-count uint16)
(conn-mask uint8)
(node (inline-array trail-node))
(conn (inline-array trail-conn))
(blocker uint32)
(conn-ids (pointer uint16))
(visgroup (inline-array trail-conn-hash-cell))
(visnode-ids (pointer uint16))
(conn-hash trail-conn-hash)
(cell-pov-bit-arrays uint32)
(pov-can-see-goal uint64)
(cached-start-pov trail-cached-start-pov :inline)
(orig-start-pos vector :inline)
(orig-goal-pos vector :inline)
(conn-start-pos vector :inline)
(conn-goal-pos vector :inline)
(open-quads qword 6 :inline)
(closed-quads qword 6 :inline)
(open-bits vector16ub 2 :inline :overlay-at open-quads)
(closed-bits vector16ub 2 :inline :overlay-at closed-quads)
)
(:methods
(trail-graph-method-9 () none)
(trail-graph-method-10 () none)
(trail-graph-method-11 () none)
(trail-graph-method-12 () none)
(trail-graph-method-13 () none)
(trail-graph-method-14 () none)
(trail-graph-method-15 () none)
(trail-graph-method-16 () none)
(trail-graph-method-17 () none)
(trail-graph-method-18 () none)
(trail-graph-method-19 () none)
(trail-graph-method-20 () none)
(trail-graph-method-21 () none)
(trail-graph-method-22 () none)
(trail-graph-method-23 () none)
(trail-graph-method-24 () none)
(trail-graph-method-25 () none)
(trail-graph-method-26 () none)
(trail-graph-method-27 () none)
(trail-graph-method-28 () none)
(trail-graph-method-29 () none)
(trail-graph-method-30 () none)
(trail-graph-method-31 () none)
(trail-graph-method-32 () none)
(trail-graph-method-33 () none)
)
)
;; definition for method 3 of type trail-graph
(defmethod inspect ((this trail-graph))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tmode: ~D~%" (-> this mode))
(format #t "~1Tsearch-id: ~D~%" (-> this search-id))
(format #t "~1Topen-head-id: ~D~%" (-> this open-head-id))
(format #t "~1Tgoal-conn-id: ~D~%" (-> this goal-conn-id))
(format #t "~1Tgoal-node-id: ~D~%" (-> this goal-node-id))
(format #t "~1Tover-under-thresh: ~f~%" (-> this over-under-thresh))
(format #t "~1Tover-under-above-too-low: ~f~%" (-> this over-under-above-too-low))
(format #t "~1Tover-under-below-too-high: ~f~%" (-> this over-under-below-too-high))
(format #t "~1Tpov-node-count: ~D~%" (-> this pov-node-count))
(format #t "~1Tnode-count: ~D~%" (-> this node-count))
(format #t "~1Tconn-count: ~D~%" (-> this conn-count))
(format #t "~1Tblocker-count: ~D~%" (-> this blocker-count))
(format #t "~1Tconn-mask: ~D~%" (-> this conn-mask))
(format #t "~1Tnode: #x~X~%" (-> this node))
(format #t "~1Tconn: #x~X~%" (-> this conn))
(format #t "~1Tblocker: #x~X~%" (-> this blocker))
(format #t "~1Tconn-ids: #x~X~%" (-> this conn-ids))
(format #t "~1Tvisgroup: #x~X~%" (-> this visgroup))
(format #t "~1Tvisnode-ids: #x~X~%" (-> this visnode-ids))
(format #t "~1Tconn-hash: ~A~%" (-> this conn-hash))
(format #t "~1Tcell-pov-bit-arrays: #x~X~%" (-> this cell-pov-bit-arrays))
(format #t "~1Tpov-can-see-goal: ~D~%" (-> this pov-can-see-goal))
(format #t "~1Tcached-start-pov: #<trail-cached-start-pov @ #x~X>~%" (-> this cached-start-pov))
(format #t "~1Torig-start-pos: #<vector @ #x~X>~%" (-> this orig-start-pos))
(format #t "~1Torig-goal-pos: #<vector @ #x~X>~%" (-> this orig-goal-pos))
(format #t "~1Tconn-start-pos: #<vector @ #x~X>~%" (-> this conn-start-pos))
(format #t "~1Tconn-goal-pos: #<vector @ #x~X>~%" (-> this conn-goal-pos))
(format #t "~1Topen-quads[6] @ #x~X~%" (-> this open-quads))
(format #t "~1Tclosed-quads[6] @ #x~X~%" (-> this closed-quads))
(format #t "~1Topen-bits[2] @ #x~X~%" (-> this open-quads))
(format #t "~1Tclosed-bits[2] @ #x~X~%" (-> this closed-quads))
(label cfg-4)
this
)
;; definition for symbol *trail-graph*, type trail-graph
(define *trail-graph* (the-as trail-graph #f))
test/offline/config/jak3/config.jsonc
+3 -1
View File
@@ -51,7 +51,9 @@
"transform-point-qword!",
"transform-point-vector-scale!",
// dma
"dma-buffer-add-vu-function"
"dma-buffer-add-vu-function",
// sky (multiple definition)
"(method 3 sky-vertex)"
],
"skip_compile_states": {}