mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
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
143 lines
3 KiB
Common Lisp
143 lines
3 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: memory-usage-h.gc
|
|
;; name in dgo: memory-usage-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
(defenum mem-usage-id
|
|
:bitfield #f
|
|
:type uint32
|
|
(tfragment 1)
|
|
(tfragment-base 2)
|
|
(tfragment-common 3)
|
|
(tfragment-level0 4)
|
|
(tfragment-level1 5)
|
|
(tfragment-color 6)
|
|
(tfragment-debug 7)
|
|
|
|
(tie-fragment 9)
|
|
(tie-gif 10)
|
|
(tie-points 11)
|
|
(tie-colors 12)
|
|
(tie-draw-points 13)
|
|
(tie-debug 14)
|
|
|
|
(tie-generic 17)
|
|
(instance-tie 18)
|
|
(instance-tie-colors0 19)
|
|
(instance-tie-colors1 20)
|
|
(instance-tie-colors2 21)
|
|
(instance-tie-colors3 22)
|
|
(inst-tie-colors* 23)
|
|
|
|
;; 25-33 is shrub stuff
|
|
|
|
;;
|
|
|
|
(entity 43)
|
|
(camera 44)
|
|
|
|
(res 48)
|
|
|
|
;; 50-57 is collision
|
|
|
|
(bsp-main 58)
|
|
(bsp-misc 59)
|
|
(bsp-node 60)
|
|
(bsp-leaf-vis-self 61)
|
|
(bsp-leaf-vis-adj 62)
|
|
|
|
(pat 64)
|
|
(level-code 65)
|
|
(entity-links 66)
|
|
|
|
(joint 67)
|
|
|
|
(joint-anim-compressed-control 69)
|
|
(joint-anim-fixed 70)
|
|
(joint-anim-frame 71)
|
|
(subtitle 72)
|
|
(art-group 73)
|
|
(art-mesh-anim 74)
|
|
(art-mesh-geo 75)
|
|
(art-joint-geo 76)
|
|
(art-joint-anim 77)
|
|
(merc-ctrl 78)
|
|
(joint-anim-drawable 79)
|
|
(blend-shape 80)
|
|
|
|
(texture 82)
|
|
|
|
(array 84)
|
|
|
|
(unsorted-proc 90)
|
|
(8k-dead-pool 91)
|
|
(16k-dead-pool 92)
|
|
(nk-dead-pool 93)
|
|
(target-dead-pool 94)
|
|
(camera-dead-pool 95)
|
|
(debug-dead-pool 96)
|
|
(process-active 97)
|
|
(heap-total 98)
|
|
(heap-process 99)
|
|
(heap-header 100)
|
|
(heap-thread 101)
|
|
(heap-root 102)
|
|
|
|
(heap-draw-control 103)
|
|
(heap-joint-control 104)
|
|
(heap-cspace 105)
|
|
(heap-bone 106)
|
|
(heap-part 107)
|
|
(heap-collide-prim 108)
|
|
(heap-misc 109)
|
|
|
|
|
|
(eye-anim 111)
|
|
)
|
|
|
|
(define-extern mem-size (function basic symbol int int))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
(deftype memory-usage-info (structure)
|
|
((name string :offset-assert 0)
|
|
(count int32 :offset-assert 4)
|
|
(used int32 :offset-assert 8)
|
|
(total int32 :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
|
|
(deftype memory-usage-block (basic)
|
|
((work-bsp basic :offset-assert 4)
|
|
(length int32 :offset-assert 8)
|
|
(data memory-usage-info 112 :inline :offset-assert 16)
|
|
)
|
|
:method-count-assert 12
|
|
:size-assert #x710
|
|
:flag-assert #xc00000710
|
|
(:methods
|
|
(reset! (_type_) _type_ 9)
|
|
(calculate-total (_type_) int 10)
|
|
(print-mem-usage (_type_ level object) _type_ 11)
|
|
)
|
|
)
|
|
|
|
|
|
(define *mem-usage* (new 'debug 'memory-usage-block))
|
|
|
|
(define *dma-mem-usage* (new 'debug 'memory-usage-block))
|
|
|
|
(define *temp-mem-usage* (the-as memory-usage-block #f))
|
|
|
|
|
|
|