mirror of
https://github.com/open-goal/jak-project
synced 2026-09-01 17:59:55 -04:00
[jak3] decompile (but not port) texture (#3346)
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
+8
@@ -669,4 +669,12 @@
|
||||
,@body
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(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))))
|
||||
)
|
||||
)
|
||||
+109
-113
@@ -60,8 +60,8 @@ as the tpage number and index of the texture within the tpage."
|
||||
(common-page-mask int32)
|
||||
(update-sprites-flag symbol)
|
||||
(update-flag symbol)
|
||||
(texture-enable-user uint64)
|
||||
(texture-enable-user-menu uint64)
|
||||
(texture-enable-user texture-enable-mask)
|
||||
(texture-enable-user-menu texture-enable-mask)
|
||||
(ids uint32 128)
|
||||
)
|
||||
(:methods
|
||||
@@ -448,12 +448,12 @@ of the texture."
|
||||
(reg-2 uint8 :overlay-at (-> prims 5))
|
||||
(reg-3 uint8 :overlay-at (-> prims 7))
|
||||
(reg-4 uint8 :overlay-at (-> prims 9))
|
||||
(tex0 uint64 :overlay-at (-> quad 0 data 0))
|
||||
(tex1 uint64 :overlay-at (-> prims 2))
|
||||
(miptbp1 uint64 :overlay-at (-> prims 4))
|
||||
(clamp uint64 :overlay-at (-> prims 6))
|
||||
(clamp-reg uint64 :overlay-at reg-3)
|
||||
(alpha uint64 :overlay-at (-> prims 8))
|
||||
(tex0 gs-tex0 :overlay-at (-> quad 0 data 0))
|
||||
(tex1 gs-tex1 :overlay-at (-> prims 2))
|
||||
(miptbp1 gs-miptbp :overlay-at (-> prims 4))
|
||||
(clamp gs-clamp :overlay-at (-> prims 6))
|
||||
(clamp-reg gs-reg64 :overlay-at reg-3)
|
||||
(alpha gs-alpha :overlay-at (-> prims 8))
|
||||
(link-test link-test-flags :overlay-at (-> quad 0 data 2))
|
||||
(texture-id texture-id :overlay-at reg-1)
|
||||
(next shader-ptr :overlay-at reg-2)
|
||||
@@ -859,66 +859,66 @@ of the texture."
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id tex-lcom-sky-pre)
|
||||
:level-index #xa
|
||||
:level-texture-page (tpage-category-u32 sky)
|
||||
:level-texture-page (tpage-category-u32 tc9)
|
||||
:texture-user (texture-enable-mask-u32 sky)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket7)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
@@ -972,120 +972,120 @@ of the texture."
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket140)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket150)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket160)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket170)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket180)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket190)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket200)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket210)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket220)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket241)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket252)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket263)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket274)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket285)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket296)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket307)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket318)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket329)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
@@ -1096,415 +1096,415 @@ of the texture."
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket345)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket356)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket361)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket366)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket371)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket376)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket381)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket386)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket391)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket396)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket401)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket411)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket416)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket421)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket426)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket431)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket436)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket441)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket446)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket451)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket456)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket461)
|
||||
:level-index #xa
|
||||
:level-texture-page (tpage-category-u32 sky)
|
||||
:level-texture-page (tpage-category-u32 tc9)
|
||||
:texture-user (texture-enable-mask-u32 sky)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket473)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket483)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket493)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket503)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket513)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket523)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket533)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket543)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket553)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket563)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket568)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket575)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket578)
|
||||
: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)
|
||||
)
|
||||
(new 'static 'texture-page-translate-item
|
||||
:bucket (bucket-id bucket580)
|
||||
: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)
|
||||
)
|
||||
)
|
||||
@@ -1530,7 +1530,3 @@ of the texture."
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2519
File diff suppressed because it is too large
Load Diff
+4
-8
@@ -374,7 +374,7 @@
|
||||
(loaded-texture-page texture-page 16)
|
||||
(loaded-texture-page-count int32)
|
||||
(entity entity-links-array)
|
||||
(closest-object meters)
|
||||
(closest-object meters 10)
|
||||
(upload-size int32 20 :offset 388)
|
||||
(inside-boxes? basic)
|
||||
(display? symbol)
|
||||
@@ -484,7 +484,7 @@
|
||||
(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 "~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 "~1Tinside-boxes?: ~A~%" (-> this inside-boxes?))
|
||||
(format #t "~1Tdisplay?: ~A~%" (-> this display?))
|
||||
@@ -618,7 +618,7 @@
|
||||
(deftype level-group (basic)
|
||||
((length int32)
|
||||
(unk-flag1 symbol)
|
||||
(unk-flag2 symbol)
|
||||
(loading-level level)
|
||||
(entity-link entity-links :offset 16)
|
||||
(border? symbol)
|
||||
(vis? symbol)
|
||||
@@ -744,7 +744,7 @@
|
||||
(new 'static 'level-group
|
||||
:length 10
|
||||
:unk-flag1 #f
|
||||
:unk-flag2 #f
|
||||
:loading-level #f
|
||||
:entity-link #f
|
||||
:border? #f
|
||||
:vis? #f
|
||||
@@ -865,7 +865,3 @@
|
||||
|
||||
;; definition for symbol *city-mode*, type symbol
|
||||
(define *city-mode* #f)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -53,7 +53,9 @@
|
||||
// dma
|
||||
"dma-buffer-add-vu-function",
|
||||
// sky (multiple definition)
|
||||
"(method 3 sky-vertex)"
|
||||
"(method 3 sky-vertex)",
|
||||
// texture
|
||||
"(method 9 texture-page-dir)", "set-dirty-mask!"
|
||||
],
|
||||
|
||||
"skip_compile_states": {}
|
||||
|
||||
Reference in New Issue
Block a user