Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 11:26:18 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

[jak3] decompile (but not port) texture (#3346)

Browse source 
For now - just a plain decompilation, with no PC port changes. I think
it'll be easier to do those once we have a little bit more decompiled.
This commit is contained in:
water111 2024-01-27 16:30:18 -05:00 committed by GitHub
parent 8d0d05717f
commit bfe0a72ae7
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
15 changed files with 5708 additions and 360 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

296
decompiler/config/jak3/all-types.gc
View file

@ -110,6 +110,7 @@
(define-extern kset-language (function language-enum int)) (define-extern kset-language (function language-enum int))
(define-extern reset-graph (function int int int int none)) (define-extern reset-graph (function int int int int none))
(define-extern symbol->string (function symbol string)) (define-extern symbol->string (function symbol string))
(define-extern loado (function string kheap object))
(declare-type sql-result basic) (declare-type sql-result basic)
(define-extern sql-query (function string sql-result)) (define-extern sql-query (function string sql-result))
@ -3376,17 +3377,17 @@
;; +++vu1-user-h:tpage-category ;; +++vu1-user-h:tpage-category
(defenum tpage-category (defenum tpage-category
:type int8 :type int8
(tpage-cat0 0) (tc0 0) ;;
(tpage-cat1 1) (tc1 1)
(tpage-cat2 2) (tc2 2)
(tpage-cat3 3) (tc3 3)
(tpage-cat4 4) (tc4 4)
(tpage-cat5 5) (warp 5)
(tpage-cat6 6) (tc6 6)
(tpage-cat7 7) (sprite 7)
(tpage-cat8 8) (hud 8)
(sky 9) (tc9 9)
(tpage-cat10 10) (tc10 10)
) )
;; ---vu1-user-h:tpage-category ;; ---vu1-user-h:tpage-category
@ -6203,32 +6204,34 @@
(common-page-mask int32 :offset-assert 180) (common-page-mask int32 :offset-assert 180)
(update-sprites-flag symbol :offset-assert 184) ;; guessed by decompiler (update-sprites-flag symbol :offset-assert 184) ;; guessed by decompiler
(update-flag symbol :offset-assert 188) ;; guessed by decompiler (update-flag symbol :offset-assert 188) ;; guessed by decompiler
(texture-enable-user uint64 :offset-assert 192) ;; texture-enable-mask (texture-enable-user texture-enable-mask :offset-assert 192) ;; texture-enable-mask
(texture-enable-user-menu uint64 :offset-assert 200) ;; texture-enable-mask (texture-enable-user-menu texture-enable-mask :offset-assert 200) ;; texture-enable-mask
(ids uint32 128 :offset-assert 208) ;; guessed by decompiler (ids uint32 128 :offset-assert 208) ;; guessed by decompiler
) )
:method-count-assert 26 :method-count-assert 26
:size-assert #x2d0 :size-assert #x2d0
:flag-assert #x1a000002d0 :flag-assert #x1a000002d0
(:methods (:methods
(new (symbol type) _type_) ;; 0 (new "Allocate and initialize a texture pool." (symbol type) _type_) ;; 0
(initialize! (_type_) _type_) ;; 9 (initialize! "Set up a texture-pool and do the initial division of VRAM." (_type_) _type_) ;; 9
(print-usage (_type_) _type_) ;; 10 (print-usage (_type_) _type_) ;; 10
(setup-font-texture (_type_) none) ;; 11 (setup-font-texture "Set up the font texture. In normal use, the font texture is allocated, and currently uploaded to, the common segment.
(allocate-defaults (_type_) none) ;; 12 This function copies that to the unused upper 8-bits of the depth buffer, and sets up the font
(login-level-textures (_type_ level int (pointer texture-id)) none) ;; 13 renderer to point to that address." (_type_) none) ;; 11
(add-level-tpage-dma (_type_ level tpage-category bucket-id) none) ;; 14 (allocate-defaults "Allocate the common segment and set up dynamic texture addresses" (_type_) none) ;; 12
(allocate-vram-words! (_type_ int) int) ;; 15 (login-level-textures "Login all textures for the given level." (_type_ level int (pointer texture-id)) none) ;; 13
(allocate-segment (_type_ texture-pool-segment int) texture-pool-segment) ;; 16 (add-level-tpage-dma "Set up DMA to upload all textures needed to draw this level on this frame." (_type_ level tpage-category bucket-id) none) ;; 14
(unload-page (_type_ texture-page) none) ;; 17 (allocate-vram-words! "Increment the bump allocator to allocate vram, by words." (_type_ int) int) ;; 15
(get-common-page-slot-by-id (_type_ int) int) ;; 18 (allocate-segment "Allocate VRAM for a texture-pool-segment" (_type_ texture-pool-segment int) texture-pool-segment) ;; 16
(update-warp-and-hud (_type_) none) ;; 19 (unload-page "Remove a page from the texture pool." (_type_ texture-page) none) ;; 17
(update-sprites (_type_) none) ;; 20 (get-common-page-slot-by-id "Unsupported in jak 3, returns -1 always." (_type_ int) int) ;; 18
(mark-hud-warp-sprite-dirty (_type_) none) ;; 21 (update-warp-and-hud "Redo warp and hud textures with the current set of loaded levels." (_type_) none) ;; 19
(lay-out-sprite-tex (_type_) none) ;; 22 (update-sprites "Redo sprite texture addresses with the current set of loaded levels." (_type_) none) ;; 20
(lay-out-hud-tex (_type_) none) ;; 23 (mark-hud-warp-sprite-dirty "Set update flags for hud/sprite/warp. Needed after level load or unload." (_type_) none) ;; 21
(lay-out-warp-tex (_type_) none) ;; 24 (lay-out-sprite-tex "Lay out VRAM addresses for sprite rendering, which is done in one pass for all levels." (_type_) none) ;; 22
(clear-ids (_type_) none) ;; 25 (lay-out-hud-tex "Lay out VRAM addresses for HUD rendering, which is done all at one for all levels." (_type_) none) ;; 23
(lay-out-warp-tex "Lay out VRAM addresses for WARP texture rendering, and update adgifs to point to the new address." (_type_) none) ;; 24
(clear-ids "Reset all cached texture upload IDs. This must be done whenever a texture has its vram address changed." (_type_) none) ;; 25
) )
) )
@ -6334,12 +6337,17 @@
:size-assert #x80 :size-assert #x80
:flag-assert #xe00000080 :flag-assert #xe00000080
(:methods (:methods
(relocate (_type_ kheap (pointer uint8)) texture-page :replace) ;; 7 (relocate "Handle a texture page that has been loaded by the linker.
(remove-data-from-heap (_type_ kheap) _type_) ;; 9 This must run in the linker, since we sometimes kick out textures from the loading heap, which
(get-leftover-block-count (_type_ int int) int) ;; 10 requires no more allocations made after the texture, and the only time is right after the linker
(relocate-dests! (_type_ int int) none) ;; 11 does the allocation for this GOAL object file."
(add-to-dma-buffer (_type_ dma-buffer tex-upload-mode) int) ;; 12 (_type_ kheap (pointer uint8)) texture-page :replace) ;; 7
(upload-now! (_type_ tex-upload-mode) none) ;; 13 (remove-data-from-heap "Bump the kheap pointer to discard this texture data. All metadata is kept.
This is only safe to use if the last thing on the kheap is this texture." (_type_ kheap) _type_) ;; 9
(get-leftover-block-count "Unused - statistics for how much unused memory we have" (_type_ int int) int) ;; 10
(relocate-dests! "Update the metadata of this texture so it points to a new vram address." (_type_ int int) none) ;; 11
(add-to-dma-buffer "Add upload DMA to a DMA buffer. Wrapper for upload-vram-data." (_type_ dma-buffer tex-upload-mode) int) ;; 12
(upload-now! "Upload a texture to VRAM immediately, wait for DMA to finish." (_type_ tex-upload-mode) none) ;; 13
) )
) )
@ -6390,7 +6398,7 @@
) )
(:methods (:methods
(relocate (_type_ kheap (pointer uint8)) none :replace) ;; 7 (relocate (_type_ kheap (pointer uint8)) none :replace) ;; 7
(unlink-shaders-in-heap (_type_ kheap) int) ;; 9 (unlink-shaders-in-heap "Iterate through all adgifs, splicing out ones that are in the given heap." (_type_ kheap) int) ;; 9
) )
:flag-assert #xa00000014 :flag-assert #xa00000014
) )
@ -6432,15 +6440,16 @@
(reg-2 uint8 :offset 40) (reg-2 uint8 :offset 40)
(reg-3 uint8 :offset 56) (reg-3 uint8 :offset 56)
(reg-4 uint8 :offset 72) (reg-4 uint8 :offset 72)
(tex0 uint64 :offset 0) ;; gs-tex0 (tex0 gs-tex0 :offset 0) ;;
(tex1 uint64 :offset 16) ;; gs-tex1 (tex1 gs-tex1 :offset 16) ;;
(miptbp1 uint64 :offset 32) ;; gs-miptbp (miptbp1 gs-miptbp :offset 32) ;;
(clamp uint64 :offset 48) ;; gs-clamp (clamp gs-clamp :offset 48) ;; gs-clamp
(clamp-reg uint64 :offset 56) ;; gs-reg64 (clamp-reg gs-reg64 :offset 56) ;;
(alpha uint64 :offset 64) ;; gs-alpha (alpha gs-alpha :offset 64) ;;
(link-test link-test-flags :offset 8) ;; guessed by decompiler (link-test link-test-flags :offset 8) ;; guessed by decompiler
(texture-id texture-id :offset 24) ;; guessed by decompiler (texture-id texture-id :offset 24) ;; guessed by decompiler
(next shader-ptr :offset 40) ;; guessed by decompiler (next shader-ptr :offset 40) ;; guessed by decompiler
;(alpha-as-miptb2 gs-miptbp :offset 64) ;; added!!
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x50 :size-assert #x50
@ -7368,7 +7377,7 @@
(loaded-texture-page texture-page 16 :offset-assert 236) ;; guessed by decompiler (loaded-texture-page texture-page 16 :offset-assert 236) ;; guessed by decompiler
(loaded-texture-page-count int32 :offset-assert 300) (loaded-texture-page-count int32 :offset-assert 300)
(entity entity-links-array :offset-assert 304) ;; guessed by decompiler (entity entity-links-array :offset-assert 304) ;; guessed by decompiler
(closest-object meters :offset-assert 308) (closest-object meters 10 :offset-assert 308)
;; ??? ;; ???
(upload-size int32 20 :offset 388) ;; guessed by decompiler (upload-size int32 20 :offset 388) ;; guessed by decompiler
(inside-boxes? basic :offset-assert 468) (inside-boxes? basic :offset-assert 468)
@ -7464,7 +7473,7 @@
(deftype level-group (basic) (deftype level-group (basic)
((length int32 :offset-assert 4) ((length int32 :offset-assert 4)
(unk-flag1 symbol) (unk-flag1 symbol)
(unk-flag2 symbol) (loading-level level)
(entity-link entity-links :offset 16) (entity-link entity-links :offset 16)
(border? symbol :offset-assert 20) ;; guessed by decompiler (border? symbol :offset-assert 20) ;; guessed by decompiler
@ -10253,6 +10262,12 @@
;; memory-usage-h ;; ;; memory-usage-h ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defenum mem-usage-id
:bitfield #f
:type uint32
(texture 83)
)
(deftype memory-usage-info (structure) (deftype memory-usage-info (structure)
((name string :offset-assert 0) ;; guessed by decompiler ((name string :offset-assert 0) ;; guessed by decompiler
(count int32 :offset-assert 4) (count int32 :offset-assert 4)
@ -11160,67 +11175,128 @@
;; texture ;; ;; texture ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#| (define-extern texture-bpp "Get the bits-per-pixel in the given texture format" (function gs-psm int))
(deftype texture-page-dir (basic) (define-extern texture-qwc "Get the number of quadwords needed for a given texture size and format.
() Does not consider weird PS2 memory layout stuff."
:method-count-assert 10 (function int int gs-psm int))
:size-assert #x14 (define-extern physical-address "Strip off high 8-bits of a pointer, to bypass the uncached memory mappings.
:flag-assert #xa00000014 This gives an address suitable for DMAing from main memory."
(:methods (function pointer pointer))
(texture-page-dir-method-9 () none) ;; 9 ;; (unlink-shaders-in-heap (_type_ kheap) int) (define-extern dma-buffer-add-ref-texture "Upload a texture, by reference. Doesn't copy the texture into the DMA buffer - just a reference,
) so it is up to the user to make sure the texture is valid during DMA time.
) Doesn't set up GIF for receiving textures."
|# (function dma-buffer pointer int int gs-psm none))
;; (define-extern texture-bpp function) ;; (function gs-psm int) (define-extern gs-find-block "Lookup offset of block in PS2's swizzled VRAM, as a block index."
;; (define-extern texture-qwc function) ;; (function int int gs-psm int) (function int int gs-psm int))
;; (define-extern physical-address function) ;; (function pointer pointer) (define-extern gs-page-width "Get the width of a page, in pixels, for the given texture format."
;; (define-extern dma-buffer-add-ref-texture function) ;; (function dma-buffer pointer int int gs-psm none) (function gs-psm int))
;; (define-extern gs-find-block function) ;; (function int int gs-psm int) (define-extern gs-page-height "Get the height of a page, in pixels, for the given texture format."
;; (define-extern gs-page-width function) ;; (function gs-psm int) (function gs-psm int))
;; (define-extern gs-page-height function) ;; (function gs-psm int) (define-extern gs-block-width "Get the width of a block, in pixels, for the texture format."
;; (define-extern gs-block-width function) ;; (function gs-psm int) (function gs-psm int))
;; (define-extern gs-block-height function) ;; (function gs-psm int) (define-extern gs-block-height "Get the height of a block, in pixels, for the texture format." (function gs-psm int))
;; (define-extern gs-largest-block function) ;; (function int int gs-psm int) (define-extern gs-largest-block "Get the highest block index used by a texture." (function int int gs-psm int))
;; (define-extern gs-blocks-used function) ;; (function int int gs-psm int) (define-extern gs-blocks-used "Get the number of blocks used by a texture.
;; (define-extern texture-page-default-allocate function) ;; (function texture-pool texture-page kheap int texture-page) If the texture isn't an even number of pages, the partially completed
;; (define-extern texture-page-common-allocate function) ;; (function texture-pool texture-page kheap int texture-page) page will be counted as the largest used block.
;; (define-extern texture-page-font-allocate function) ;; (function texture-pool texture-page kheap int texture-page) (gaps in this page are counted as used)"
;; (define-extern texture-page-common-boot-allocate function) ;; (function texture-pool texture-page kheap int texture-page) (function int int gs-psm int))
;; (define-extern upload-vram-data function) ;; (function dma-buffer int pointer int int none) (define-extern texture-page-default-allocate
;; (define-extern upload-vram-pages function) ;; (function texture-pool texture-pool-segment texture-page tex-upload-mode bucket-id int) "Texture allocation function for textures that permanently live in VRAM.
;; (define-extern update-vram-pages function) ;; (function texture-pool texture-pool-segment texture-page tex-upload-mode int) The texture data is immediately uploaded, then discarded from the heap.
;; (define-extern upload-vram-pages-pris function) ;; (function texture-pool texture-pool-segment texture-page bucket-id (pointer int32) int) This should only be called during startup."
;; (define-extern texture-page-level-allocate function) ;; (function texture-pool texture-page kheap int texture-page) (function texture-pool texture-page kheap int texture-page))
;; (define-extern texture-page-size-check function) ;; (function texture-pool level symbol int) (define-extern texture-page-common-allocate
;; (define-extern set-skull-gem-masks function) ;; (function none) "Texture allocation function for textures that share the common segment.
;; (define-extern upload-textures function) ;; (function texture-pool none) The texture remains in RAM, and is uploaded to VRAM as needed as part
;; (define-extern *txt-dma-list* object) ;; dma-buffer of the main drawing DMA chain."
;; (define-extern texture-relocate function) ;; (function dma-buffer texture int gs-psm int dma-buffer) (function texture-pool texture-page kheap int texture-page))
;; (define-extern relocate-later function) ;; (function symbol) (define-extern texture-page-font-allocate
;; (define-extern texture-page-login function) ;; (function texture-id (function texture-pool texture-page kheap int texture-page) kheap texture-page-dir-entry) "Texture allocation function for font. This temporarily stores them in the common segment,
;; (define-extern lookup-texture-by-id function) ;; (function texture-id texture) removes them from RAM. This is a bit of hack. Later font setup code expects the font texture
;; (define-extern lookup-texture-by-id-fast function) ;; (function texture-id texture) to be in common, and they will eventually be moved into the upper 8-bits of the depth buffer."
;; (define-extern lookup-texture-by-name function) ;; (function string string (pointer texture-page) texture) (function texture-pool texture-page kheap int texture-page))
;; (define-extern lookup-texture-id-by-name function) ;; (function string string texture-id) (define-extern texture-page-common-boot-allocate
;; (define-extern lookup-level-texture-by-name function) ;; (function string level (pointer texture-page) texture) "Allocator function for texture loaded at startup time.
;; (define-extern lookup-tex-id-from-texture function) For jak 3, this seems to always do default-allocate (permanently in vram?)"
;; (define-extern lookup-level-texture-id-by-name function) (function texture-pool texture-page kheap int texture-page))
;; (define-extern *shader-list* object) ;; pair (define-extern upload-vram-data "Add DMA to later upload a texture, by reference. Sets up the GIF for receiving the texture."
;; (define-extern *edit-shader* object) ;; texture-id (function dma-buffer int pointer int int none))
;; (define-extern link-texture-by-id function) ;; (function texture-id adgif-shader texture-page-dir-entry) (define-extern upload-vram-pages "Add DMA to upload a texture page. Will only upload the portion of data that is not already present in VRAM.
;; (define-extern adgif-shader<-texture! function) ;; (function adgif-shader texture adgif-shader) This is the old Jak 1 background texture uploading system, which had this near/far concept
;; (define-extern adgif-shader-update! function) ;; (function adgif-shader texture none) for different mip levels. By jak 2, the background system switched to masks and uses
;; (define-extern adgif-shader<-texture-with-update! function) ;; (function adgif-shader texture adgif-shader) the -pris variant of this function."
;; (define-extern hack-texture function) ;; (function texture float) (function texture-pool texture-pool-segment texture-page tex-upload-mode bucket-id int))
;; (define-extern adgif-shader-login function) ;; (function adgif-shader texture) (define-extern update-vram-pages
;; (define-extern adgif-shader-login-no-remap function) ;; (function adgif-shader texture) "Likely a debug function for checking the logic of upload-vram-pages. Unused"
;; (define-extern adgif-shader-login-fast function) ;; (function adgif-shader texture) (function texture-pool texture-pool-segment texture-page tex-upload-mode int))
;; (define-extern adgif-shader-login-no-remap-fast function) ;; (function adgif-shader texture) (define-extern upload-vram-pages-pris
;; (define-extern adgif-shader<-texture-simple! function) ;; (function adgif-shader texture adgif-shader) "Similar to upload-vram-pages, but skips the near/far mode and instead uses masks.
;; (define-extern set-dirty-mask! function) ;; (function level int int int none) The foreground/background renderers will generate masks telling us which textures are used.
;; (define-extern texture-page-dir-inspect function) ;; (function texture-page-dir symbol none) This lets us skip uploading entire textures, or mip levels that won't need.
;; (define-extern *texture-pool* object) ;; texture-pool (side note: this optimization is what causes many of the texturing issues in pcsx2,
where the ps2 and pcsx2 disagree on the mip level to use.)"
(function texture-pool texture-pool-segment texture-page bucket-id (pointer int32) int))
(define-extern texture-page-level-allocate
"Allocation function for level textures."
(function texture-pool texture-page kheap int texture-page))
(define-extern texture-page-size-check "Check the size of level textures." (function texture-pool level symbol int))
(define-extern set-skull-gem-masks "Turn on masks for skull gem textures, so they will be uploaded." (function none))
(define-extern upload-textures "Set up DMA for all texture uploads for this frame." (function texture-pool none))
(define-extern *txt-dma-list* dma-buffer)
(define-extern texture-relocate "Move a texture in VRAM." (function dma-buffer texture int gs-psm int dma-buffer))
(define-extern relocate-later
"Unused in jak 2 and likely unsed in jak 3. Feature to postpone some texture copying until
a later frame. This is only used in cases when texture data must be memcpy'd in RAM, to patch up a hole left
by some data that is now permanently in VRAM, and no longer needed.
Note that Jak2/Jak3 don't have this problem since level textures are now never permanent"
(function symbol))
(define-extern texture-page-login
"'Login' (initialize) a texture page with the pool.
This has a trick - it doesn't actually require you to pass a texture-page object - instead you pass an ID.
If the texture was loaded at all, it will already be known to the texture pool, and this function will do nothing.
However, if the texture is not present, it will be loaded through a call to `loado`, for use in development."
(function texture-id (function texture-pool texture-page kheap int texture-page) kheap texture-page-dir-entry))
(define-extern lookup-texture-by-id "Get a texture by ID, loading it if needed (for debugging only)." (function texture-id texture))
(define-extern lookup-texture-by-id-fast "Get a texture by ID. #f if it does not exist." (function texture-id texture))
(define-extern lookup-texture-by-name "Get a loaded texture by name. Slow." (function string string (pointer texture-page) texture))
(define-extern lookup-texture-id-by-name "Get the ID of a loaded texture by name. Slow." (function string string texture-id))
(define-extern lookup-level-texture-by-name "Get a texture from a given level, by name." (function string level (pointer texture-page) texture))
(define-extern lookup-tex-id-from-texture "Get the texture ID of a given texture. Slow." (function texture texture-id))
(define-extern lookup-level-texture-id-by-name "Get the texture ID of a given texture in a level. Slow." (function string level int texture-id))
(define-extern *shader-list* pair) ;;
(define-extern *edit-shader* texture-id) ;;
(define-extern link-texture-by-id
"Add this adgif shader to the linked list of shaders associated with the given texture ID.
Will allocate the link array if it's not already."
(function texture-id adgif-shader texture-page-dir-entry))
(define-extern adgif-shader<-texture! (function adgif-shader texture adgif-shader))
(define-extern adgif-shader-update! "Update k based on uv-dist" (function adgif-shader texture none))
(define-extern adgif-shader<-texture-with-update! (function adgif-shader texture adgif-shader))
(define-extern hack-texture "adjust some values of a texture, likely for debug." (function texture float))
(define-extern adgif-shader-login "set up an adgif shader with the texture-pool, so it points to the right vram address.
Will remap textures through the level remap table.
If texture is missing, will load it on debug hardware." (function adgif-shader texture))
(define-extern adgif-shader-login-no-remap
"Set up an adgif shader with the texture-pool, so it points to the right vram adress.
This does not do level tpage remapping, so the texture should be one that's not loaded in a combine level tpage."
(function adgif-shader texture))
(define-extern adgif-shader-login-fast
"Set up an adgif shader with the texture-pool, so it points to the right vram address.
Will remap through the level table, so can be used to refer to textures inside 'squashed'
level tpages.
Will not load texture if it is missing." (function adgif-shader texture))
(define-extern adgif-shader-login-no-remap-fast
"Set up an adgif shader with the texture-pool, so it points to the right vram address.
Will not remap through the level tpage table.
Will not load texture if it is missing." (function adgif-shader texture))
(define-extern adgif-shader<-texture-simple! "Simple adgif-shader to texture, just sets vram address and format stuff.
Intended for use with fancy texture stuff that will later set the other regs."
(function adgif-shader texture adgif-shader))
(define-extern set-dirty-mask! (function level int int int none))
(define-extern texture-page-dir-inspect (function texture-page-dir symbol none))
(define-extern *texture-pool* texture-pool)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; main-h ;; ;; main-h ;;
@ -26061,7 +26137,7 @@
;; (define-extern *test-shrub* object) ;; int ;; (define-extern *test-shrub* object) ;; int
;; (define-extern bsp-camera-asm function) ;; (function bsp-header vector none) ;; (define-extern bsp-camera-asm function) ;; (function bsp-header vector none)
;; (define-extern print-collide-stats function) ;; (function none) ;; (define-extern print-collide-stats function) ;; (function none)
;; (define-extern level-remap-texture function) ;; (function texture-id texture-id) (define-extern level-remap-texture (function texture-id texture-id))
;; (define-extern build-masks function) ;; (function bsp-header none) ;; (define-extern build-masks function) ;; (function bsp-header none)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -27036,7 +27112,7 @@
;; (define-extern texture-anim-draw-mip-shader function) ;; (define-extern texture-anim-draw-mip-shader function)
;; (define-extern clear-texture-ids function) ;; (define-extern clear-texture-ids function)
;; (define-extern texture-anim-draw-mips function) ;; (define-extern texture-anim-draw-mips function)
;; (define-extern update-texture-anim function) ;; (function bucket-id texture-anim-array none) (define-extern update-texture-anim (function bucket-id texture-anim-array none))
;; (define-extern no-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int) ;; (define-extern no-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int)
;; (define-extern copy-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int) ;; (define-extern copy-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int)
;; (define-extern copy-clut-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int) ;; (define-extern copy-clut-alpha-texture-anim-layer-func function) ;; (function dma-buffer uint int int texture-anim-layer float int)
@ -27085,7 +27161,7 @@
;; (define-extern set-darkjak-texture-morph! function) ;; (function float none) ;; (define-extern set-darkjak-texture-morph! function) ;; (function float none)
;; (define-extern *darkjak-highres-texture-anim-array* texture-anim-array) ;; (define-extern *darkjak-highres-texture-anim-array* texture-anim-array)
;; (define-extern set-darkjak-highres-texture-morph! function) ;; (function float symbol) ;; (define-extern set-darkjak-highres-texture-morph! function) ;; (function float symbol)
;; (define-extern *skull-gem-texture-anim-array* texture-anim-array) ;; (texture-anim-array texture-anim) (define-extern *skull-gem-texture-anim-array* (texture-anim-array texture-anim))
;; (define-extern *default-water-texture-anim-array* texture-anim-array) ;; (define-extern *default-water-texture-anim-array* texture-anim-array)
;; (define-extern *default-warp-texture-anim-array* texture-anim-array) ;; (define-extern *default-warp-texture-anim-array* texture-anim-array)
@ -27093,7 +27169,7 @@
;; blit-displays ;; ;; blit-displays ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (define-extern *blit-displays-work* object) ;; blit-displays-work (define-extern *blit-displays-work* blit-displays-work)
;; (define-extern draw-color-bars function) ;; (function none) ;; (define-extern draw-color-bars function) ;; (function none)
;; (define-extern draw-raw-image function) ;; (function bucket-id art-group int int level int none) ;; (define-extern draw-raw-image function) ;; (function bucket-id art-group int int level int none)
@ -35400,7 +35476,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (define-extern *bigmap-info-array* object) ;; bigmap-info-array ;; (define-extern *bigmap-info-array* object) ;; bigmap-info-array
;; (define-extern *bigmap* object) ;; bigmap (define-extern *bigmap* bigmap)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; eye ;; ;; eye ;;

26
decompiler/config/jak3/ntsc_v1/type_casts.jsonc
View file

@ -234,7 +234,31 @@
], ],
"(method 3 connection-minimap)": [ "(method 3 connection-minimap)": [
[97, "f0", "float"] [97, "f0", "float"]
],
"dma-buffer-add-ref-texture": [
[[47, 54], "a3", "dma-packet"],
[[56, 69], "a3", "gs-gif-tag"],
[[71, 87], "a2", "dma-packet"]
],
"texture-page-default-allocate":
[[51, "a3", "(pointer int32)"]],
"texture-page-font-allocate":[[33, "a3", "(pointer int32)"]],
"upload-vram-pages":[[[187, 193], "v1", "dma-packet"]],
"upload-vram-pages-pris": [[[181, 187], "v1", "dma-packet"]],
"(method 13 texture-page)": [[45, "a0", "(pointer uint64)"]],
"(method 11 texture-pool)": [[217, "a0", "(pointer uint64)"]],
"texture-page-login": [[34, "v0", "texture-page"]],
"(method 9 texture-page-dir)": [
[[36, 40], "t1", "adgif-shader"],
[[31, 41], "t2", "(pointer shader-ptr)"],
[37, "t0", "(pointer int32)"]
],
"texture-page-dir-inspect": [[[137, 138], "v1", "adgif-shader"]],
"(method 24 texture-pool)": [
[[77, 100], "a1", "adgif-shader"]
// [[70, 93], "a1", "adgif-shader"],
// [92, "a1", "adgif-shader"]
] ]
} }

337
decompiler/config/jak3/ntsc_v1/var_names.jsonc
View file

@ -536,5 +536,342 @@
"args": [ "args": [
"work" "work"
] ]
},
"texture-bpp": {
"args": [
"tex-format"
]
},
"texture-qwc": {
"args": [
"w",
"h",
"tex-format"
]
},
"physical-address": {
"args": [
"addr"
]
},
"dma-buffer-add-ref-texture": {
"args": [
"dma-buf",
"tex-data-ptr",
"w",
"h",
"tex-format"
]
},
"gs-find-block": {
"args": [
"bx",
"by",
"tex-format"
]
},
"gs-page-width": {
"args": [
"tex-format"
]
},
"gs-page-height": {
"args": [
"tex-format"
]
},
"gs-block-width": {
"args": [
"tex-format"
]
},
"gs-block-height": {
"args": [
"tex-format"
]
},
"gs-largest-block": {
"args": [
"w",
"h",
"tex-format"
]
},
"gs-blocks-used": {
"args": [
"w",
"h",
"tex-format"
]
},
"texture-page-default-allocate": {
"args": [
"pool",
"page",
"heap",
"page-id"
]
},
"texture-page-common-allocate": {
"args": [
"pool",
"page",
"heap",
"page-id"
]
},
"texture-page-font-allocate": {
"args": [
"pool",
"page",
"heap",
"page-id"
]
},
"texture-page-common-boot-allocate": {
"args": [
"pool",
"page",
"heap",
"page-id"
]
},
"upload-vram-data": {
"args": [
"dma-buf",
"dest",
"data-ptr",
"h",
"w"
]
},
"upload-vram-pages": {
"args": [
"pool",
"pool-segment",
"page",
"mode",
"bucket"
]
},
"update-vram-pages": {
"args": [
"pool",
"pool-segment",
"page",
"mode"
]
},
"upload-vram-pages-pris": {
"args": [
"pool",
"pool-segment",
"page",
"bucket",
"mask"
]
},
"texture-page-level-allocate": {
"args": [
"pool",
"page",
"heap",
"page-id"
]
},
"texture-page-size-check": {
"args": [
"pool",
"lev",
"print?"
]
},
"upload-textures": {
"args": [
"pool"
]
},
"texture-relocate": {
"args": [
"dma-buf",
"tex",
"dest",
"tex-format",
"clut-dest"
]
},
"texture-page-login": {
"args": [
"id",
"alloc-func",
"heap"
]
},
"lookup-texture-by-id": {
"args": [
"id"
]
},
"lookup-texture-by-id-fast": {
"args": [
"id"
]
},
"lookup-texture-by-name": {
"args": [
"tex-name",
"page-name",
"page-out"
]
},
"lookup-texture-id-by-name": {
"args": [
"tex-name",
"page-name"
]
},
"lookup-level-texture-by-name": {
"args": [
"tex-name",
"lev",
"page-out"
]
},
"lookup-tex-id-from-texture": {
"args": [
"tex"
]
},
"lookup-level-texture-id-by-name": {
"args": [
"tex-name",
"lev",
"lev-page-idx"
]
},
"link-texture-by-id": {
"args": [
"id",
"shader"
]
},
"adgif-shader-update!": {
"args": [
"shader",
"tex"
]
},
"hack-texture": {
"args": [
"tex"
]
},
"adgif-shader-login": {
"args": [
"shader"
]
},
"adgif-shader-login-no-remap": {
"args": [
"shader"
]
},
"adgif-shader-login-fast": {
"args": [
"shader"
]
},
"adgif-shader-login-no-remap-fast": {
"args": [
"shader"
]
},
"adgif-shader<-texture-simple!": {
"args": [
"shader",
"tex"
]
},
"set-dirty-mask!": {
"args": [
"lev",
"mask-idx",
"m0",
"m1"
]
},
"(method 13 texture-pool)": {
"args": [
"this",
"lev",
"texture-page-count",
"texture-ids"
]
},
"(method 14 texture-pool)": {
"args": [
"pool",
"lev",
"category",
"bucket"
]
},
"(method 15 texture-pool)": {
"args": [
"this",
"size"
]
},
"(method 16 texture-pool)": {
"args": [
"this",
"segment",
"size"
]
},
"(method 17 texture-pool)": {
"args": [
"this",
"page"
]
},
"(method 18 texture-pool)": {
"args": [
"this",
"id"
]
},
"(method 7 texture-page)": {
"args": [
"this",
"heap",
"filename"
]
},
"(method 9 texture-page)": {
"args": [
"this",
"heap"
]
},
"(method 11 texture-page)": {
"args": [
"this",
"new-dest",
"seg-id"
]
},
"(method 12 texture-page)": {
"args": [
"page",
"buf",
"mode"
]
},
"(method 13 texture-page)": {
"args": [
"this",
"mode"
]
} }
} }

2
goal_src/jak3/engine/gfx/blit-displays-h.gc
View file

@ -86,3 +86,5 @@
(set! (-> this horizontal-flip-flag) arg0) (set! (-> this horizontal-flip-flag) arg0)
arg0 arg0
) )
(define-extern *blit-displays-work* blit-displays-work)

