mirror of
https://github.com/open-goal/jak-project
synced 2026-08-01 16:29:37 -04:00
ManDude
ebd8643d28
Changes the DGO build order so that the city gets compiled first, and a random guess at an "order" of which levels people might edit more often. Most of the data-only borrow files are moved to the end as well. Also moves around files in the `goal_src` tree to a structure that makes a bit more sense, some files were either in the completely wrong place, their folders had strange names, were too deep for no reason or were just too far away from other relevant files. This structure should make it easier to guess a file's location.
2176 lines
94 KiB
Common Lisp
2176 lines
94 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: tie-methods.gc
|
|
;; name in dgo: tie-methods
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype tie-debug (structure)
|
|
((max-instance uint32 :offset-assert 0)
|
|
(min-instance uint32 :offset-assert 4)
|
|
(test-fragment uint32 :offset-assert 8)
|
|
(frag-count uint32 :offset-assert 12)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
(define *tie* (new 'global 'tie-debug))
|
|
|
|
(defun tie-debug-between ((arg0 uint) (arg1 uint))
|
|
(set! (-> *instance-tie-work* test-id) arg1)
|
|
(set! (-> *instance-tie-work* test-id2) arg0)
|
|
arg0
|
|
)
|
|
|
|
(defun tie-debug-one ((arg0 uint) (arg1 uint))
|
|
(set! (-> *instance-tie-work* test-id) (+ arg1 -1 arg0))
|
|
(set! (-> *instance-tie-work* test-id2) arg0)
|
|
arg0
|
|
)
|
|
|
|
(defun tie-debug-frag-between ((arg0 uint) (arg1 uint))
|
|
(set! (-> *tie* test-fragment) arg0)
|
|
(let ((v0-0 (- arg1 arg0)))
|
|
(set! (-> *tie* frag-count) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
|
|
(defun tie-debug-frag-one ((arg0 uint) (arg1 uint))
|
|
(set! (-> *tie* test-fragment) arg0)
|
|
(set! (-> *tie* frag-count) arg1)
|
|
arg1
|
|
)
|
|
|
|
(defun walk-tie-generic-prototypes ()
|
|
(none)
|
|
)
|
|
|
|
(define *pke-hack* (new 'global 'vector))
|
|
|
|
;; definition for function draw-inline-array-instance-tie
|
|
;; ERROR: function was not converted to expressions. Cannot decompile.
|
|
|
|
;; definition for function draw-inline-array-prototype-tie-asm
|
|
;; ERROR: function was not converted to expressions. Cannot decompile.
|
|
|
|
(defun pc-add-tie-vis-mask ((lev level) (dma-buf dma-buffer))
|
|
"Add data so Tie3.cpp can hide protos."
|
|
(let ((packet (the-as dma-packet (-> dma-buf base))))
|
|
(set! (-> packet vif0) (new 'static 'vif-tag))
|
|
(set! (-> packet vif1) (new 'static 'vif-tag :cmd (vif-cmd pc-port)))
|
|
(set! (-> dma-buf base) (the pointer (&+ packet 16)))
|
|
|
|
(let ((lev-trees (-> lev bsp drawable-trees))
|
|
(data-ptr (the (pointer uint8) (-> dma-buf base)))
|
|
)
|
|
(dotimes (tree-idx (-> lev-trees length))
|
|
(let ((tree (-> lev-trees data tree-idx)))
|
|
(when (= (-> tree type) drawable-tree-instance-tie)
|
|
(let* ((tie-tree (the drawable-tree-instance-tie tree))
|
|
(protos (-> tie-tree prototypes prototype-array-tie))
|
|
)
|
|
(dotimes (i (-> protos length))
|
|
(let ((proto (-> protos array-data i)))
|
|
(when (logtest? (-> proto flags) (prototype-flags visible))
|
|
;; invisible!
|
|
;(format 0 "invis: ~A~%" (-> proto name))
|
|
(let ((src (-> proto name data)))
|
|
(while (nonzero? (-> src))
|
|
(set! (-> data-ptr) (-> src))
|
|
(&+! src 1)
|
|
(&+! data-ptr 1)
|
|
)
|
|
(set! (-> data-ptr) 0)
|
|
(&+! data-ptr 1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
;; align
|
|
(while (nonzero? (logand data-ptr #xf))
|
|
(set! (-> data-ptr) 0)
|
|
(&+! data-ptr 1)
|
|
)
|
|
(set! (-> packet dma) (new 'static 'dma-tag
|
|
:id (dma-tag-id cnt)
|
|
:qwc (/ (&- data-ptr (-> dma-buf base)) 16))
|
|
)
|
|
(set! (-> dma-buf base) data-ptr)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun pc-add-tie-envmap-info ((dma-buf dma-buffer))
|
|
(let ((packet (the-as dma-packet (-> dma-buf base))))
|
|
(set! (-> packet dma) (new 'static 'dma-tag :id (dma-tag-id cnt) :qwc 1))
|
|
(set! (-> packet vif0) (new 'static 'vif-tag))
|
|
(set! (-> packet vif1) (new 'static 'vif-tag :cmd (vif-cmd pc-port)))
|
|
(set! (-> dma-buf base) (the pointer (&+ packet 16)))
|
|
(set! (-> (the (pointer uint128) (-> dma-buf base)))
|
|
(if (and *time-of-day-context*
|
|
(nonzero? *time-of-day-context*))
|
|
(-> *time-of-day-context* current-env-color quad)
|
|
(the uint128 0)
|
|
)
|
|
)
|
|
(set! (-> dma-buf base) (the pointer (&+ packet 32)))
|
|
)
|
|
)
|
|
|
|
(defun instance-tie-patch-buckets ((arg0 dma-buffer) (arg1 level))
|
|
; (when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie))
|
|
; (when (nonzero? (-> *prototype-tie-work* scissor-count))
|
|
; (let ((s5-0 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-17 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-0 (-> v1-17 base))
|
|
; )
|
|
; (let ((a1-1 (-> v1-17 base))
|
|
; (a0-5 (the-as object (-> *prototype-tie-work* scissor-last)))
|
|
; )
|
|
; (let ((a3-1 (-> *prototype-tie-work* scissor-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-1)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-1))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-1)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-1) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-5
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-5) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-1 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-5) a1-5)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-17 base) 16)
|
|
; (let ((a3-7 (-> v1-17 base)))
|
|
; (let ((a0-8 (the-as dma-packet (-> v1-17 base))))
|
|
; (set! (-> a0-8 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
; (set! (-> a0-8 vif0) (new 'static 'vif-tag))
|
|
; (set! (-> a0-8 vif1) (new 'static 'vif-tag))
|
|
; (set! (-> v1-17 base) (the-as pointer (&+ a0-8 16)))
|
|
; )
|
|
; (let ((t9-0 dma-bucket-insert-tag)
|
|
; (a0-11 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-23 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-0
|
|
; a0-11
|
|
; (cond
|
|
; ((zero? v1-23)
|
|
; (bucket-id tie-s-l0-tfrag)
|
|
; )
|
|
; ((= v1-23 1)
|
|
; (bucket-id tie-s-l1-tfrag)
|
|
; )
|
|
; ((= v1-23 2)
|
|
; (bucket-id tie-s-l2-tfrag)
|
|
; )
|
|
; ((= v1-23 3)
|
|
; (bucket-id tie-s-l3-tfrag)
|
|
; )
|
|
; ((= v1-23 4)
|
|
; (bucket-id tie-s-l4-tfrag)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-s-l5-tfrag)
|
|
; )
|
|
; )
|
|
; a2-0
|
|
; (the-as (pointer dma-tag) a3-7)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-24 *dma-mem-usage*))
|
|
; (when (nonzero? v1-24)
|
|
; (set! (-> v1-24 length) (max 16 (-> v1-24 length)))
|
|
; (set! (-> v1-24 data 15 name) "tie-scissor")
|
|
; (+! (-> v1-24 data 15 count) 1)
|
|
; (+! (-> v1-24 data 15 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-0))
|
|
; )
|
|
; (set! (-> v1-24 data 15 total) (-> v1-24 data 15 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-envmap))
|
|
;(when (nonzero? (-> *prototype-tie-work* tie-count))
|
|
(let ((s5-1 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
(let* ((v1-42 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(a2-10 (-> v1-42 base))
|
|
)
|
|
; (let ((a1-21 (-> v1-42 base))
|
|
; (a0-17 (the-as object (-> *prototype-tie-work* tie-last)))
|
|
; )
|
|
; (let ((a3-10 (-> *prototype-tie-work* tie-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-21)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-21))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-21)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-10) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-25
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-17) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-21 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-17) a1-25)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-42 base) 16)
|
|
(add-pc-tfrag3-data v1-42 arg1)
|
|
(pc-add-tie-vis-mask arg1 v1-42)
|
|
(pc-add-tie-envmap-info v1-42)
|
|
(let ((a3-16 (-> v1-42 base)))
|
|
(let ((a0-20 (the-as dma-packet (-> v1-42 base))))
|
|
(set! (-> a0-20 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> a0-20 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a0-20 vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-42 base) (the-as pointer (&+ a0-20 16)))
|
|
)
|
|
(let ((t9-1 dma-bucket-insert-tag)
|
|
(a0-23 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
(v1-48 (-> arg1 draw-index))
|
|
)
|
|
(t9-1
|
|
a0-23
|
|
(cond
|
|
((zero? v1-48)
|
|
(bucket-id tie-l0-tfrag)
|
|
)
|
|
((= v1-48 1)
|
|
(bucket-id tie-l1-tfrag)
|
|
)
|
|
((= v1-48 2)
|
|
(bucket-id tie-l2-tfrag)
|
|
)
|
|
((= v1-48 3)
|
|
(bucket-id tie-l3-tfrag)
|
|
)
|
|
((= v1-48 4)
|
|
(bucket-id tie-l4-tfrag)
|
|
)
|
|
(else
|
|
(bucket-id tie-l5-tfrag)
|
|
)
|
|
)
|
|
a2-10
|
|
(the-as (pointer dma-tag) a3-16)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-49 *dma-mem-usage*))
|
|
(when (nonzero? v1-49)
|
|
(set! (-> v1-49 length) (max 10 (-> v1-49 length)))
|
|
(set! (-> v1-49 data 9 name) "tie-fragment")
|
|
(+! (-> v1-49 data 9 count) 1)
|
|
(+! (-> v1-49 data 9 used)
|
|
(&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-1))
|
|
)
|
|
(set! (-> v1-49 data 9 total) (-> v1-49 data 9 used))
|
|
)
|
|
)
|
|
;)
|
|
)
|
|
)
|
|
; (when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-scissor))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-count))
|
|
; (let ((s5-2 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-67 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-20 (-> v1-67 base))
|
|
; )
|
|
; (let ((a1-41 (-> v1-67 base))
|
|
; (a0-29 (the-as object (-> *prototype-tie-work* envmap-last)))
|
|
; )
|
|
; (let ((a3-19 (-> *prototype-tie-work* envmap-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-41)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-41))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-41)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-19) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-45
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-29) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-41 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-29) a1-45)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-67 base) 16)
|
|
; (let ((a3-25 (-> v1-67 base)))
|
|
; (let ((a0-32 (-> v1-67 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-32)) #x20000000)
|
|
; (s.w! (+ a0-32 8) 0)
|
|
; (s.w! (+ a0-32 12) 0)
|
|
; (set! (-> v1-67 base) (&+ a0-32 16))
|
|
; )
|
|
; (let ((t9-2 dma-bucket-insert-tag)
|
|
; (a0-35 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-73 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-2
|
|
; a0-35
|
|
; (cond
|
|
; ((zero? v1-73)
|
|
; (bucket-id etie-l0-tfrag)
|
|
; )
|
|
; ((= v1-73 1)
|
|
; (bucket-id etie-l1-tfrag)
|
|
; )
|
|
; ((= v1-73 2)
|
|
; (bucket-id etie-l2-tfrag)
|
|
; )
|
|
; ((= v1-73 3)
|
|
; (bucket-id etie-l3-tfrag)
|
|
; )
|
|
; ((= v1-73 4)
|
|
; (bucket-id etie-l4-tfrag)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-l5-tfrag)
|
|
; )
|
|
; )
|
|
; a2-20
|
|
; (the-as (pointer dma-tag) a3-25)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-74 *dma-mem-usage*))
|
|
; (when (nonzero? v1-74)
|
|
; (set! (-> v1-74 length) (max 10 (-> v1-74 length)))
|
|
; (set! (-> v1-74 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-74 data 9 count) 1)
|
|
; (+! (-> v1-74 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-2))
|
|
; )
|
|
; (set! (-> v1-74 data 9 total) (-> v1-74 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-envmap-scissor))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-scissor-count))
|
|
; (let ((s5-3 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-92 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-30 (-> v1-92 base))
|
|
; )
|
|
; (let ((a1-61 (-> v1-92 base))
|
|
; (a0-41 (the-as object (-> *prototype-tie-work* envmap-scissor-last)))
|
|
; )
|
|
; (let ((a3-28 (-> *prototype-tie-work* envmap-scissor-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-61)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-61))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-61)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-28) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-65
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-41) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-61 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-41) a1-65)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-92 base) 16)
|
|
; (let ((a3-34 (-> v1-92 base)))
|
|
; (let ((a0-44 (-> v1-92 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-44)) #x20000000)
|
|
; (s.w! (+ a0-44 8) 0)
|
|
; (s.w! (+ a0-44 12) 0)
|
|
; (set! (-> v1-92 base) (&+ a0-44 16))
|
|
; )
|
|
; (let ((t9-3 dma-bucket-insert-tag)
|
|
; (a0-47 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-98 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-3
|
|
; a0-47
|
|
; (cond
|
|
; ((zero? v1-98)
|
|
; (bucket-id etie-s-l0-tfrag)
|
|
; )
|
|
; ((= v1-98 1)
|
|
; (bucket-id etie-s-l1-tfrag)
|
|
; )
|
|
; ((= v1-98 2)
|
|
; (bucket-id etie-s-l2-tfrag)
|
|
; )
|
|
; ((= v1-98 3)
|
|
; (bucket-id etie-s-l3-tfrag)
|
|
; )
|
|
; ((= v1-98 4)
|
|
; (bucket-id etie-s-l4-tfrag)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-s-l5-tfrag)
|
|
; )
|
|
; )
|
|
; a2-30
|
|
; (the-as (pointer dma-tag) a3-34)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-99 *dma-mem-usage*))
|
|
; (when (nonzero? v1-99)
|
|
; (set! (-> v1-99 length) (max 10 (-> v1-99 length)))
|
|
; (set! (-> v1-99 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-99 data 9 count) 1)
|
|
; (+! (-> v1-99 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-3))
|
|
; )
|
|
; (set! (-> v1-99 data 9 total) (-> v1-99 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-vanish))
|
|
; (when (nonzero? (-> *prototype-tie-work* vanish-count))
|
|
; (let ((s5-4 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-117 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-40 (-> v1-117 base))
|
|
; )
|
|
; (let ((a1-81 (-> v1-117 base))
|
|
; (a0-53 (the-as object (-> *prototype-tie-work* vanish-last)))
|
|
; )
|
|
; (let ((a3-37 (-> *prototype-tie-work* vanish-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-81)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-81))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-81)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-37) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-85
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-53) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-81 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-53) a1-85)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-117 base) 16)
|
|
; (let ((a3-43 (-> v1-117 base)))
|
|
; (let ((a0-56 (-> v1-117 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-56)) #x20000000)
|
|
; (s.w! (+ a0-56 8) 0)
|
|
; (s.w! (+ a0-56 12) 0)
|
|
; (set! (-> v1-117 base) (&+ a0-56 16))
|
|
; )
|
|
; (let ((t9-4 dma-bucket-insert-tag)
|
|
; (a0-59 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-123 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-4
|
|
; a0-59
|
|
; (cond
|
|
; ((zero? v1-123)
|
|
; (bucket-id tie-v-l0-tfrag)
|
|
; )
|
|
; ((= v1-123 1)
|
|
; (bucket-id tie-v-l1-tfrag)
|
|
; )
|
|
; ((= v1-123 2)
|
|
; (bucket-id tie-v-l2-tfrag)
|
|
; )
|
|
; ((= v1-123 3)
|
|
; (bucket-id tie-v-l3-tfrag)
|
|
; )
|
|
; ((= v1-123 4)
|
|
; (bucket-id tie-v-l4-tfrag)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-v-l5-tfrag)
|
|
; )
|
|
; )
|
|
; a2-40
|
|
; (the-as (pointer dma-tag) a3-43)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-124 *dma-mem-usage*))
|
|
; (when (nonzero? v1-124)
|
|
; (set! (-> v1-124 length) (max 10 (-> v1-124 length)))
|
|
; (set! (-> v1-124 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-124 data 9 count) 1)
|
|
; (+! (-> v1-124 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-4))
|
|
; )
|
|
; (set! (-> v1-124 data 9 total) (-> v1-124 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-scissor-trans) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* scissor-trans-count))
|
|
; (let ((s5-5 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-141 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-50 (-> v1-141 base))
|
|
; )
|
|
; (let ((a1-101 (-> v1-141 base))
|
|
; (a0-67 (the-as object (-> *prototype-tie-work* scissor-trans-last)))
|
|
; )
|
|
; (let ((a3-46 (-> *prototype-tie-work* scissor-trans-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-101)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-101))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-101)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-46) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-105
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-67) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-101 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-67) a1-105)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-141 base) 16)
|
|
; (let ((a3-52 (-> v1-141 base)))
|
|
; (let ((a0-70 (-> v1-141 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-70)) #x20000000)
|
|
; (s.w! (+ a0-70 8) 0)
|
|
; (s.w! (+ a0-70 12) 0)
|
|
; (set! (-> v1-141 base) (&+ a0-70 16))
|
|
; )
|
|
; (let ((t9-5 dma-bucket-insert-tag)
|
|
; (a0-73 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-147 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-5
|
|
; a0-73
|
|
; (cond
|
|
; ((zero? v1-147)
|
|
; (bucket-id tie-st-l0-alpha)
|
|
; )
|
|
; ((= v1-147 1)
|
|
; (bucket-id tie-st-l1-alpha)
|
|
; )
|
|
; ((= v1-147 2)
|
|
; (bucket-id tie-st-l2-alpha)
|
|
; )
|
|
; ((= v1-147 3)
|
|
; (bucket-id tie-st-l3-alpha)
|
|
; )
|
|
; ((= v1-147 4)
|
|
; (bucket-id tie-st-l4-alpha)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-st-l5-alpha)
|
|
; )
|
|
; )
|
|
; a2-50
|
|
; (the-as (pointer dma-tag) a3-52)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-148 *dma-mem-usage*))
|
|
; (when (nonzero? v1-148)
|
|
; (set! (-> v1-148 length) (max 16 (-> v1-148 length)))
|
|
; (set! (-> v1-148 data 15 name) "tie-scissor")
|
|
; (+! (-> v1-148 data 15 count) 1)
|
|
; (+! (-> v1-148 data 15 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-5))
|
|
; )
|
|
; (set! (-> v1-148 data 15 total) (-> v1-148 data 15 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-trans) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* trans-count))
|
|
; (let ((s5-6 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-165 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-60 (-> v1-165 base))
|
|
; )
|
|
; (let ((a1-121 (-> v1-165 base))
|
|
; (a0-81 (the-as object (-> *prototype-tie-work* trans-last)))
|
|
; )
|
|
; (let ((a3-55 (-> *prototype-tie-work* trans-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-121)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-121))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-121)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-55) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-125
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-81) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-121 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-81) a1-125)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-165 base) 16)
|
|
; (let ((a3-61 (-> v1-165 base)))
|
|
; (let ((a0-84 (-> v1-165 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-84)) #x20000000)
|
|
; (s.w! (+ a0-84 8) 0)
|
|
; (s.w! (+ a0-84 12) 0)
|
|
; (set! (-> v1-165 base) (&+ a0-84 16))
|
|
; )
|
|
; (let ((t9-6 dma-bucket-insert-tag)
|
|
; (a0-87 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-171 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-6
|
|
; a0-87
|
|
; (cond
|
|
; ((zero? v1-171)
|
|
; (bucket-id tie-t-l0-alpha)
|
|
; )
|
|
; ((= v1-171 1)
|
|
; (bucket-id tie-t-l1-alpha)
|
|
; )
|
|
; ((= v1-171 2)
|
|
; (bucket-id tie-t-l2-alpha)
|
|
; )
|
|
; ((= v1-171 3)
|
|
; (bucket-id tie-t-l3-alpha)
|
|
; )
|
|
; ((= v1-171 4)
|
|
; (bucket-id tie-t-l4-alpha)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-t-l5-alpha)
|
|
; )
|
|
; )
|
|
; a2-60
|
|
; (the-as (pointer dma-tag) a3-61)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-172 *dma-mem-usage*))
|
|
; (when (nonzero? v1-172)
|
|
; (set! (-> v1-172 length) (max 10 (-> v1-172 length)))
|
|
; (set! (-> v1-172 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-172 data 9 count) 1)
|
|
; (+! (-> v1-172 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-6))
|
|
; )
|
|
; (set! (-> v1-172 data 9 total) (-> v1-172 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-envmap-trans) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-trans-count))
|
|
; (let ((s5-7 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-189 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-70 (-> v1-189 base))
|
|
; )
|
|
; (let ((a1-141 (-> v1-189 base))
|
|
; (a0-95 (the-as object (-> *prototype-tie-work* envmap-trans-last)))
|
|
; )
|
|
; (let ((a3-64 (-> *prototype-tie-work* envmap-trans-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-141)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-141))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-141)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-64) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-145
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-95) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-141 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-95) a1-145)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-189 base) 16)
|
|
; (let ((a3-70 (-> v1-189 base)))
|
|
; (let ((a0-98 (-> v1-189 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-98)) #x20000000)
|
|
; (s.w! (+ a0-98 8) 0)
|
|
; (s.w! (+ a0-98 12) 0)
|
|
; (set! (-> v1-189 base) (&+ a0-98 16))
|
|
; )
|
|
; (let ((t9-7 dma-bucket-insert-tag)
|
|
; (a0-101 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-195 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-7
|
|
; a0-101
|
|
; (cond
|
|
; ((zero? v1-195)
|
|
; (bucket-id etie-t-l0-alpha)
|
|
; )
|
|
; ((= v1-195 1)
|
|
; (bucket-id etie-t-l1-alpha)
|
|
; )
|
|
; ((= v1-195 2)
|
|
; (bucket-id etie-t-l2-alpha)
|
|
; )
|
|
; ((= v1-195 3)
|
|
; (bucket-id etie-t-l3-alpha)
|
|
; )
|
|
; ((= v1-195 4)
|
|
; (bucket-id etie-t-l4-alpha)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-t-l5-alpha)
|
|
; )
|
|
; )
|
|
; a2-70
|
|
; (the-as (pointer dma-tag) a3-70)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-196 *dma-mem-usage*))
|
|
; (when (nonzero? v1-196)
|
|
; (set! (-> v1-196 length) (max 10 (-> v1-196 length)))
|
|
; (set! (-> v1-196 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-196 data 9 count) 1)
|
|
; (+! (-> v1-196 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-7))
|
|
; )
|
|
; (set! (-> v1-196 data 9 total) (-> v1-196 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-envmap-scissor-trans) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-scissor-trans-count))
|
|
; (let ((s5-8 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-213 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-80 (-> v1-213 base))
|
|
; )
|
|
; (let ((a1-161 (-> v1-213 base))
|
|
; (a0-109 (the-as object (-> *prototype-tie-work* envmap-scissor-trans-last)))
|
|
; )
|
|
; (let ((a3-73 (-> *prototype-tie-work* envmap-scissor-trans-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-161)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-161))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-161)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-73) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-165
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-109) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-161 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-109) a1-165)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-213 base) 16)
|
|
; (let ((a3-79 (-> v1-213 base)))
|
|
; (let ((a0-112 (-> v1-213 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-112)) #x20000000)
|
|
; (s.w! (+ a0-112 8) 0)
|
|
; (s.w! (+ a0-112 12) 0)
|
|
; (set! (-> v1-213 base) (&+ a0-112 16))
|
|
; )
|
|
; (let ((t9-8 dma-bucket-insert-tag)
|
|
; (a0-115 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-219 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-8
|
|
; a0-115
|
|
; (cond
|
|
; ((zero? v1-219)
|
|
; (bucket-id etie-st-l0-alpha)
|
|
; )
|
|
; ((= v1-219 1)
|
|
; (bucket-id etie-st-l1-alpha)
|
|
; )
|
|
; ((= v1-219 2)
|
|
; (bucket-id etie-st-l2-alpha)
|
|
; )
|
|
; ((= v1-219 3)
|
|
; (bucket-id etie-st-l3-alpha)
|
|
; )
|
|
; ((= v1-219 4)
|
|
; (bucket-id etie-st-l4-alpha)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-st-l5-alpha)
|
|
; )
|
|
; )
|
|
; a2-80
|
|
; (the-as (pointer dma-tag) a3-79)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-220 *dma-mem-usage*))
|
|
; (when (nonzero? v1-220)
|
|
; (set! (-> v1-220 length) (max 10 (-> v1-220 length)))
|
|
; (set! (-> v1-220 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-220 data 9 count) 1)
|
|
; (+! (-> v1-220 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-8))
|
|
; )
|
|
; (set! (-> v1-220 data 9 total) (-> v1-220 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-scissor-water) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* scissor-water-count))
|
|
; (let ((s5-9 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-237 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-90 (-> v1-237 base))
|
|
; )
|
|
; (let ((a1-181 (-> v1-237 base))
|
|
; (a0-123 (the-as object (-> *prototype-tie-work* scissor-water-last)))
|
|
; )
|
|
; (let ((a3-82 (-> *prototype-tie-work* scissor-water-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-181)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-181))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-181)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-82) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-185
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-123) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-181 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-123) a1-185)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-237 base) 16)
|
|
; (let ((a3-88 (-> v1-237 base)))
|
|
; (let ((a0-126 (-> v1-237 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-126)) #x20000000)
|
|
; (s.w! (+ a0-126 8) 0)
|
|
; (s.w! (+ a0-126 12) 0)
|
|
; (set! (-> v1-237 base) (&+ a0-126 16))
|
|
; )
|
|
; (let ((t9-9 dma-bucket-insert-tag)
|
|
; (a0-129 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-243 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-9
|
|
; a0-129
|
|
; (cond
|
|
; ((zero? v1-243)
|
|
; (bucket-id tie-sw-l0-water)
|
|
; )
|
|
; ((= v1-243 1)
|
|
; (bucket-id tie-sw-l1-water)
|
|
; )
|
|
; ((= v1-243 2)
|
|
; (bucket-id tie-sw-l2-water)
|
|
; )
|
|
; ((= v1-243 3)
|
|
; (bucket-id tie-sw-l3-water)
|
|
; )
|
|
; ((= v1-243 4)
|
|
; (bucket-id tie-sw-l4-water)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-sw-l5-water)
|
|
; )
|
|
; )
|
|
; a2-90
|
|
; (the-as (pointer dma-tag) a3-88)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-244 *dma-mem-usage*))
|
|
; (when (nonzero? v1-244)
|
|
; (set! (-> v1-244 length) (max 16 (-> v1-244 length)))
|
|
; (set! (-> v1-244 data 15 name) "tie-scissor")
|
|
; (+! (-> v1-244 data 15 count) 1)
|
|
; (+! (-> v1-244 data 15 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-9))
|
|
; )
|
|
; (set! (-> v1-244 data 15 total) (-> v1-244 data 15 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-water) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* water-count))
|
|
; (let ((s5-10 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-261 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-100 (-> v1-261 base))
|
|
; )
|
|
; (let ((a1-201 (-> v1-261 base))
|
|
; (a0-137 (the-as object (-> *prototype-tie-work* water-last)))
|
|
; )
|
|
; (let ((a3-91 (-> *prototype-tie-work* water-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-201)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-201))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-201)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-91) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-205
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-137) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-201 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-137) a1-205)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-261 base) 16)
|
|
; (let ((a3-97 (-> v1-261 base)))
|
|
; (let ((a0-140 (-> v1-261 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-140)) #x20000000)
|
|
; (s.w! (+ a0-140 8) 0)
|
|
; (s.w! (+ a0-140 12) 0)
|
|
; (set! (-> v1-261 base) (&+ a0-140 16))
|
|
; )
|
|
; (let ((t9-10 dma-bucket-insert-tag)
|
|
; (a0-143 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-267 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-10
|
|
; a0-143
|
|
; (cond
|
|
; ((zero? v1-267)
|
|
; (bucket-id tie-w-l0-water)
|
|
; )
|
|
; ((= v1-267 1)
|
|
; (bucket-id tie-w-l1-water)
|
|
; )
|
|
; ((= v1-267 2)
|
|
; (bucket-id tie-w-l2-water)
|
|
; )
|
|
; ((= v1-267 3)
|
|
; (bucket-id tie-w-l3-water)
|
|
; )
|
|
; ((= v1-267 4)
|
|
; (bucket-id tie-w-l4-water)
|
|
; )
|
|
; (else
|
|
; (bucket-id tie-w-l5-water)
|
|
; )
|
|
; )
|
|
; a2-100
|
|
; (the-as (pointer dma-tag) a3-97)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-268 *dma-mem-usage*))
|
|
; (when (nonzero? v1-268)
|
|
; (set! (-> v1-268 length) (max 10 (-> v1-268 length)))
|
|
; (set! (-> v1-268 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-268 data 9 count) 1)
|
|
; (+! (-> v1-268 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-10))
|
|
; )
|
|
; (set! (-> v1-268 data 9 total) (-> v1-268 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (when (logtest? (vu1-renderer-mask tie-envmap-water) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-water-count))
|
|
; (let ((s5-11 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
; (let* ((v1-285 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-110 (-> v1-285 base))
|
|
; )
|
|
; (let ((a1-221 (-> v1-285 base))
|
|
; (a0-151 (the-as object (-> *prototype-tie-work* envmap-water-last)))
|
|
; )
|
|
; (let ((a3-100 (-> *prototype-tie-work* envmap-water-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-221)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-221))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-221)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-100) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-225
|
|
; (logior (logand (-> (the-as (pointer uint64) a0-151) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-221 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-151) a1-225)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-285 base) 16)
|
|
; (let ((a3-106 (-> v1-285 base)))
|
|
; (let ((a0-154 (-> v1-285 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-154)) #x20000000)
|
|
; (s.w! (+ a0-154 8) 0)
|
|
; (s.w! (+ a0-154 12) 0)
|
|
; (set! (-> v1-285 base) (&+ a0-154 16))
|
|
; )
|
|
; (let ((t9-11 dma-bucket-insert-tag)
|
|
; (a0-157 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-291 (-> arg1 draw-index))
|
|
; )
|
|
; (t9-11
|
|
; a0-157
|
|
; (cond
|
|
; ((zero? v1-291)
|
|
; (bucket-id etie-w-l0-water)
|
|
; )
|
|
; ((= v1-291 1)
|
|
; (bucket-id etie-w-l1-water)
|
|
; )
|
|
; ((= v1-291 2)
|
|
; (bucket-id etie-w-l2-water)
|
|
; )
|
|
; ((= v1-291 3)
|
|
; (bucket-id etie-w-l3-water)
|
|
; )
|
|
; ((= v1-291 4)
|
|
; (bucket-id etie-w-l4-water)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-w-l5-water)
|
|
; )
|
|
; )
|
|
; a2-110
|
|
; (the-as (pointer dma-tag) a3-106)
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-292 *dma-mem-usage*))
|
|
; (when (nonzero? v1-292)
|
|
; (set! (-> v1-292 length) (max 10 (-> v1-292 length)))
|
|
; (set! (-> v1-292 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-292 data 9 count) 1)
|
|
; (+! (-> v1-292 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-11))
|
|
; )
|
|
; (set! (-> v1-292 data 9 total) (-> v1-292 data 9 used))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; (the-as
|
|
; object
|
|
; (when (logtest? (vu1-renderer-mask tie-envmap-scissor-water) (-> *display* vu1-enable-user))
|
|
; (when (nonzero? (-> *prototype-tie-work* envmap-scissor-water-count))
|
|
; (let* ((s5-12 (-> *display* frames (-> *display* on-screen) global-buf base))
|
|
; (v1-308 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (a2-120 (-> v1-308 base))
|
|
; )
|
|
; (let ((a1-241 (-> v1-308 base))
|
|
; (a0-164 (the-as object (-> *prototype-tie-work* envmap-scissor-water-last)))
|
|
; )
|
|
; (let ((a3-109 (-> *prototype-tie-work* envmap-scissor-water-next)))
|
|
; (set! (-> (the-as (pointer uint128) a1-241)) (-> *prototype-tie-work* model-next quad))
|
|
; (set! (-> (the-as (pointer uint64) a1-241))
|
|
; (logior (logand (-> (the-as (pointer uint64) a1-241)) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int a3-109) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((a1-245 (logior (logand (-> (the-as (pointer uint64) a0-164) 0) (the-as uint #x80000000ffffffff))
|
|
; (shr (shl (the-as int (&+ a1-241 16)) 33) 1)
|
|
; )
|
|
; )
|
|
; )
|
|
; (s.d! (the-as uint32 a0-164) a1-245)
|
|
; )
|
|
; )
|
|
; (&+! (-> v1-308 base) 16)
|
|
; (let ((a3-115 (-> v1-308 base)))
|
|
; (let ((a0-167 (-> v1-308 base)))
|
|
; (set! (-> (the-as (pointer int64) a0-167)) #x20000000)
|
|
; (s.w! (+ a0-167 8) 0)
|
|
; (s.w! (+ a0-167 12) 0)
|
|
; (set! (-> v1-308 base) (&+ a0-167 16))
|
|
; )
|
|
; (let* ((t9-12 dma-bucket-insert-tag)
|
|
; (a0-170 (-> *display* frames (-> *display* on-screen) bucket-group))
|
|
; (v1-314 (-> arg1 draw-index))
|
|
; (v0-12 (t9-12
|
|
; a0-170
|
|
; (cond
|
|
; ((zero? v1-314)
|
|
; (bucket-id etie-sw-l0-water)
|
|
; )
|
|
; ((= v1-314 1)
|
|
; (bucket-id etie-sw-l1-water)
|
|
; )
|
|
; ((= v1-314 2)
|
|
; (bucket-id tie-esw-l2-water)
|
|
; )
|
|
; ((= v1-314 3)
|
|
; (bucket-id etie-sw-l3-water)
|
|
; )
|
|
; ((= v1-314 4)
|
|
; (bucket-id etie-sw-l4-water)
|
|
; )
|
|
; (else
|
|
; (bucket-id etie-sw-l5-water)
|
|
; )
|
|
; )
|
|
; a2-120
|
|
; (the-as (pointer dma-tag) a3-115)
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((v1-315 *dma-mem-usage*))
|
|
; (when (nonzero? v1-315)
|
|
; (set! (-> v1-315 length) (max 10 (-> v1-315 length)))
|
|
; (set! (-> v1-315 data 9 name) "tie-fragment")
|
|
; (+! (-> v1-315 data 9 count) 1)
|
|
; (+! (-> v1-315 data 9 used)
|
|
; (&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s5-12))
|
|
; )
|
|
; (set! (-> v1-315 data 9 total) (-> v1-315 data 9 used))
|
|
; )
|
|
; )
|
|
; v0-12
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
(the object #f)
|
|
)
|
|
|
|
|
|
(defun draw-drawable-tree-instance-tie ((arg0 drawable-tree-instance-tie) (arg1 level))
|
|
(local-vars (v0-9 object) (a0-42 int) (a0-44 int) (a0-55 int) (a0-57 int) (sv-16 int))
|
|
(when (logtest? (vu1-renderer-mask
|
|
tie
|
|
tie-envmap
|
|
tie-scissor
|
|
tie-envmap-scissor
|
|
tie-vanish
|
|
generic
|
|
tie-scissor-trans
|
|
tie-trans
|
|
tie-envmap-trans
|
|
tie-envmap-scissor-trans
|
|
)
|
|
(-> *display* vu1-enable-user)
|
|
)
|
|
(set! (-> *instance-tie-work* wind-vectors) (-> arg0 prototypes wind-vectors))
|
|
(let ((s5-0 (+ (-> arg0 length) -1)))
|
|
(when (nonzero? s5-0)
|
|
; (dotimes (s4-0 s5-0)
|
|
; (let* ((v1-9 (-> arg0 data s4-0))
|
|
; (a0-7 (-> arg0 data (+ s4-0 1)))
|
|
; (a1-2 (/ (-> (the-as drawable-inline-array-node v1-9) data 0 id) 8))
|
|
; (a0-9 (/ (-> (the-as drawable-inline-array-node a0-7) data 0 id) 8))
|
|
; (a1-4 (+ a1-2 #x38a0 #x70000000))
|
|
; (a0-11 (+ a0-9 #x38a0 #x70000000))
|
|
; )
|
|
; (draw-node-cull
|
|
; (the-as pointer a0-11)
|
|
; (the-as pointer a1-4)
|
|
; (-> (the-as drawable-inline-array-node v1-9) data)
|
|
; (-> (the-as drawable-inline-array-node v1-9) length)
|
|
; )
|
|
; )
|
|
; )
|
|
)
|
|
(let* ((s2-0 (-> arg0 data s5-0))
|
|
(s3-0 (-> arg0 prototypes prototype-array-tie))
|
|
(s4-1 (-> s3-0 length))
|
|
(s5-1 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(s0-0 (-> s5-1 base))
|
|
(s1-1 (&- (-> s5-1 end) (the-as uint (* (-> arg0 prototypes prototype-max-qwc) 16))))
|
|
)
|
|
(when *debug-segment*
|
|
(if (>= (the-as uint s0-0) (the-as uint s1-1))
|
|
(format *stdcon* "out of tie memory~%")
|
|
)
|
|
)
|
|
(when (< (the-as uint s0-0) (the-as uint s1-1))
|
|
(set! (-> *instance-tie-work* buffer-start) (the-as uint (-> s5-1 base)))
|
|
(set! (-> *instance-tie-work* buffer-end) (the-as uint s1-1))
|
|
(dotimes (v1-28 16)
|
|
(set! (-> *prototype-tie-work* last v1-28) (the-as uint 0))
|
|
(set! (-> *prototype-tie-work* next v1-28) (the-as uint 0))
|
|
(set! (-> *prototype-tie-work* count v1-28) (the-as uint 0))
|
|
)
|
|
(dotimes (v1-31 s4-1)
|
|
(let ((a0-26 (-> s3-0 array-data v1-31)))
|
|
(dotimes (a1-9 3)
|
|
(set! (-> a0-26 next-clear a1-9) (the-as uint128 0))
|
|
(set! (-> a0-26 count-clear a1-9) (the-as uint 0))
|
|
)
|
|
)
|
|
)
|
|
(let* ((s1-2 (&+ s2-0 32))
|
|
(s0-1 (+ (/ (-> s1-2 id) 8) #x38a0 #x70000000))
|
|
)
|
|
(set! sv-16 (-> (the-as drawable-inline-array-instance-tie s2-0) length))
|
|
(when (nonzero? sv-16)
|
|
(let* ((v1-41 (logand (the-as int *gsf-buffer*) 8191))
|
|
(v1-43
|
|
(the-as
|
|
object
|
|
(logand (the-as int (&- (logand (the-as int (&-> (-> s3-0 data) -640)) 8191) (the-as uint v1-41))) 8191)
|
|
)
|
|
)
|
|
)
|
|
(set! *instance-tie-work-copy* (the-as instance-tie-work (+ (the-as int *gsf-buffer*) (the-as int v1-43))))
|
|
)
|
|
(quad-copy! (the-as pointer *instance-tie-work-copy*) (the-as pointer *instance-tie-work*) 35)
|
|
(let ((s2-1 (-> *display* frames (-> *display* on-screen) global-buf base)))
|
|
(set! (-> *instance-tie-work-copy* wait-to-spr) (the-as uint 0))
|
|
(set! (-> *instance-tie-work-copy* wait-from-spr) (the-as uint 0))
|
|
(set! (-> *instance-tie-work-copy* tfrag-dists) (the-as uint (-> arg1 bsp tfrag-closest)))
|
|
(set! (-> *instance-tie-work-copy* alpha-dists) (the-as uint (-> arg1 bsp alpha-closest)))
|
|
(set! (-> *instance-tie-work-copy* water-dists) (the-as uint (-> arg1 bsp water-closest)))
|
|
; (let* ((v1-61 (-> *perf-stats* data 46))
|
|
; (a0-39 (-> v1-61 ctrl))
|
|
; )
|
|
; (+! (-> v1-61 count) 1)
|
|
; (b! (zero? a0-39) cfg-23 :delay (nop!))
|
|
; (.mtc0 Perf r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mtpc pcr0 r0)
|
|
; (.mtpc pcr1 r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mtc0 Perf a0-39)
|
|
; )
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (label cfg-23)
|
|
; 0
|
|
; (let ((t9-3 draw-inline-array-instance-tie)
|
|
; (a3-1 s5-1)
|
|
; )
|
|
; (t9-3 (the-as pointer s0-1) (the-as (inline-array instance-tie) s1-2) sv-16 a3-1)
|
|
; )
|
|
; (let ((v1-64 (-> *perf-stats* data 46)))
|
|
; (b! (zero? (-> v1-64 ctrl)) cfg-25 :delay (nop!))
|
|
; (.mtc0 Perf r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mfpc a0-42 pcr0)
|
|
; (+! (-> v1-64 accum0) a0-42)
|
|
; (.mfpc a0-44 pcr1)
|
|
; (+! (-> v1-64 accum1) a0-44)
|
|
; )
|
|
; (label cfg-25)
|
|
; 0
|
|
(update-wait-stats
|
|
(-> *perf-stats* data 46)
|
|
(the-as uint 0)
|
|
(-> *instance-tie-work-copy* wait-to-spr)
|
|
(-> *instance-tie-work-copy* wait-from-spr)
|
|
)
|
|
(let ((v1-71 (-> *instance-tie-work-copy* min-dist quad)))
|
|
(set! (-> *instance-tie-work* min-dist quad) v1-71)
|
|
)
|
|
(set! (-> *instance-tie-work* flags) (-> *instance-tie-work-copy* flags))
|
|
(if (and *debug-segment* (< (the-as int (-> *instance-tie-work* buffer-end)) (the-as int (-> s5-1 base))))
|
|
(format *stdcon* "out of tie memory~%")
|
|
)
|
|
(when (>= (the-as int (-> *instance-tie-work* buffer-end)) (the-as int (-> s5-1 base)))
|
|
(set! (-> *prototype-tie-work* wait-to-spr) (the-as uint 0))
|
|
(set! (-> *prototype-tie-work* wait-from-spr) (the-as uint 0))
|
|
; (let* ((v1-85 (-> *perf-stats* data 47))
|
|
; (a0-52 (-> v1-85 ctrl))
|
|
; )
|
|
; (+! (-> v1-85 count) 1)
|
|
; (b! (zero? a0-52) cfg-33 :delay (nop!))
|
|
; (.mtc0 Perf r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mtpc pcr0 r0)
|
|
; (.mtpc pcr1 r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mtc0 Perf a0-52)
|
|
; )
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (label cfg-33)
|
|
; 0
|
|
; (draw-inline-array-prototype-tie-asm s5-1 s4-1 s3-0)
|
|
; (let ((v1-88 (-> *perf-stats* data 47)))
|
|
; (b! (zero? (-> v1-88 ctrl)) cfg-35 :delay (nop!))
|
|
; (.mtc0 Perf r0)
|
|
; (.sync.l)
|
|
; (.sync.p)
|
|
; (.mfpc a0-55 pcr0)
|
|
; (+! (-> v1-88 accum0) a0-55)
|
|
; (.mfpc a0-57 pcr1)
|
|
; (+! (-> v1-88 accum1) a0-57)
|
|
; )
|
|
; (label cfg-35)
|
|
; 0
|
|
(update-wait-stats
|
|
(-> *perf-stats* data 47)
|
|
(the-as uint 0)
|
|
(-> *prototype-tie-work* wait-to-spr)
|
|
(-> *prototype-tie-work* wait-from-spr)
|
|
)
|
|
)
|
|
(let ((a0-60 *dma-mem-usage*))
|
|
(when (nonzero? a0-60)
|
|
(set! (-> a0-60 length) (max 10 (-> a0-60 length)))
|
|
(set! (-> a0-60 data 9 name) "tie-fragment")
|
|
(+! (-> a0-60 data 9 count) 1)
|
|
(+! (-> a0-60 data 9 used)
|
|
(&- (-> *display* frames (-> *display* on-screen) global-buf base) (the-as uint s2-1))
|
|
)
|
|
(set! (-> a0-60 data 9 total) (-> a0-60 data 9 used))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! v0-9 (cond
|
|
((< (the-as int (-> *instance-tie-work* buffer-end)) (the-as int (-> s5-1 base)))
|
|
(if *debug-segment*
|
|
(format *stdcon* "out of tie memory~%")
|
|
)
|
|
(set! v0-9 (-> *instance-tie-work* buffer-start))
|
|
(set! (-> s5-1 base) (the-as pointer v0-9))
|
|
v0-9
|
|
)
|
|
(else
|
|
(instance-tie-patch-buckets s5-1 arg1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg1 closest-object-array 10) (-> *instance-tie-work* min-dist x))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function tie-init-scissor-buf
|
|
;; WARN: Return type mismatch pointer vs none.
|
|
(defun tie-init-scissor-buf ((arg0 bucket-id) (arg1 gs-alpha) (arg2 gs-test) (arg3 gs-test))
|
|
;; nothing in PC
|
|
(none)
|
|
)
|
|
|
|
;; definition for function tie-init-buf
|
|
;; WARN: Return type mismatch pointer vs none.
|
|
(defun tie-init-buf ((arg0 bucket-id) (arg1 gs-alpha) (arg2 gs-test) (arg3 gs-test))
|
|
(let ((s5-0 (-> *display* frames (-> *display* on-screen) bucket-group arg0)))
|
|
(when (!= s5-0 (-> s5-0 last))
|
|
(let* ((s4-0 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(s3-1 (-> s4-0 base))
|
|
)
|
|
(tie-init-engine s4-0 arg1 arg2 arg3)
|
|
(let* ((v1-12 s4-0)
|
|
(a0-5 (the-as dma-packet (-> v1-12 base)))
|
|
)
|
|
(set! (-> a0-5 dma) (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id cnt)))
|
|
(set! (-> a0-5 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a0-5 vif1) (new 'static 'vif-tag :imm #x2 :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> v1-12 base) (the-as pointer (&+ a0-5 16)))
|
|
)
|
|
(let* ((v1-13 s4-0)
|
|
(a0-7 (the-as gs-gif-tag (-> v1-13 base)))
|
|
)
|
|
(set! (-> a0-7 tag) (new 'static 'gif-tag64 :nloop #x1 :eop #x1 :nreg #x1))
|
|
(set! (-> a0-7 regs) GIF_REGS_ALL_AD)
|
|
(set! (-> v1-13 base) (the-as pointer (&+ a0-7 16)))
|
|
)
|
|
(let* ((v1-14 s4-0)
|
|
(a0-9 (-> v1-14 base))
|
|
)
|
|
(set! (-> (the-as (pointer gs-zbuf) a0-9) 0) (new 'static 'gs-zbuf :zbp #x130 :psm (gs-psm ct24)))
|
|
(set! (-> (the-as (pointer gs-reg64) a0-9) 1) (gs-reg64 zbuf-1))
|
|
(set! (-> v1-14 base) (&+ a0-9 16))
|
|
)
|
|
(let ((v1-15 (the-as dma-packet (-> s4-0 base))))
|
|
(set! (-> v1-15 dma) (new 'static 'dma-tag :id (dma-tag-id next) :addr (-> s5-0 next)))
|
|
(set! (-> v1-15 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-15 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s4-0 base) (the-as pointer (&+ v1-15 16)))
|
|
)
|
|
(set! (-> s5-0 next) (the-as uint s3-1))
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (-> *display* frames (-> *display* on-screen) bucket-group arg0)))
|
|
(when (!= gp-1 (-> gp-1 last))
|
|
(let* ((s4-1 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(s5-1 (-> s4-1 base))
|
|
)
|
|
(tie-end-buffer s4-1)
|
|
(let ((v0-3 (-> s4-1 base)))
|
|
(let ((v1-29 (the-as dma-packet (-> s4-1 base))))
|
|
(set! (-> v1-29 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> v1-29 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-29 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s4-1 base) (the-as pointer (&+ v1-29 16)))
|
|
)
|
|
(set! (-> (the-as (pointer int32) (-> gp-1 last)) 1) (the-as int s5-1))
|
|
(set! (-> gp-1 last) (the-as (pointer dma-tag) v0-3))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defun tie-init-envmap-buf ((arg0 bucket-id) (arg1 gs-alpha) (arg2 gs-test))
|
|
;; PC doesn't need this, skip it.
|
|
; (let ((s5-0 (-> *display* frames (-> *display* on-screen) bucket-group arg0)))
|
|
; (when (!= s5-0 (-> s5-0 last))
|
|
; (let* ((s4-0 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (s3-1 (-> s4-0 base))
|
|
; )
|
|
; (etie-init-engine s4-0 arg1 arg2)
|
|
; (let ((v1-12 (the-as dma-packet (-> s4-0 base))))
|
|
; (set! (-> v1-12 dma) (new 'static 'dma-tag :id (dma-tag-id next) :addr (-> s5-0 next)))
|
|
; (set! (-> v1-12 vif0) (new 'static 'vif-tag))
|
|
; (set! (-> v1-12 vif1) (new 'static 'vif-tag))
|
|
; (set! (-> s4-0 base) (the-as pointer (&+ v1-12 16)))
|
|
; )
|
|
; (set! (-> s5-0 next) (the-as uint s3-1))
|
|
; )
|
|
; )
|
|
; )
|
|
; (let ((gp-1 (-> *display* frames (-> *display* on-screen) bucket-group arg0)))
|
|
; (when (!= gp-1 (-> gp-1 last))
|
|
; (let* ((s4-1 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
; (s5-1 (-> s4-1 base))
|
|
; )
|
|
; (etie-end-buffer s4-1)
|
|
; (let ((v0-3 (-> s4-1 base)))
|
|
; (let ((v1-26 (the-as dma-packet (-> s4-1 base))))
|
|
; (set! (-> v1-26 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
; (set! (-> v1-26 vif0) (new 'static 'vif-tag))
|
|
; (set! (-> v1-26 vif1) (new 'static 'vif-tag))
|
|
; (set! (-> s4-1 base) (the-as pointer (&+ v1-26 16)))
|
|
; )
|
|
; (set! (-> (the-as (pointer int32) (-> gp-1 last)) 1) (the-as int s5-1))
|
|
; (set! (-> gp-1 last) (the-as (pointer dma-tag) v0-3))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
(none)
|
|
)
|
|
|
|
(defun tie-init-envmap-scissor-buf ((arg0 bucket-id) (arg1 gs-alpha) (arg2 int) (arg3 int))
|
|
;; no etn
|
|
(none)
|
|
)
|
|
|
|
(deftype tie-init-data (structure)
|
|
((tie-bucket bucket-id :offset-assert 0)
|
|
(tie-scissor-bucket bucket-id :offset-assert 4)
|
|
(tie-envmap-bucket bucket-id :offset-assert 8)
|
|
(tie-envmap-scissor-bucket bucket-id :offset-assert 12)
|
|
(tie-vanish-bucket bucket-id :offset-assert 16)
|
|
(tie-trans-bucket bucket-id :offset-assert 20)
|
|
(tie-scissor-trans-bucket bucket-id :offset-assert 24)
|
|
(tie-envmap-trans-bucket bucket-id :offset-assert 28)
|
|
(tie-envmap-scissor-trans-bucket bucket-id :offset-assert 32)
|
|
(tie-water-bucket bucket-id :offset-assert 36)
|
|
(tie-scissor-water-bucket bucket-id :offset-assert 40)
|
|
(tie-envmap-water-bucket bucket-id :offset-assert 44)
|
|
(tie-envmap-scissor-water-bucket bucket-id :offset-assert 48)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x34
|
|
:flag-assert #x900000034
|
|
)
|
|
|
|
|
|
|
|
(define *tie-init-table* (new 'static 'inline-array tie-init-data LEVEL_MAX
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l0-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l0-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l0-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l0-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l0-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l0-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l0-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l0-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l0-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l0-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l0-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l0-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id etie-sw-l0-water)
|
|
)
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l1-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l1-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l1-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l1-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l1-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l1-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l1-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l1-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l1-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l1-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l1-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l1-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id etie-sw-l1-water)
|
|
)
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l2-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l2-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l2-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l2-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l2-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l2-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l2-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l2-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l2-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l2-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l2-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l2-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id tie-esw-l2-water)
|
|
)
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l3-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l3-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l3-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l3-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l3-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l3-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l3-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l3-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l3-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l3-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l3-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l3-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id etie-sw-l3-water)
|
|
)
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l4-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l4-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l4-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l4-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l4-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l4-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l4-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l4-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l4-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l4-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l4-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l4-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id etie-sw-l4-water)
|
|
)
|
|
(new 'static 'tie-init-data
|
|
:tie-bucket (bucket-id tie-l5-tfrag)
|
|
:tie-scissor-bucket (bucket-id tie-s-l5-tfrag)
|
|
:tie-envmap-bucket (bucket-id etie-l5-tfrag)
|
|
:tie-envmap-scissor-bucket (bucket-id etie-s-l5-tfrag)
|
|
:tie-vanish-bucket (bucket-id tie-v-l5-tfrag)
|
|
:tie-trans-bucket (bucket-id tie-t-l5-alpha)
|
|
:tie-scissor-trans-bucket (bucket-id tie-st-l5-alpha)
|
|
:tie-envmap-trans-bucket (bucket-id etie-t-l5-alpha)
|
|
:tie-envmap-scissor-trans-bucket (bucket-id etie-st-l5-alpha)
|
|
:tie-water-bucket (bucket-id tie-w-l5-water)
|
|
:tie-scissor-water-bucket (bucket-id tie-sw-l5-water)
|
|
:tie-envmap-water-bucket (bucket-id etie-w-l5-water)
|
|
:tie-envmap-scissor-water-bucket (bucket-id etie-sw-l5-water)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun tie-vu1-init-buffers ()
|
|
(let ((gp-0 0)
|
|
(s5-0 100)
|
|
(s4-0 68)
|
|
)
|
|
(dotimes (s3-0 LEVEL_MAX)
|
|
(let ((v1-2 (-> *level* draw-level s3-0))
|
|
(s2-0 (-> *tie-init-table* s3-0))
|
|
)
|
|
(when v1-2
|
|
(tie-init-buf
|
|
(-> s2-0 tie-bucket)
|
|
(the-as gs-alpha gp-0)
|
|
(new 'static 'gs-test
|
|
:ate #x1
|
|
:atst (gs-atest greater-equal)
|
|
:aref #x26
|
|
:zte #x1
|
|
:ztst (gs-ztest greater-equal)
|
|
)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(let ((t9-1 tie-init-scissor-buf)
|
|
(a0-3 (-> s2-0 tie-scissor-bucket))
|
|
(a1-2 0)
|
|
(a2-1 #x5026b)
|
|
(a3-1 #x50000)
|
|
)
|
|
(t9-1 a0-3 (the-as gs-alpha a1-2) (the-as gs-test a2-1) (the-as gs-test a3-1))
|
|
(tie-init-envmap-buf
|
|
(-> s2-0 tie-envmap-bucket)
|
|
(the-as gs-alpha gp-0)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(tie-init-envmap-scissor-buf (-> s2-0 tie-envmap-scissor-bucket) (the-as gs-alpha gp-0) #x50000 a3-1)
|
|
)
|
|
(tie-init-buf
|
|
(-> s2-0 tie-vanish-bucket)
|
|
(the-as gs-alpha s5-0)
|
|
(new 'static 'gs-test
|
|
:ate #x1
|
|
:atst (gs-atest greater-equal)
|
|
:aref #x26
|
|
:zte #x1
|
|
:ztst (gs-ztest greater-equal)
|
|
)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(tie-init-buf
|
|
(-> s2-0 tie-trans-bucket)
|
|
(the-as gs-alpha s4-0)
|
|
(new 'static 'gs-test
|
|
:ate #x1
|
|
:atst (gs-atest greater-equal)
|
|
:aref #x26
|
|
:zte #x1
|
|
:ztst (gs-ztest greater-equal)
|
|
)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(let ((t9-6 tie-init-scissor-buf)
|
|
(a0-8 (-> s2-0 tie-scissor-trans-bucket))
|
|
(a1-7 1)
|
|
(a2-6 #x5026b)
|
|
(a3-4 #x50000)
|
|
)
|
|
(t9-6 a0-8 (the-as gs-alpha a1-7) (the-as gs-test a2-6) (the-as gs-test a3-4))
|
|
(tie-init-envmap-buf
|
|
(-> s2-0 tie-envmap-trans-bucket)
|
|
(the-as gs-alpha s4-0)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(tie-init-envmap-scissor-buf (-> s2-0 tie-envmap-scissor-trans-bucket) (the-as gs-alpha s4-0) #x50000 a3-4)
|
|
)
|
|
(tie-init-buf
|
|
(-> s2-0 tie-water-bucket)
|
|
(the-as gs-alpha s4-0)
|
|
(new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest greater-equal))
|
|
(new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(let ((t9-10 tie-init-scissor-buf)
|
|
(a0-12 (-> s2-0 tie-scissor-water-bucket))
|
|
(a1-11 1)
|
|
(a2-10 #x51001)
|
|
(a3-6 #x51001)
|
|
)
|
|
(t9-10 a0-12 (the-as gs-alpha a1-11) (the-as gs-test a2-10) (the-as gs-test a3-6))
|
|
(tie-init-envmap-buf
|
|
(-> s2-0 tie-envmap-water-bucket)
|
|
(the-as gs-alpha s4-0)
|
|
(new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest greater-equal))
|
|
)
|
|
(tie-init-envmap-scissor-buf (-> s2-0 tie-envmap-scissor-water-bucket) (the-as gs-alpha s4-0) #x51001 a3-6)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod draw drawable-tree-instance-tie ((obj drawable-tree-instance-tie) (arg0 drawable-tree-instance-tie) (arg1 display-frame))
|
|
(let ((v1-1 (-> *background-work* tie-tree-count))
|
|
(a1-4 (-> *level* draw-level *draw-index*))
|
|
)
|
|
(set! (-> *background-work* tie-trees v1-1) obj)
|
|
(set! (-> *background-work* tie-levels v1-1) a1-4)
|
|
)
|
|
(+! (-> *background-work* tie-tree-count) 1)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod collect-stats drawable-tree-instance-tie ((obj drawable-tree-instance-tie))
|
|
(when (logtest? (vu1-renderer-mask
|
|
tie
|
|
tie-envmap
|
|
tie-scissor
|
|
tie-vanish
|
|
generic
|
|
tie-scissor-trans
|
|
tie-trans
|
|
tie-envmap-trans
|
|
tie-scissor-water
|
|
tie-water
|
|
tie-envmap-water
|
|
)
|
|
(-> *display* vu1-enable-user)
|
|
)
|
|
(-> obj data (+ (-> obj length) -1))
|
|
(let ((v1-9 (-> obj prototypes prototype-array-tie)))
|
|
(dotimes (a0-1 (-> v1-9 length))
|
|
(let ((a1-4 (-> v1-9 array-data a0-1)))
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask generic))
|
|
(let ((a2-4 0)
|
|
(a3-0 2)
|
|
)
|
|
(while (>= a3-0 a2-4)
|
|
(let ((t0-2 (-> a1-4 generic-count a2-4))
|
|
(t2-0 (-> a1-4 tie-geom (+ a2-4 1)))
|
|
)
|
|
(when (nonzero? t0-2)
|
|
(let ((t1-4 (the-as object (-> t2-0 data)))
|
|
(t2-1 (-> t2-0 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-generic groups) 1)
|
|
(+! (-> *terrain-stats* tie-generic fragments) t2-1)
|
|
(+! (-> *terrain-stats* tie-generic instances) t0-2)
|
|
(dotimes (t3-9 t2-1)
|
|
(let ((t5-0 (* (-> (the-as tie-fragment t1-4) debug num-tris) t0-2))
|
|
(t4-7 (* (-> (the-as tie-fragment t1-4) debug num-dverts) t0-2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-generic tris) t5-0)
|
|
(+! (-> *terrain-stats* tie-generic dverts) t4-7)
|
|
)
|
|
(set! t1-4 (&+ (the-as tie-fragment t1-4) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-4 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-vanish))
|
|
(let ((a2-11 (-> a1-4 vanish-count))
|
|
(t0-4 (-> a1-4 tie-geom 3))
|
|
)
|
|
(when (nonzero? a2-11)
|
|
(let ((a3-2 (the-as object (-> t0-4 data)))
|
|
(t0-5 (-> t0-4 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-vanish groups) 1)
|
|
(+! (-> *terrain-stats* tie-vanish fragments) t0-5)
|
|
(+! (-> *terrain-stats* tie-vanish instances) (the-as uint a2-11))
|
|
(dotimes (t1-15 t0-5)
|
|
(let ((t3-10 (* (-> (the-as tie-fragment a3-2) debug num-tris) (the-as uint a2-11)))
|
|
(t2-9 (* (-> (the-as tie-fragment a3-2) debug num-dverts) (the-as uint a2-11)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-vanish tris) t3-10)
|
|
(+! (-> *terrain-stats* tie-vanish dverts) t2-9)
|
|
)
|
|
(set! a3-2 (&+ (the-as tie-fragment a3-2) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((logtest? (-> a1-4 flags) (prototype-flags tpage-water))
|
|
(when (logtest? (vu1-renderer-mask tie-water) (-> *display* vu1-enable-user))
|
|
(let ((a2-18 1)
|
|
(a3-6 3)
|
|
)
|
|
(while (>= a3-6 a2-18)
|
|
(let ((t0-8 (-> a1-4 count a2-18))
|
|
(t2-11 (-> a1-4 tie-geom a2-18))
|
|
)
|
|
(when (nonzero? t0-8)
|
|
(let ((t1-19 (the-as object (-> t2-11 data)))
|
|
(t2-12 (-> t2-11 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-water groups) 1)
|
|
(+! (-> *terrain-stats* tie-water fragments) t2-12)
|
|
(+! (-> *terrain-stats* tie-water instances) (the-as uint t0-8))
|
|
(dotimes (t3-24 t2-12)
|
|
(let ((t5-5 (* (-> (the-as tie-fragment t1-19) debug num-tris) (the-as uint t0-8)))
|
|
(t4-19 (* (-> (the-as tie-fragment t1-19) debug num-dverts) (the-as uint t0-8)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-water tris) t5-5)
|
|
(+! (-> *terrain-stats* tie-water dverts) t4-19)
|
|
)
|
|
(set! t1-19 (&+ (the-as tie-fragment t1-19) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-18 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie))
|
|
(let ((a2-25 (-> a1-4 tie-scissor-count))
|
|
(t0-10 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-25)
|
|
(let ((a3-8 (the-as object (-> t0-10 data)))
|
|
(t0-11 (-> t0-10 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor-water groups) 1)
|
|
(+! (-> *terrain-stats* tie-scissor-water fragments) t0-11)
|
|
(+! (-> *terrain-stats* tie-scissor-water instances) (the-as uint a2-25))
|
|
(dotimes (t1-30 t0-11)
|
|
(let ((t3-25 (* (-> (the-as tie-fragment a3-8) debug num-tris) (the-as uint a2-25)))
|
|
(t2-20 (* (-> (the-as tie-fragment a3-8) debug num-dverts) (the-as uint a2-25)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor-water tris) t3-25)
|
|
(+! (-> *terrain-stats* tie-scissor-water dverts) t2-20)
|
|
)
|
|
(set! a3-8 (&+ (the-as tie-fragment a3-8) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (vu1-renderer-mask tie-envmap-water) (-> *display* vu1-enable-user))
|
|
(let ((a2-30 1)
|
|
(a3-12 3)
|
|
)
|
|
(while (>= a3-12 a2-30)
|
|
(let ((t0-14 (-> a1-4 envmap-count a2-30))
|
|
(t2-22 (-> a1-4 tie-geom a2-30))
|
|
)
|
|
(when (nonzero? t0-14)
|
|
(let ((t1-34 (the-as object (-> t2-22 data)))
|
|
(t2-23 (-> t2-22 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-water groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap-water fragments) t2-23)
|
|
(+! (-> *terrain-stats* tie-envmap-water instances) t0-14)
|
|
(dotimes (t3-39 t2-23)
|
|
(let ((t5-10 (* (* t0-14 (-> (the-as tie-fragment t1-34) debug num-tris)) 2))
|
|
(t4-33 (* (* t0-14 (-> (the-as tie-fragment t1-34) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-water tris) t5-10)
|
|
(+! (-> *terrain-stats* tie-envmap-water dverts) t4-33)
|
|
)
|
|
(set! t1-34 (&+ (the-as tie-fragment t1-34) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-30 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (vu1-renderer-mask tie-envmap-scissor-water) (-> *display* vu1-enable-user))
|
|
(let ((a2-35 (-> a1-4 envmap-scissor-count))
|
|
(t0-16 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-35)
|
|
(let ((a1-5 (the-as object (-> t0-16 data)))
|
|
(a3-17 (-> t0-16 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-water groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-water fragments) a3-17)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-water instances) (the-as uint a2-35))
|
|
(dotimes (t0-26 a3-17)
|
|
(let ((t2-24 (* (* (the-as uint a2-35) (-> (the-as tie-fragment a1-5) debug num-tris)) 2))
|
|
(t1-45 (* (* (the-as uint a2-35) (-> (the-as tie-fragment a1-5) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-water tris) t2-24)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-water dverts) t1-45)
|
|
)
|
|
(set! a1-5 (&+ (the-as tie-fragment a1-5) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((logtest? (-> a1-4 flags) (prototype-flags tpage-alpha))
|
|
(when (logtest? (vu1-renderer-mask tie-trans) (-> *display* vu1-enable-user))
|
|
(let ((a2-41 1)
|
|
(a3-21 3)
|
|
)
|
|
(while (>= a3-21 a2-41)
|
|
(let ((t0-29 (-> a1-4 count a2-41))
|
|
(t2-29 (-> a1-4 tie-geom a2-41))
|
|
)
|
|
(when (nonzero? t0-29)
|
|
(let ((t1-50 (the-as object (-> t2-29 data)))
|
|
(t2-30 (-> t2-29 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-trans groups) 1)
|
|
(+! (-> *terrain-stats* tie-trans fragments) t2-30)
|
|
(+! (-> *terrain-stats* tie-trans instances) (the-as uint t0-29))
|
|
(dotimes (t3-52 t2-30)
|
|
(let ((t5-15 (* (-> (the-as tie-fragment t1-50) debug num-tris) (the-as uint t0-29)))
|
|
(t4-42 (* (-> (the-as tie-fragment t1-50) debug num-dverts) (the-as uint t0-29)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-trans tris) t5-15)
|
|
(+! (-> *terrain-stats* tie-trans dverts) t4-42)
|
|
)
|
|
(set! t1-50 (&+ (the-as tie-fragment t1-50) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-41 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie))
|
|
(let ((a2-48 (-> a1-4 tie-scissor-count))
|
|
(t0-31 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-48)
|
|
(let ((a3-23 (the-as object (-> t0-31 data)))
|
|
(t0-32 (-> t0-31 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor-trans groups) 1)
|
|
(+! (-> *terrain-stats* tie-scissor-trans fragments) t0-32)
|
|
(+! (-> *terrain-stats* tie-scissor-trans instances) (the-as uint a2-48))
|
|
(dotimes (t1-61 t0-32)
|
|
(let ((t3-53 (* (-> (the-as tie-fragment a3-23) debug num-tris) (the-as uint a2-48)))
|
|
(t2-38 (* (-> (the-as tie-fragment a3-23) debug num-dverts) (the-as uint a2-48)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor-trans tris) t3-53)
|
|
(+! (-> *terrain-stats* tie-scissor-trans dverts) t2-38)
|
|
)
|
|
(set! a3-23 (&+ (the-as tie-fragment a3-23) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (vu1-renderer-mask tie-envmap-trans) (-> *display* vu1-enable-user))
|
|
(let ((a2-53 1)
|
|
(a3-27 3)
|
|
)
|
|
(while (>= a3-27 a2-53)
|
|
(let ((t0-35 (-> a1-4 envmap-count a2-53))
|
|
(t2-40 (-> a1-4 tie-geom a2-53))
|
|
)
|
|
(when (nonzero? t0-35)
|
|
(let ((t1-65 (the-as object (-> t2-40 data)))
|
|
(t2-41 (-> t2-40 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-trans groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap-trans fragments) t2-41)
|
|
(+! (-> *terrain-stats* tie-envmap-trans instances) t0-35)
|
|
(dotimes (t3-67 t2-41)
|
|
(let ((t5-20 (* (* t0-35 (-> (the-as tie-fragment t1-65) debug num-tris)) 2))
|
|
(t4-56 (* (* t0-35 (-> (the-as tie-fragment t1-65) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-trans tris) t5-20)
|
|
(+! (-> *terrain-stats* tie-envmap-trans dverts) t4-56)
|
|
)
|
|
(set! t1-65 (&+ (the-as tie-fragment t1-65) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-53 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (vu1-renderer-mask tie-envmap-scissor-trans) (-> *display* vu1-enable-user))
|
|
(let ((a2-58 (-> a1-4 envmap-scissor-count))
|
|
(t0-37 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-58)
|
|
(let ((a1-7 (the-as object (-> t0-37 data)))
|
|
(a3-32 (-> t0-37 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-trans groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-trans fragments) a3-32)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-trans instances) (the-as uint a2-58))
|
|
(dotimes (t0-47 a3-32)
|
|
(let ((t2-42 (* (* (the-as uint a2-58) (-> (the-as tie-fragment a1-7) debug num-tris)) 2))
|
|
(t1-76 (* (* (the-as uint a2-58) (-> (the-as tie-fragment a1-7) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-trans tris) t2-42)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor-trans dverts) t1-76)
|
|
)
|
|
(set! a1-7 (&+ (the-as tie-fragment a1-7) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-envmap))
|
|
(let ((a2-63 1)
|
|
(a3-34 3)
|
|
)
|
|
(while (>= a3-34 a2-63)
|
|
(let ((t0-50 (-> a1-4 count a2-63))
|
|
(t2-47 (-> a1-4 tie-geom a2-63))
|
|
)
|
|
(when (nonzero? t0-50)
|
|
(let ((t1-81 (the-as object (-> t2-47 data)))
|
|
(t2-48 (-> t2-47 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie groups) 1)
|
|
(+! (-> *terrain-stats* tie fragments) t2-48)
|
|
(+! (-> *terrain-stats* tie instances) (the-as uint t0-50))
|
|
(dotimes (t3-80 t2-48)
|
|
(let ((t5-25 (* (-> (the-as tie-fragment t1-81) debug num-tris) (the-as uint t0-50)))
|
|
(t4-65 (* (-> (the-as tie-fragment t1-81) debug num-dverts) (the-as uint t0-50)))
|
|
)
|
|
(+! (-> *terrain-stats* tie tris) t5-25)
|
|
(+! (-> *terrain-stats* tie dverts) t4-65)
|
|
)
|
|
(set! t1-81 (&+ (the-as tie-fragment t1-81) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-63 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie))
|
|
(let ((a2-70 (-> a1-4 tie-scissor-count))
|
|
(t0-52 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-70)
|
|
(let ((a3-36 (the-as object (-> t0-52 data)))
|
|
(t0-53 (-> t0-52 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor groups) 1)
|
|
(+! (-> *terrain-stats* tie-scissor fragments) t0-53)
|
|
(+! (-> *terrain-stats* tie-scissor instances) (the-as uint a2-70))
|
|
(dotimes (t1-92 t0-53)
|
|
(let ((t3-81 (* (-> (the-as tie-fragment a3-36) debug num-tris) (the-as uint a2-70)))
|
|
(t2-56 (* (-> (the-as tie-fragment a3-36) debug num-dverts) (the-as uint a2-70)))
|
|
)
|
|
(+! (-> *terrain-stats* tie-scissor tris) t3-81)
|
|
(+! (-> *terrain-stats* tie-scissor dverts) t2-56)
|
|
)
|
|
(set! a3-36 (&+ (the-as tie-fragment a3-36) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-scissor))
|
|
(let ((a2-76 1)
|
|
(a3-38 3)
|
|
)
|
|
(while (>= a3-38 a2-76)
|
|
(let ((t0-56 (-> a1-4 envmap-count a2-76))
|
|
(t2-58 (-> a1-4 tie-geom a2-76))
|
|
)
|
|
(when (nonzero? t0-56)
|
|
(let ((t1-96 (the-as object (-> t2-58 data)))
|
|
(t2-59 (-> t2-58 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap fragments) t2-59)
|
|
(+! (-> *terrain-stats* tie-envmap instances) t0-56)
|
|
(dotimes (t3-95 t2-59)
|
|
(let ((t5-30 (* (* t0-56 (-> (the-as tie-fragment t1-96) debug num-tris)) 2))
|
|
(t4-79 (* (* t0-56 (-> (the-as tie-fragment t1-96) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap tris) t5-30)
|
|
(+! (-> *terrain-stats* tie-envmap dverts) t4-79)
|
|
)
|
|
(set! t1-96 (&+ (the-as tie-fragment t1-96) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(+! a2-76 1)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask tie-envmap-scissor))
|
|
(let ((a2-82 (-> a1-4 envmap-scissor-count))
|
|
(t0-58 (-> a1-4 tie-geom 0))
|
|
)
|
|
(when (nonzero? a2-82)
|
|
(let ((a1-9 (the-as object (-> t0-58 data)))
|
|
(a3-41 (-> t0-58 length))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor groups) 1)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor fragments) a3-41)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor instances) (the-as uint a2-82))
|
|
(dotimes (t0-68 a3-41)
|
|
(let ((t2-60 (* (* (the-as uint a2-82) (-> (the-as tie-fragment a1-9) debug num-tris)) 2))
|
|
(t1-107 (* (* (the-as uint a2-82) (-> (the-as tie-fragment a1-9) debug num-dverts)) 2))
|
|
)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor tris) t2-60)
|
|
(+! (-> *terrain-stats* tie-envmap-scissor dverts) t1-107)
|
|
)
|
|
(set! a1-9 (&+ (the-as tie-fragment a1-9) 64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod debug-draw drawable-tree-instance-tie ((obj drawable-tree-instance-tie) (arg0 drawable) (arg1 display-frame))
|
|
(-> obj data (+ (-> obj length) -1))
|
|
(let* ((s5-0 (-> obj prototypes prototype-array-tie))
|
|
(s4-0 (-> s5-0 length))
|
|
)
|
|
(dotimes (s3-0 s4-0)
|
|
(let ((a1-1 (-> s5-0 array-data s3-0 tie-geom 0)))
|
|
(debug-draw a1-1 a1-1 arg1)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|