mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
water111
b2ed9313bd
* decompile 90% of shrubbery * some more progress * some more * big function decompiled * went through `draw-prototype-inline-array-shrub` and made more notes * shrub: start implementing extract_shrub * read through current notes and add the info to current decomp * decomp: allow skipping inline-asm from output * add code to BspHeader to get GOAL types for shrubs * add doc * wip * fix bad merge Co-authored-by: Tyler Wilding <xtvaser@gmail.com> Co-authored-by: Tyler Wilding <xTVaser@users.noreply.github.com>
396 lines
17 KiB
Common Lisp
Vendored
Generated
396 lines
17 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for symbol *background-work*, type background-work
|
|
(define *background-work* (new 'global 'background-work))
|
|
|
|
;; definition for symbol background-vu0-block, type vu-function
|
|
(define background-vu0-block (new 'static 'vu-function :length 59 :qlength 30))
|
|
|
|
;; definition for function background-upload-vu0
|
|
;; ERROR: function was not converted to expressions. Cannot decompile.
|
|
|
|
;; definition for function init-background
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun init-background ()
|
|
(dotimes (v1-0 8)
|
|
(set! (-> *background-work* tfrag-trees v1-0) #f)
|
|
(set! (-> *background-work* trans-tfrag-trees v1-0) #f)
|
|
(set! (-> *background-work* dirt-tfrag-trees v1-0) #f)
|
|
(set! (-> *background-work* ice-tfrag-trees v1-0) #f)
|
|
(set! (-> *background-work* lowres-tfrag-trees v1-0) #f)
|
|
(set! (-> *background-work* lowres-trans-tfrag-trees v1-0) #f)
|
|
)
|
|
(set! (-> *background-work* tfrag-tree-count) 0)
|
|
(set! (-> *background-work* trans-tfrag-tree-count) 0)
|
|
(set! (-> *background-work* dirt-tfrag-tree-count) 0)
|
|
(set! (-> *background-work* ice-tfrag-tree-count) 0)
|
|
(set! (-> *background-work* lowres-tfrag-tree-count) 0)
|
|
(set! (-> *background-work* lowres-trans-tfrag-tree-count) 0)
|
|
(set! (-> *background-work* shrub-tree-count) 0)
|
|
(set! (-> *background-work* tie-tree-count) 0)
|
|
(set! (-> *background-work* wait-to-vu0) (the-as uint 0))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function upload-vis-bits
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun upload-vis-bits ((arg0 level) (arg1 level) (arg2 bsp-header))
|
|
(let ((qwc (/ (+ (-> arg2 visible-list-length) 15) 16)))
|
|
(let ((lev-vis-bits (the-as (pointer uint128) (-> arg0 vis-bits)))
|
|
(all-vis (the-as (pointer uint128) (-> arg2 all-visible-list)))
|
|
(spad-vis (the-as (pointer uint128) (+ #x38b0 #x70000000)))
|
|
)
|
|
(b! (not *artist-flip-visible*) cfg-5 :delay (nop!))
|
|
(nop!)
|
|
(nop!)
|
|
(label cfg-2)
|
|
(let ((a3-2 (-> lev-vis-bits 0)))
|
|
(set! lev-vis-bits (&-> lev-vis-bits 1))
|
|
(let ((t0-0 (-> all-vis 0)))
|
|
(set! all-vis (&-> all-vis 1))
|
|
(nop!)
|
|
(nop!)
|
|
(let ((a3-3 (logxor a3-2 (the-as uint t0-0))))
|
|
(+! qwc -1)
|
|
(set! (-> spad-vis 0) a3-3)
|
|
)
|
|
)
|
|
)
|
|
(set! spad-vis (&-> spad-vis 1))
|
|
(b! (> qwc 0) cfg-2 :delay (nop!))
|
|
0
|
|
(b! #t cfg-8 :delay (nop!))
|
|
(nop!)
|
|
(label cfg-5)
|
|
(nop!)
|
|
(nop!)
|
|
(label cfg-6)
|
|
(let ((a1-2 (-> lev-vis-bits 0)))
|
|
(set! lev-vis-bits (&-> lev-vis-bits 1))
|
|
(nop!)
|
|
(+! qwc -1)
|
|
(set! (-> spad-vis 0) a1-2)
|
|
)
|
|
(set! spad-vis (&-> spad-vis 1))
|
|
)
|
|
(b! (> qwc 0) cfg-6 :delay (nop!))
|
|
)
|
|
0
|
|
(label cfg-8)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function finish-background
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun finish-background ()
|
|
(rlet ((vf16 :class vf)
|
|
(vf17 :class vf)
|
|
(vf18 :class vf)
|
|
(vf19 :class vf)
|
|
(vf20 :class vf)
|
|
(vf21 :class vf)
|
|
(vf22 :class vf)
|
|
(vf23 :class vf)
|
|
(vf24 :class vf)
|
|
(vf25 :class vf)
|
|
(vf26 :class vf)
|
|
(vf27 :class vf)
|
|
(vf28 :class vf)
|
|
(vf29 :class vf)
|
|
(vf30 :class vf)
|
|
(vf31 :class vf)
|
|
)
|
|
(background-upload-vu0)
|
|
(set! (-> *instance-shrub-work* paused) (paused?))
|
|
(when (nonzero? (-> *background-work* shrub-tree-count))
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
|
)
|
|
)
|
|
(dotimes (gp-0 (-> *background-work* shrub-tree-count))
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> *background-work* shrub-levels gp-0 index))
|
|
(flush-cache 0)
|
|
(let ((s5-0 (-> *background-work* shrub-trees gp-0))
|
|
(s4-0 (-> *background-work* shrub-levels gp-0))
|
|
)
|
|
(if (nonzero? (-> s5-0 colors-added))
|
|
(time-of-day-interp-colors
|
|
(-> *instance-shrub-work* colors)
|
|
(the-as uint (-> s5-0 colors-added))
|
|
(-> s4-0 mood)
|
|
)
|
|
)
|
|
(draw-drawable-tree-instance-shrub s5-0 s4-0)
|
|
)
|
|
)
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :g #x60 :b #x80 :a #x80)
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (the-as level #f)))
|
|
(when (or (nonzero? (-> *background-work* tfrag-tree-count))
|
|
(nonzero? (-> *background-work* trans-tfrag-tree-count))
|
|
(nonzero? (-> *background-work* dirt-tfrag-tree-count))
|
|
(nonzero? (-> *background-work* ice-tfrag-tree-count))
|
|
(nonzero? (-> *background-work* lowres-tfrag-tree-count))
|
|
(nonzero? (-> *background-work* lowres-trans-tfrag-tree-count))
|
|
)
|
|
(let ((v1-48 *math-camera*))
|
|
(.lvf vf16 (&-> v1-48 plane 0 quad))
|
|
(.lvf vf17 (&-> v1-48 plane 1 quad))
|
|
(.lvf vf18 (&-> v1-48 plane 2 quad))
|
|
(.lvf vf19 (&-> v1-48 plane 3 quad))
|
|
(.lvf vf20 (&-> v1-48 shrub-mat vector 0 quad))
|
|
(.lvf vf21 (&-> v1-48 shrub-mat vector 1 quad))
|
|
(.lvf vf22 (&-> v1-48 shrub-mat vector 2 quad))
|
|
(.lvf vf23 (&-> v1-48 shrub-mat vector 3 quad))
|
|
(.lvf vf24 (&-> v1-48 camera-rot vector 0 quad))
|
|
(.lvf vf25 (&-> v1-48 camera-rot vector 1 quad))
|
|
(.lvf vf26 (&-> v1-48 camera-rot vector 2 quad))
|
|
(.lvf vf27 (&-> v1-48 camera-rot vector 3 quad))
|
|
(.lvf vf28 (&-> v1-48 camera-temp vector 0 quad))
|
|
(.lvf vf29 (&-> v1-48 camera-temp vector 1 quad))
|
|
(.lvf vf30 (&-> v1-48 camera-temp vector 2 quad))
|
|
(.lvf vf31 (&-> v1-48 camera-temp vector 3 quad))
|
|
(.lvf vf31 (&-> v1-48 camera-temp vector 3 quad))
|
|
)
|
|
(let* ((v1-52 (max (-> *background-work* tfrag-tree-count) (-> *background-work* trans-tfrag-tree-count)))
|
|
(s4-1 (the-as time-of-day-palette #f))
|
|
(s5-2 (max
|
|
(max v1-52 (-> *background-work* lowres-tfrag-tree-count))
|
|
(-> *background-work* lowres-trans-tfrag-tree-count)
|
|
)
|
|
)
|
|
)
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
|
)
|
|
)
|
|
(dotimes (s3-0 s5-2)
|
|
(let ((s2-0 (-> *background-work* tfrag-trees s3-0)))
|
|
(when s2-0
|
|
(let ((s1-0 (-> *background-work* tfrag-levels s3-0)))
|
|
(let ((a2-4 (-> s1-0 bsp))
|
|
(s0-0 (-> s2-0 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-0 gp-1 a2-4)
|
|
(when (not (or (zero? s0-0) (= s4-1 s0-0)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch
|
|
(the-as (pointer rgba) (+ 6160 (the-as int (the-as terrain-context #x70000000))))
|
|
s0-0
|
|
(-> s1-0 mood)
|
|
)
|
|
(set! s4-1 s0-0)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-0 index))
|
|
)
|
|
(set! (-> *tfrag-work* min-dist z) 4095996000.0)
|
|
(draw-drawable-tree-tfrag s2-0)
|
|
(set! (-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 0)
|
|
(-> *tfrag-work* min-dist z)
|
|
)
|
|
)
|
|
)
|
|
(let ((s2-1 (-> *background-work* trans-tfrag-trees s3-0)))
|
|
(when s2-1
|
|
(let ((s1-1 (-> *background-work* trans-tfrag-levels s3-0)))
|
|
(let ((a2-6 (-> s1-1 bsp))
|
|
(s0-1 (-> s2-1 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-1 gp-1 a2-6)
|
|
(when (not (or (zero? s0-1) (= s4-1 s0-1)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch (the-as (pointer rgba) (+ 6160 #x70000000)) s0-1 (-> s1-1 mood))
|
|
(set! s4-1 s0-1)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-1 index))
|
|
)
|
|
(set! (-> *tfrag-work* min-dist z) 4095996000.0)
|
|
(draw-drawable-tree-trans-tfrag s2-1)
|
|
(set! (-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(-> *tfrag-work* min-dist z)
|
|
)
|
|
)
|
|
)
|
|
(let ((s2-2 (-> *background-work* dirt-tfrag-trees s3-0)))
|
|
(when s2-2
|
|
(let ((s1-2 (-> *background-work* dirt-tfrag-levels s3-0)))
|
|
(let ((a2-8 (-> s1-2 bsp))
|
|
(s0-2 (-> s2-2 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-2 gp-1 a2-8)
|
|
(when (not (or (zero? s0-2) (= s4-1 s0-2)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch (the-as (pointer rgba) (+ 6160 #x70000000)) s0-2 (-> s1-2 mood))
|
|
(set! s4-1 s0-2)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-2 index))
|
|
)
|
|
(set! (-> *tfrag-work* min-dist z) 4095996000.0)
|
|
(draw-drawable-tree-dirt-tfrag s2-2)
|
|
(set! (-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(fmin
|
|
(-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(-> *tfrag-work* min-dist z)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s2-3 (-> *background-work* ice-tfrag-trees s3-0)))
|
|
(when s2-3
|
|
(let ((s1-3 (-> *background-work* ice-tfrag-levels s3-0)))
|
|
(let ((a2-10 (-> s1-3 bsp))
|
|
(s0-3 (-> s2-3 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-3 gp-1 a2-10)
|
|
(when (not (or (zero? s0-3) (= s4-1 s0-3)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch (the-as (pointer rgba) (+ 6160 #x70000000)) s0-3 (-> s1-3 mood))
|
|
(set! s4-1 s0-3)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-3 index))
|
|
)
|
|
(set! (-> *tfrag-work* min-dist z) 4095996000.0)
|
|
(draw-drawable-tree-ice-tfrag s2-3)
|
|
(set! (-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(fmin
|
|
(-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(-> *tfrag-work* min-dist z)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s2-4 (-> *background-work* lowres-tfrag-trees s3-0)))
|
|
(when s2-4
|
|
(let ((s1-4 (-> *background-work* lowres-tfrag-levels s3-0)))
|
|
(let ((a2-12 (-> s1-4 bsp))
|
|
(s0-4 (-> s2-4 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-4 gp-1 a2-12)
|
|
(when (not (or (zero? s0-4) (= s4-1 s0-4)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch (the-as (pointer rgba) (+ 6160 #x70000000)) s0-4 (-> s1-4 mood))
|
|
(set! s4-1 s0-4)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-4 index))
|
|
)
|
|
(draw-drawable-tree-tfrag s2-4)
|
|
)
|
|
)
|
|
(let ((s2-5 (-> *background-work* lowres-trans-tfrag-trees s3-0)))
|
|
(when s2-5
|
|
(let ((s1-5 (-> *background-work* lowres-trans-tfrag-levels s3-0)))
|
|
(let ((a2-14 (-> s1-5 bsp))
|
|
(s0-5 (-> s2-5 time-of-day-pal))
|
|
)
|
|
(upload-vis-bits s1-5 gp-1 a2-14)
|
|
(when (not (or (zero? s0-5) (= s4-1 s0-5)))
|
|
(flush-cache 0)
|
|
(time-of-day-interp-colors-scratch (the-as (pointer rgba) (+ 6160 #x70000000)) s0-5 (-> s1-5 mood))
|
|
(set! s4-1 s0-5)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s1-5 index))
|
|
)
|
|
(set! (-> *tfrag-work* min-dist z) 4095996000.0)
|
|
(draw-drawable-tree-trans-tfrag s2-5)
|
|
(set! (-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(fmin
|
|
(-> *level* level (-> (the-as terrain-context #x70000000) bsp lev-index) closest-object 3)
|
|
(-> *tfrag-work* min-dist z)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :g #x80 :b #x60 :a #x80)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *instance-tie-work* paused) (paused?))
|
|
(when (nonzero? (-> *background-work* tie-tree-count))
|
|
(tie-near-make-perspective-matrix (-> *instance-tie-work* tie-near-perspective-matrix))
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
|
)
|
|
)
|
|
(dotimes (s5-3 (-> *background-work* tie-tree-count))
|
|
(let ((s4-2 (-> *background-work* tie-levels s5-3)))
|
|
(let ((a2-18 (-> s4-2 bsp)))
|
|
(when (!= s4-2 gp-1)
|
|
(set! (-> *instance-tie-work* min-dist x) 4095996000.0)
|
|
(upload-vis-bits s4-2 gp-1 a2-18)
|
|
(set! gp-1 s4-2)
|
|
)
|
|
)
|
|
(set! (-> (the-as terrain-context #x70000000) bsp lev-index) (-> s4-2 index))
|
|
(set! (-> (the-as terrain-context #x70000000) bsp mood) (-> s4-2 mood))
|
|
(draw-drawable-tree-instance-tie (-> *background-work* tie-trees s5-3) s4-2)
|
|
)
|
|
(set! (-> *background-work* tie-generic s5-3) (the-as basic (-> *instance-tie-work* first-generic-prototype)))
|
|
)
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x80 :g #x20 :b #x60 :a #x80)
|
|
)
|
|
)
|
|
(dotimes (gp-2 (-> *background-work* tie-tree-count))
|
|
(when (nonzero? (-> *background-work* tie-generic gp-2))
|
|
(let* ((s5-4 (-> *background-work* tie-levels gp-2 foreground-sink-group 0 generic-sink))
|
|
(s3-1 (-> *display* frames (-> *display* on-screen) frame global-buf))
|
|
(s4-3 (-> s3-1 base))
|
|
)
|
|
(generic-tie-execute s5-4 s3-1 (-> *background-work* tie-generic gp-2))
|
|
(let ((a3-0 (-> s3-1 base)))
|
|
(let ((v1-219 (the-as object (-> s3-1 base))))
|
|
(set! (-> (the-as dma-packet v1-219) dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> (the-as dma-packet v1-219) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet v1-219) vif1) (new 'static 'vif-tag))
|
|
(set! (-> s3-1 base) (&+ (the-as pointer v1-219) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
(-> s5-4 bucket)
|
|
s4-3
|
|
(the-as (pointer dma-tag) a3-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|