3
goal_src/jak3/engine/gfx/texture/texture-anim-h.gc
View file

@ -5,6 +5,9 @@
;; name in dgo: texture-anim-h ;; name in dgo: texture-anim-h
;; dgos: GAME ;; dgos: GAME
(declare-type texture-anim-array array)
(define-extern update-texture-anim (function bucket-id texture-anim-array none))
;; DECOMP BEGINS ;; DECOMP BEGINS
(deftype texture-anim-layer (structure) (deftype texture-anim-layer (structure)

222
goal_src/jak3/engine/gfx/texture/texture-h.gc
View file

@ -79,8 +79,8 @@ as the tpage number and index of the texture within the tpage."
(common-page-mask int32) (common-page-mask int32)
(update-sprites-flag symbol) (update-sprites-flag symbol)
(update-flag symbol) (update-flag symbol)
(texture-enable-user uint64) (texture-enable-user texture-enable-mask)
(texture-enable-user-menu uint64) (texture-enable-user-menu texture-enable-mask)
(ids uint32 128) (ids uint32 128)
) )
(:methods (:methods
@ -285,12 +285,12 @@ of the texture."
(reg-2 uint8 :overlay-at (-> prims 5)) (reg-2 uint8 :overlay-at (-> prims 5))
(reg-3 uint8 :overlay-at (-> prims 7)) (reg-3 uint8 :overlay-at (-> prims 7))
(reg-4 uint8 :overlay-at (-> prims 9)) (reg-4 uint8 :overlay-at (-> prims 9))
(tex0 uint64 :overlay-at (-> quad 0 data 0)) (tex0 gs-tex0 :overlay-at (-> quad 0 data 0))
(tex1 uint64 :overlay-at (-> prims 2)) (tex1 gs-tex1 :overlay-at (-> prims 2))
(miptbp1 uint64 :overlay-at (-> prims 4)) (miptbp1 gs-miptbp :overlay-at (-> prims 4))
(clamp uint64 :overlay-at (-> prims 6)) (clamp gs-clamp :overlay-at (-> prims 6))
(clamp-reg uint64 :overlay-at reg-3) (clamp-reg gs-reg64 :overlay-at reg-3)
(alpha uint64 :overlay-at (-> prims 8)) (alpha gs-alpha :overlay-at (-> prims 8))
(link-test link-test-flags :overlay-at (-> quad 0 data 2)) (link-test link-test-flags :overlay-at (-> quad 0 data 2))
(texture-id texture-id :overlay-at reg-1) (texture-id texture-id :overlay-at reg-1)
(next shader-ptr :overlay-at reg-2) (next shader-ptr :overlay-at reg-2)
@ -617,66 +617,66 @@ of the texture."
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id tex-lcom-sky-pre) :bucket (bucket-id tex-lcom-sky-pre)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 sky) :level-texture-page (tpage-category-u32 tc9)
:texture-user (texture-enable-mask-u32 sky) :texture-user (texture-enable-mask-u32 sky)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
@ -730,120 +730,120 @@ of the texture."
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket130) :bucket (bucket-id bucket130)
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket140) :bucket (bucket-id bucket140)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket150) :bucket (bucket-id bucket150)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket160) :bucket (bucket-id bucket160)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket170) :bucket (bucket-id bucket170)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket180) :bucket (bucket-id bucket180)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket190) :bucket (bucket-id bucket190)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket200) :bucket (bucket-id bucket200)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket210) :bucket (bucket-id bucket210)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket220) :bucket (bucket-id bucket220)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket230) :bucket (bucket-id bucket230)
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket241) :bucket (bucket-id bucket241)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket252) :bucket (bucket-id bucket252)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket263) :bucket (bucket-id bucket263)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket274) :bucket (bucket-id bucket274)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket285) :bucket (bucket-id bucket285)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket296) :bucket (bucket-id bucket296)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket307) :bucket (bucket-id bucket307)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket318) :bucket (bucket-id bucket318)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket329) :bucket (bucket-id bucket329)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
@ -854,415 +854,415 @@ of the texture."
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket345) :bucket (bucket-id bucket345)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket351) :bucket (bucket-id bucket351)
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket356) :bucket (bucket-id bucket356)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket361) :bucket (bucket-id bucket361)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket366) :bucket (bucket-id bucket366)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket371) :bucket (bucket-id bucket371)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket376) :bucket (bucket-id bucket376)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket381) :bucket (bucket-id bucket381)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket386) :bucket (bucket-id bucket386)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket391) :bucket (bucket-id bucket391)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket396) :bucket (bucket-id bucket396)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket401) :bucket (bucket-id bucket401)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket406) :bucket (bucket-id bucket406)
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket411) :bucket (bucket-id bucket411)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket416) :bucket (bucket-id bucket416)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket421) :bucket (bucket-id bucket421)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket426) :bucket (bucket-id bucket426)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket431) :bucket (bucket-id bucket431)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket436) :bucket (bucket-id bucket436)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket441) :bucket (bucket-id bucket441)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket446) :bucket (bucket-id bucket446)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket451) :bucket (bucket-id bucket451)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket456) :bucket (bucket-id bucket456)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket461) :bucket (bucket-id bucket461)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 sky) :level-texture-page (tpage-category-u32 tc9)
:texture-user (texture-enable-mask-u32 sky) :texture-user (texture-enable-mask-u32 sky)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket463) :bucket (bucket-id bucket463)
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket473) :bucket (bucket-id bucket473)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket483) :bucket (bucket-id bucket483)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket493) :bucket (bucket-id bucket493)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket503) :bucket (bucket-id bucket503)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket513) :bucket (bucket-id bucket513)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket523) :bucket (bucket-id bucket523)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket533) :bucket (bucket-id bucket533)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket543) :bucket (bucket-id bucket543)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket553) :bucket (bucket-id bucket553)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket563) :bucket (bucket-id bucket563)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket580) :bucket (bucket-id bucket580)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
) )
@ -1279,7 +1279,3 @@ of the texture."
(define *grey-scale-base* (new 'static 'texture-base)) (define *grey-scale-base* (new 'static 'texture-base))
(define *map-texture-base* (new 'static 'texture-base)) (define *map-texture-base* (new 'static 'texture-base))
(define-extern texture-page-default-allocate (function texture-pool texture-page kheap int texture-page))
(define-extern texture-page-login (function texture-id (function texture-pool texture-page kheap int texture-page) kheap texture-page-dir-entry))
(define-extern lookup-texture-by-id (function texture-id texture))

