mirror of
https://github.com/open-goal/jak-project
synced 2026-07-11 23:30:16 -04:00
ManDude
324def1303
Moves PC-specific entity and debug menu things to `entity-debug.gc` and `default-menu-pc.gc` respectively and makes `(declare-file (debug))` work as it should (no need to wrap the entire file in `(when *debug-segment*` now!). Also changes the DGO descriptor format so that it's less verbose. It might break custom levels, but the format change is very simple so it should not be difficult for anyone to update to the new format. Sadly, you lose the completely useless ability to use DGO object names that don't match the source file name. The horror! I've also gone ahead and expanded the force envmap option to also force the ripple effect to be active. I did not notice any performance or visual drawbacks from this. Gets rid of some distracting LOD and some water pools appearing super flat (and pitch back for dark eco). Fixes #1424
100 lines
3.3 KiB
Common Lisp
Vendored
Generated
100 lines
3.3 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
;; definition of type gs-store-image-packet
|
|
(deftype gs-store-image-packet (structure)
|
|
((vifcode vif-tag 4 :offset-assert 0)
|
|
(giftag gif-tag :offset-assert 16)
|
|
(bitbltbuf gs-bitbltbuf :offset-assert 32)
|
|
(bitbltbuf-addr gs-reg64 :offset-assert 40)
|
|
(trxpos gs-trxpos :offset-assert 48)
|
|
(trxpos-addr gs-reg64 :offset-assert 56)
|
|
(trxreg gs-trxreg :offset-assert 64)
|
|
(trxreg-addr gs-reg64 :offset-assert 72)
|
|
(finish int64 :offset-assert 80)
|
|
(finish-addr gs-reg64 :offset-assert 88)
|
|
(trxdir gs-trxdir :offset-assert 96)
|
|
(trxdir-addr gs-reg64 :offset-assert 104)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x70
|
|
:flag-assert #x900000070
|
|
)
|
|
|
|
;; definition for method 3 of type gs-store-image-packet
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect gs-store-image-packet ((obj gs-store-image-packet))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'gs-store-image-packet)
|
|
(format #t "~1Tvifcode[4] @ #x~X~%" (-> obj vifcode))
|
|
(format #t "~1Tgiftag: ~D~%" (-> obj giftag))
|
|
(format #t "~1Tbitbltbuf: ~D~%" (-> obj bitbltbuf))
|
|
(format #t "~1Tbitbltbuf-addr: ~D~%" (-> obj bitbltbuf-addr))
|
|
(format #t "~1Ttrxpos: ~D~%" (-> obj trxpos))
|
|
(format #t "~1Ttrxpos-addr: ~D~%" (-> obj trxpos-addr))
|
|
(format #t "~1Ttrxreg: ~D~%" (-> obj trxreg))
|
|
(format #t "~1Ttrxreg-addr: ~D~%" (-> obj trxreg-addr))
|
|
(format #t "~1Tfinish: ~D~%" (-> obj finish))
|
|
(format #t "~1Tfinish-addr: ~D~%" (-> obj finish-addr))
|
|
(format #t "~1Ttrxdir: ~D~%" (-> obj trxdir))
|
|
(format #t "~1Ttrxdir-addr: ~D~%" (-> obj trxdir-addr))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type screen-shot-work
|
|
(deftype screen-shot-work (structure)
|
|
((count int16 :offset-assert 0)
|
|
(size int16 :offset-assert 2)
|
|
(name string :offset-assert 4)
|
|
(highres-enable symbol :offset-assert 8)
|
|
(hud-enable symbol :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
;; definition for method 3 of type screen-shot-work
|
|
(defmethod inspect screen-shot-work ((obj screen-shot-work))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'screen-shot-work)
|
|
(format #t "~1Tcount: ~D~%" (-> obj count))
|
|
(format #t "~1Tsize: ~D~%" (-> obj size))
|
|
(format #t "~1Tname: ~A~%" (-> obj name))
|
|
(format #t "~1Thighres-enable: ~A~%" (-> obj highres-enable))
|
|
(format #t "~1Thud-enable: ~A~%" (-> obj hud-enable))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition for symbol *screen-shot-work*, type screen-shot-work
|
|
(define *screen-shot-work* (new 'global 'screen-shot-work))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *screen-shot-work* count) -1)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *screen-shot-work* size) -1)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *screen-shot-work* highres-enable) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *screen-shot-work* hud-enable) #f)
|
|
|
|
;; definition for symbol *image-name*, type string
|
|
(define *image-name* (new 'global 'string 32 (the-as string #f)))
|
|
|
|
;; failed to figure out what this is:
|
|
0
|