2383
goal_src/jak3/engine/gfx/texture/texture.gc
View file

File diff suppressed because it is too large Load diff

22
goal_src/jak3/engine/gfx/vu1-user-h.gc
View file

@ -8,17 +8,17 @@
;; +++tpage-category ;; +++tpage-category
(defenum tpage-category (defenum tpage-category
:type int8 :type int8
(tpage-cat0 0) (tc0 0) ;;
(tpage-cat1 1) (tc1 1)
(tpage-cat2 2) (tc2 2)
(tpage-cat3 3) (tc3 3)
(tpage-cat4 4) (tc4 4)
(tpage-cat5 5) (warp 5)
(tpage-cat6 6) (tc6 6)
(tpage-cat7 7) (sprite 7)
(tpage-cat8 8) (hud 8)
(sky 9) (tc9 9)
(tpage-cat10 10) (tc10 10)
) )
;; ---tpage-category ;; ---tpage-category

8
goal_src/jak3/engine/level/level-h.gc
View file

@ -17,6 +17,8 @@
(define-extern *draw-index* int) (define-extern *draw-index* int)
(define-extern *level-index* int) (define-extern *level-index* int)
(define-extern level-remap-texture (function texture-id texture-id))
;; +++vis-info-flag ;; +++vis-info-flag
(defenum vis-info-flag (defenum vis-info-flag
:type uint32 :type uint32
@ -231,7 +233,7 @@
(loaded-texture-page texture-page 16) (loaded-texture-page texture-page 16)
(loaded-texture-page-count int32) (loaded-texture-page-count int32)
(entity entity-links-array) (entity entity-links-array)
(closest-object meters) (closest-object meters 10)
(upload-size int32 20 :offset 388) (upload-size int32 20 :offset 388)
(inside-boxes? basic) (inside-boxes? basic)
(display? symbol) (display? symbol)
@ -319,7 +321,7 @@
(deftype level-group (basic) (deftype level-group (basic)
((length int32) ((length int32)
(unk-flag1 symbol) (unk-flag1 symbol)
(unk-flag2 symbol) (loading-level level)
(entity-link entity-links :offset 16) (entity-link entity-links :offset 16)
(border? symbol) (border? symbol)
(vis? symbol) (vis? symbol)
@ -387,7 +389,7 @@
(new 'static 'level-group (new 'static 'level-group
:length 10 :length 10
:unk-flag1 #f :unk-flag1 #f
:unk-flag2 #f :loading-level #f
:entity-link #f :entity-link #f
:border? #f :border? #f
:vis? #f :vis? #f

4
goal_src/jak3/engine/ui/bigmap-h.gc
View file

@ -76,3 +76,7 @@
(bigmap-method-22 () none) (bigmap-method-22 () none)
) )
) )
;; DECOMP ENDS
(define-extern *bigmap* bigmap)

8
test/decompiler/reference/jak3/decompiler-macros.gc generated vendored
View file

@ -670,3 +670,11 @@
) )
) )
) )
(defmacro def-mips2c (name type)
"Define a mips2c object (typically a function)."
`(begin
(define-extern ,name ,type)
(set! ,name (the-as ,type (__pc-get-mips2c ,(symbol->string name))))
)
)

222
test/decompiler/reference/jak3/engine/gfx/texture/texture-h_REF.gc generated vendored
View file

@ -60,8 +60,8 @@ as the tpage number and index of the texture within the tpage."
(common-page-mask int32) (common-page-mask int32)
(update-sprites-flag symbol) (update-sprites-flag symbol)
(update-flag symbol) (update-flag symbol)
(texture-enable-user uint64) (texture-enable-user texture-enable-mask)
(texture-enable-user-menu uint64) (texture-enable-user-menu texture-enable-mask)
(ids uint32 128) (ids uint32 128)
) )
(:methods (:methods
@ -448,12 +448,12 @@ of the texture."
(reg-2 uint8 :overlay-at (-> prims 5)) (reg-2 uint8 :overlay-at (-> prims 5))
(reg-3 uint8 :overlay-at (-> prims 7)) (reg-3 uint8 :overlay-at (-> prims 7))
(reg-4 uint8 :overlay-at (-> prims 9)) (reg-4 uint8 :overlay-at (-> prims 9))
(tex0 uint64 :overlay-at (-> quad 0 data 0)) (tex0 gs-tex0 :overlay-at (-> quad 0 data 0))
(tex1 uint64 :overlay-at (-> prims 2)) (tex1 gs-tex1 :overlay-at (-> prims 2))
(miptbp1 uint64 :overlay-at (-> prims 4)) (miptbp1 gs-miptbp :overlay-at (-> prims 4))
(clamp uint64 :overlay-at (-> prims 6)) (clamp gs-clamp :overlay-at (-> prims 6))
(clamp-reg uint64 :overlay-at reg-3) (clamp-reg gs-reg64 :overlay-at reg-3)
(alpha uint64 :overlay-at (-> prims 8)) (alpha gs-alpha :overlay-at (-> prims 8))
(link-test link-test-flags :overlay-at (-> quad 0 data 2)) (link-test link-test-flags :overlay-at (-> quad 0 data 2))
(texture-id texture-id :overlay-at reg-1) (texture-id texture-id :overlay-at reg-1)
(next shader-ptr :overlay-at reg-2) (next shader-ptr :overlay-at reg-2)
@ -859,66 +859,66 @@ of the texture."
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id tex-lcom-sky-pre) :bucket (bucket-id tex-lcom-sky-pre)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 sky) :level-texture-page (tpage-category-u32 tc9)
:texture-user (texture-enable-mask-u32 sky) :texture-user (texture-enable-mask-u32 sky)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket7) :bucket (bucket-id bucket7)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat10) :level-texture-page (tpage-category-u32 tc10)
:texture-user (texture-enable-mask-u32 tex9) :texture-user (texture-enable-mask-u32 tex9)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
@ -972,120 +972,120 @@ of the texture."
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket130) :bucket (bucket-id bucket130)
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket140) :bucket (bucket-id bucket140)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket150) :bucket (bucket-id bucket150)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket160) :bucket (bucket-id bucket160)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket170) :bucket (bucket-id bucket170)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket180) :bucket (bucket-id bucket180)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket190) :bucket (bucket-id bucket190)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket200) :bucket (bucket-id bucket200)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket210) :bucket (bucket-id bucket210)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket220) :bucket (bucket-id bucket220)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket230) :bucket (bucket-id bucket230)
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket241) :bucket (bucket-id bucket241)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket252) :bucket (bucket-id bucket252)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket263) :bucket (bucket-id bucket263)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket274) :bucket (bucket-id bucket274)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket285) :bucket (bucket-id bucket285)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket296) :bucket (bucket-id bucket296)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket307) :bucket (bucket-id bucket307)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket318) :bucket (bucket-id bucket318)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket329) :bucket (bucket-id bucket329)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex3) :texture-user (texture-enable-mask-u32 tex3)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
@ -1096,415 +1096,415 @@ of the texture."
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket345) :bucket (bucket-id bucket345)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat2) :level-texture-page (tpage-category-u32 tc2)
:texture-user (texture-enable-mask-u32 tex2) :texture-user (texture-enable-mask-u32 tex2)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket351) :bucket (bucket-id bucket351)
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket356) :bucket (bucket-id bucket356)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket361) :bucket (bucket-id bucket361)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket366) :bucket (bucket-id bucket366)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket371) :bucket (bucket-id bucket371)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket376) :bucket (bucket-id bucket376)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket381) :bucket (bucket-id bucket381)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket386) :bucket (bucket-id bucket386)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket391) :bucket (bucket-id bucket391)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket396) :bucket (bucket-id bucket396)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket401) :bucket (bucket-id bucket401)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat1) :level-texture-page (tpage-category-u32 tc1)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket406) :bucket (bucket-id bucket406)
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket411) :bucket (bucket-id bucket411)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket416) :bucket (bucket-id bucket416)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket421) :bucket (bucket-id bucket421)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket426) :bucket (bucket-id bucket426)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket431) :bucket (bucket-id bucket431)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket436) :bucket (bucket-id bucket436)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket441) :bucket (bucket-id bucket441)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket446) :bucket (bucket-id bucket446)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket451) :bucket (bucket-id bucket451)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket456) :bucket (bucket-id bucket456)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex1) :texture-user (texture-enable-mask-u32 tex1)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket461) :bucket (bucket-id bucket461)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 sky) :level-texture-page (tpage-category-u32 tc9)
:texture-user (texture-enable-mask-u32 sky) :texture-user (texture-enable-mask-u32 sky)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket463) :bucket (bucket-id bucket463)
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket473) :bucket (bucket-id bucket473)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket483) :bucket (bucket-id bucket483)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket493) :bucket (bucket-id bucket493)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket503) :bucket (bucket-id bucket503)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket513) :bucket (bucket-id bucket513)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket523) :bucket (bucket-id bucket523)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket533) :bucket (bucket-id bucket533)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket543) :bucket (bucket-id bucket543)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket553) :bucket (bucket-id bucket553)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket563) :bucket (bucket-id bucket563)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat4) :level-texture-page (tpage-category-u32 tc4)
:texture-user (texture-enable-mask-u32 tex4) :texture-user (texture-enable-mask-u32 tex4)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket568) :bucket (bucket-id bucket568)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat7) :level-texture-page (tpage-category-u32 sprite)
:texture-user (texture-enable-mask-u32 tex6) :texture-user (texture-enable-mask-u32 tex6)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket575) :bucket (bucket-id bucket575)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat5) :level-texture-page (tpage-category-u32 warp)
:texture-user (texture-enable-mask-u32 tex5) :texture-user (texture-enable-mask-u32 tex5)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x1 :level-index #x1
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x2 :level-index #x2
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x3 :level-index #x3
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x4 :level-index #x4
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x5 :level-index #x5
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x6 :level-index #x6
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x7 :level-index #x7
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x8 :level-index #x8
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #x9 :level-index #x9
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat8) :level-texture-page (tpage-category-u32 hud)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket578) :bucket (bucket-id bucket578)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat3) :level-texture-page (tpage-category-u32 tc3)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
(new 'static 'texture-page-translate-item (new 'static 'texture-page-translate-item
:bucket (bucket-id bucket580) :bucket (bucket-id bucket580)
:level-index #xa :level-index #xa
:level-texture-page (tpage-category-u32 tpage-cat6) :level-texture-page (tpage-category-u32 tc6)
:texture-user (texture-enable-mask-u32 tex7) :texture-user (texture-enable-mask-u32 tex7)
) )
) )
@ -1530,7 +1530,3 @@ of the texture."
;; failed to figure out what this is: ;; failed to figure out what this is:
0 0

2519
test/decompiler/reference/jak3/engine/gfx/texture/texture_REF.gc generated vendored Normal file
View file

File diff suppressed because it is too large Load diff

12
test/decompiler/reference/jak3/engine/level/level-h_REF.gc generated vendored
View file

@ -374,7 +374,7 @@
(loaded-texture-page texture-page 16) (loaded-texture-page texture-page 16)
(loaded-texture-page-count int32) (loaded-texture-page-count int32)
(entity entity-links-array) (entity entity-links-array)
(closest-object meters) (closest-object meters 10)
(upload-size int32 20 :offset 388) (upload-size int32 20 :offset 388)
(inside-boxes? basic) (inside-boxes? basic)
(display? symbol) (display? symbol)
@ -484,7 +484,7 @@
(format #t "~1Tloaded-texture-page[16] @ #x~X~%" (-> this loaded-texture-page)) (format #t "~1Tloaded-texture-page[16] @ #x~X~%" (-> this loaded-texture-page))
(format #t "~1Tloaded-texture-page-count: ~D~%" (-> this loaded-texture-page-count)) (format #t "~1Tloaded-texture-page-count: ~D~%" (-> this loaded-texture-page-count))
(format #t "~1Tentity: ~A~%" (-> this entity)) (format #t "~1Tentity: ~A~%" (-> this entity))
(format #t "~1Tclosest-object: (meters ~m)~%" (&-> this closest-object)) (format #t "~1Tclosest-object: (meters ~m)~%" (-> this closest-object))
(format #t "~1Tupload-size[20] @ #x~X~%" (-> this upload-size)) (format #t "~1Tupload-size[20] @ #x~X~%" (-> this upload-size))
(format #t "~1Tinside-boxes?: ~A~%" (-> this inside-boxes?)) (format #t "~1Tinside-boxes?: ~A~%" (-> this inside-boxes?))
(format #t "~1Tdisplay?: ~A~%" (-> this display?)) (format #t "~1Tdisplay?: ~A~%" (-> this display?))
@ -618,7 +618,7 @@
(deftype level-group (basic) (deftype level-group (basic)
((length int32) ((length int32)
(unk-flag1 symbol) (unk-flag1 symbol)
(unk-flag2 symbol) (loading-level level)
(entity-link entity-links :offset 16) (entity-link entity-links :offset 16)
(border? symbol) (border? symbol)
(vis? symbol) (vis? symbol)
@ -744,7 +744,7 @@
(new 'static 'level-group (new 'static 'level-group
:length 10 :length 10
:unk-flag1 #f :unk-flag1 #f
:unk-flag2 #f :loading-level #f
:entity-link #f :entity-link #f
:border? #f :border? #f
:vis? #f :vis? #f
@ -865,7 +865,3 @@
;; definition for symbol *city-mode*, type symbol ;; definition for symbol *city-mode*, type symbol
(define *city-mode* #f) (define *city-mode* #f)

4
test/offline/config/jak3/config.jsonc
View file

@ -53,7 +53,9 @@
// dma // dma
"dma-buffer-add-vu-function", "dma-buffer-add-vu-function",
// sky (multiple definition) // sky (multiple definition)
"(method 3 sky-vertex)" "(method 3 sky-vertex)",
// texture
"(method 9 texture-page-dir)", "set-dirty-mask!"
], ],
"skip_compile_states": {} "skip_compile_states": {}