mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
641 lines
23 KiB
Common Lisp
641 lines
23 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: tfrag.gc
|
|
;; name in dgo: tfrag
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; TFRAG drawing procedure
|
|
|
|
;; - when a level is loaded, it adds a connection from the bsp-header to the *background-draw-engine* with the add-bsp-drawable function.
|
|
;; this allows the level to be drawn from within drawable.gc
|
|
|
|
;; - within real-main-draw-hook, background engine is executed, drawing all levels.
|
|
|
|
;; - the add-bsp-drawable function calls the draw (and debug-draw) methods of the bsp-header.
|
|
|
|
;; - draw method of the bsp-header calls draw on each of the drawable trees (after settings up vis stuff)
|
|
|
|
;; - the draw method of drawable-tree-tfrag just adds the tree to the background-work
|
|
|
|
;; - within real-main-draw-hook, the finish-background function is called, eventually calling draw-drawable-tree-tfrag
|
|
|
|
;; - the draw-drawable-tree-tfrag function sets up DMA, eventually calls draw-inline-array-tfrag (in this file), which actually does the DMA setup.
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; basic methods
|
|
;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defmethod login tfragment ((obj tfragment))
|
|
"Initialize a tfragment by linking the textures in adgif shaders"
|
|
(dotimes (s5-0 (the-as int (-> obj num-shaders)))
|
|
(adgif-shader-login-no-remap (-> obj shader s5-0))
|
|
)
|
|
obj
|
|
)
|
|
|
|
(defmethod mem-usage tfragment ((obj tfragment) (arg0 memory-usage-block) (arg1 int))
|
|
"Compute the memory usage of a tfragment"
|
|
|
|
;; seems like this flag does colors?
|
|
(when (logtest? arg1 2)
|
|
(+! (-> arg0 data 19 count) 1)
|
|
(let ((v1-6 (+ (-> obj num-base-colors) (-> obj num-level0-colors) (-> obj num-level1-colors))))
|
|
(+! (-> arg0 data 19 used) v1-6)
|
|
(+! (-> arg0 data 19 total) (logand -4 (+ v1-6 3)))
|
|
)
|
|
(return obj)
|
|
)
|
|
|
|
(let ((s4-0 1))
|
|
(set! (-> arg0 length) (max (-> arg0 length) (+ s4-0 8)))
|
|
(set! (-> arg0 data s4-0 name) (symbol->string 'tfragment))
|
|
(+! (-> arg0 data s4-0 count) 1)
|
|
|
|
;; the size of the actual tfragment
|
|
(let ((v1-22 (asize-of obj)))
|
|
(+! (-> arg0 data s4-0 used) v1-22)
|
|
(+! (-> arg0 data s4-0 total) (logand -16 (+ v1-22 15)))
|
|
)
|
|
|
|
;; the size of the "base" DMA
|
|
(set! (-> arg0 data (+ s4-0 1) name) "tfragment-base")
|
|
(+! (-> arg0 data (+ s4-0 1) count) 1)
|
|
(let ((v1-33 (* (-> obj dma-qwc 0) 16)))
|
|
(+! (-> arg0 data (+ s4-0 1) used) v1-33)
|
|
(+! (-> arg0 data (+ s4-0 1) total) v1-33)
|
|
)
|
|
|
|
;; the size of the "common" DMA
|
|
(set! (-> arg0 data (+ s4-0 2) name) "tfragment-common")
|
|
(+! (-> arg0 data (+ s4-0 2) count) 1)
|
|
(let ((v1-43 (* (- (-> obj dma-qwc 1) (-> obj dma-qwc 0)) 16)))
|
|
(+! (-> arg0 data (+ s4-0 2) used) v1-43)
|
|
(+! (-> arg0 data (+ s4-0 2) total) v1-43)
|
|
)
|
|
|
|
;; the size of the "level0" DMA
|
|
(set! (-> arg0 data (+ s4-0 3) name) "tfragment-level0")
|
|
(when (nonzero? (-> obj num-level0-colors))
|
|
(+! (-> arg0 data (+ s4-0 3) count) 1)
|
|
(let ((v1-55 (* (- (-> obj dma-qwc 2) (-> obj dma-qwc 0)) 16)))
|
|
(+! (-> arg0 data (+ s4-0 3) used) v1-55)
|
|
(+! (-> arg0 data (+ s4-0 3) total) v1-55)
|
|
)
|
|
)
|
|
|
|
;; The size of the "level0" DMA. Note that the dma chains can overlap, so this is a bit weird.
|
|
(set! (-> arg0 data (+ s4-0 4) name) "tfragment-level1")
|
|
(when (not (or (= (-> obj dma-level-1) (-> obj dma-common))
|
|
(= (-> obj dma-level-1) (-> obj dma-base))
|
|
(zero? (-> obj num-level1-colors))
|
|
)
|
|
)
|
|
(+! (-> arg0 data (+ s4-0 4) count) 1)
|
|
(let ((v1-70 (* (- (-> obj dma-qwc 3)
|
|
(the-as uint (- (/ (the-as int (- (-> obj dma-level-1) (-> obj dma-common))) 16) (the-as int (-> obj dma-qwc 0))))
|
|
)
|
|
16
|
|
)
|
|
)
|
|
)
|
|
(+! (-> arg0 data (+ s4-0 4) used) v1-70)
|
|
(+! (-> arg0 data (+ s4-0 4) total) v1-70)
|
|
)
|
|
)
|
|
|
|
;; colors
|
|
(set! (-> arg0 data (+ s4-0 5) name) "tfragment-color")
|
|
(+! (-> arg0 data (+ s4-0 5) count) 1)
|
|
(let ((v1-79 (if (logtest? arg1 1)
|
|
0
|
|
(the-as int (* (+ (-> obj num-base-colors) (-> obj num-level0-colors) (-> obj num-level1-colors)) 2))
|
|
)
|
|
)
|
|
)
|
|
(+! (-> arg0 data (+ s4-0 5) used) v1-79)
|
|
(+! (-> arg0 data (+ s4-0 5) total) (logand -16 (+ v1-79 15)))
|
|
)
|
|
|
|
;; debug (unused)
|
|
(set! (-> arg0 data (+ s4-0 6) name) "tfragment-debug")
|
|
)
|
|
|
|
obj
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; tree/array methods
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defmethod inspect drawable-inline-array-tfrag ((obj drawable-inline-array-tfrag))
|
|
"Inspect an array of tfragments."
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tlength: ~D~%" (-> obj length))
|
|
(format #t "~Tdata[~D]: @ #x~X~%" (-> obj length) (-> obj data))
|
|
(dotimes (s5-0 (-> obj length))
|
|
(format #t "~T [~D] ~A~%" s5-0 (-> obj data s5-0))
|
|
)
|
|
obj
|
|
)
|
|
|
|
(defmethod login drawable-inline-array-tfrag ((obj drawable-inline-array-tfrag))
|
|
(dotimes (s5-0 (-> obj length))
|
|
(login (-> obj data s5-0))
|
|
)
|
|
obj
|
|
)
|
|
|
|
(defmethod mem-usage drawable-inline-array-tfrag ((obj drawable-inline-array-tfrag) (arg0 memory-usage-block) (arg1 int))
|
|
(set! (-> arg0 length) (max 1 (-> arg0 length)))
|
|
(set! (-> arg0 data 0 name) (symbol->string 'drawable-group))
|
|
(+! (-> arg0 data 0 count) 1)
|
|
(let ((v1-7 32))
|
|
(+! (-> arg0 data 0 used) v1-7)
|
|
(+! (-> arg0 data 0 total) (logand -16 (+ v1-7 15)))
|
|
)
|
|
(dotimes (s3-0 (-> obj length))
|
|
(mem-usage (-> obj data s3-0) arg0 arg1)
|
|
)
|
|
obj
|
|
)
|
|
|
|
(defmethod mem-usage drawable-tree-tfrag ((obj drawable-tree-tfrag) (arg0 memory-usage-block) (arg1 int))
|
|
(set! (-> arg0 length) (max 1 (-> arg0 length)))
|
|
(set! (-> arg0 data 0 name) "drawable-group")
|
|
(+! (-> arg0 data 0 count) 1)
|
|
(let ((v1-6 (asize-of obj)))
|
|
(+! (-> arg0 data 0 used) v1-6)
|
|
(+! (-> arg0 data 0 total) (logand -16 (+ v1-6 15)))
|
|
)
|
|
(when (nonzero? (-> obj time-of-day-pal))
|
|
(set! (-> arg0 length) (max 9 (-> arg0 length)))
|
|
(set! (-> arg0 data 8 name) "tfragment-pal")
|
|
(+! (-> arg0 data 8 count) 1)
|
|
(let ((v1-18 (asize-of (-> obj time-of-day-pal))))
|
|
(+! (-> arg0 data 8 used) v1-18)
|
|
(+! (-> arg0 data 8 total) (logand -16 (+ v1-18 15)))
|
|
)
|
|
)
|
|
(dotimes (s3-0 (-> obj length))
|
|
(mem-usage (-> obj arrays s3-0) arg0 arg1)
|
|
)
|
|
obj
|
|
)
|
|
|
|
(defmethod asize-of drawable-inline-array-tfrag ((obj drawable-inline-array-tfrag))
|
|
(the-as int (+ (-> drawable-inline-array-tfrag size) (* (+ (-> obj length) -1) 64)))
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
;; tfrag renderer
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define *tfrag-display-stats* #f)
|
|
|
|
(define tfrag-vu1-block (new 'static 'vu-function :length #x0 :qlength #x0))
|
|
|
|
(defun tfrag-data-setup ((arg0 tfrag-data) (arg1 int))
|
|
"Set up a tfrag-data. This is loaded to VU1 memory. Arg1 sets abe (alpha blend enable)"
|
|
(let ((v1-0 *math-camera*))
|
|
(set-vector! (-> arg0 fog) (-> v1-0 pfog0) (-> v1-0 fog-min) (-> v1-0 fog-max) 3072.0)
|
|
(set-vector! (-> arg0 val) 0.5 1.0 2048.0 0.0)
|
|
(set-vector! (-> arg0 ambient) 1.0 1.0 1.0 1.0)
|
|
(cond
|
|
((zero? *subdivide-draw-mode*)
|
|
(set! (-> arg0 strgif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :tme #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
(set! (-> arg0 fangif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-fan) :iip #x1 :tme #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
)
|
|
((= *subdivide-draw-mode* 1)
|
|
(set! (-> arg0 strgif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line-strip) :iip #x1 :tme #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
(set! (-> arg0 fangif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line-strip) :iip #x1 :tme #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
)
|
|
((= *subdivide-draw-mode* 2)
|
|
(set! (-> arg0 strgif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
(set! (-> arg0 fangif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:nreg #x3
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-fan) :iip #x1 :fge #x1 :abe arg1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg0 strgif regs) (new 'static 'gif-tag-regs :regs0 (gif-reg-id st) :regs1 (gif-reg-id rgbaq) :regs2 (gif-reg-id xyzf2)))
|
|
(set! (-> arg0 fangif regs) (new 'static 'gif-tag-regs :regs0 (gif-reg-id st) :regs1 (gif-reg-id rgbaq) :regs2 (gif-reg-id xyzf2)))
|
|
(set! (-> arg0 adgif tag) (new 'static 'gif-tag64 :nloop #x5 :nreg #x1))
|
|
(set! (-> arg0 adgif regs) (new 'static 'gif-tag-regs :regs0 (gif-reg-id a+d)))
|
|
(set! (-> arg0 hvdf-offset quad) (-> v1-0 hvdf-off quad))
|
|
(set! (-> arg0 hmge-scale quad) (-> v1-0 hmge-scale quad))
|
|
(set! (-> arg0 invh-scale quad) (-> v1-0 inv-hmge-scale quad))
|
|
(set! (-> arg0 guard quad) (-> v1-0 guard quad))
|
|
)
|
|
(set-tfrag-dists! (-> arg0 dists))
|
|
(none)
|
|
)
|
|
|
|
(defun add-tfrag-mtx-0 ((arg0 dma-buffer))
|
|
(let* ((a1-0 4)
|
|
(v1-0 arg0)
|
|
(a0-1 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-1) dma) (new 'static 'dma-tag :id (dma-tag-id cnt) :qwc a1-0))
|
|
(set! (-> (the-as dma-packet a0-1) vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
|
|
(set! (-> (the-as dma-packet a0-1) vif1) (new 'static 'vif-tag :imm #x5 :cmd (vif-cmd unpack-v4-32) :num a1-0))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a0-1) 16))
|
|
)
|
|
(column-scale-matrix! (the-as matrix (-> arg0 base))
|
|
(new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
(-> *math-camera* camera-temp)
|
|
)
|
|
(&+! (-> arg0 base) 64)
|
|
(none)
|
|
)
|
|
|
|
(defun add-tfrag-mtx-1 ((arg0 dma-buffer))
|
|
(let* ((a1-0 4)
|
|
(v1-0 arg0)
|
|
(a0-1 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-1) dma) (new 'static 'dma-tag :id (dma-tag-id cnt) :qwc a1-0))
|
|
(set! (-> (the-as dma-packet a0-1) vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
|
|
(set! (-> (the-as dma-packet a0-1) vif1) (new 'static 'vif-tag :imm #x14d :cmd (vif-cmd unpack-v4-32) :num a1-0))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a0-1) 16))
|
|
)
|
|
(column-scale-matrix! (the-as matrix (-> arg0 base)) (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0) (-> *math-camera* camera-temp))
|
|
(&+! (-> arg0 base) 64)
|
|
(none)
|
|
)
|
|
|
|
(defun add-tfrag-data ((arg0 dma-buffer) (arg1 int))
|
|
(let* ((a2-0 14)
|
|
(v1-0 arg0)
|
|
(a0-1 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-1) dma) (new 'static 'dma-tag :id (dma-tag-id cnt) :qwc a2-0))
|
|
(set! (-> (the-as dma-packet a0-1) vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
|
|
(set! (-> (the-as dma-packet a0-1) vif1) (new 'static 'vif-tag :imm #x290 :cmd (vif-cmd unpack-v4-32) :num a2-0))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a0-1) 16))
|
|
)
|
|
(tfrag-data-setup (the-as tfrag-data (-> arg0 base)) arg1)
|
|
(&+! (-> arg0 base) 224)
|
|
(let ((v1-3 (the-as object (-> arg0 base))))
|
|
(set! (-> (the-as dma-packet v1-3) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet v1-3) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet v1-3) vif1) (new 'static 'vif-tag :cmd (vif-cmd mscal) :msk #x1))
|
|
(set! (-> arg0 base) (&+ (the-as pointer v1-3) 16))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defun add-pc-tfrag3-data ((dma-buf dma-buffer) (lev level))
|
|
"Add PC-port specific tfrag data"
|
|
(let ((packet (the-as dma-packet (-> dma-buf base))))
|
|
(set! (-> packet dma) (new 'static 'dma-tag :id (dma-tag-id cnt) :qwc 16))
|
|
(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)))
|
|
)
|
|
|
|
;; first 4 quadwords are planes, then itimes
|
|
(let ((data-ptr (the-as (pointer uint128) (-> dma-buf base))))
|
|
(set! (-> data-ptr 0) (-> *math-camera* plane 0 quad))
|
|
(set! (-> data-ptr 1) (-> *math-camera* plane 1 quad))
|
|
(set! (-> data-ptr 2) (-> *math-camera* plane 2 quad))
|
|
(set! (-> data-ptr 3) (-> *math-camera* plane 3 quad))
|
|
(set! (-> data-ptr 4) (-> lev mood itimes 0 quad))
|
|
(set! (-> data-ptr 5) (-> lev mood itimes 1 quad))
|
|
(set! (-> data-ptr 6) (-> lev mood itimes 2 quad))
|
|
(set! (-> data-ptr 7) (-> lev mood itimes 3 quad))
|
|
(set! (-> data-ptr 8) (-> *math-camera* camera-temp vector 0 quad))
|
|
(set! (-> data-ptr 9) (-> *math-camera* camera-temp vector 1 quad))
|
|
(set! (-> data-ptr 10) (-> *math-camera* camera-temp vector 2 quad))
|
|
(set! (-> data-ptr 11) (-> *math-camera* camera-temp vector 3 quad))
|
|
(set! (-> data-ptr 12) (-> *math-camera* hvdf-off quad))
|
|
(let ((vec (-> (the (inline-array vector) data-ptr) 13)))
|
|
(set! (-> vec x) (-> *math-camera* pfog0))
|
|
(set! (-> vec y) (-> *math-camera* fog-min))
|
|
(set! (-> vec z) (-> *math-camera* fog-max))
|
|
)
|
|
(set! (-> data-ptr 14) (-> (math-camera-pos) quad))
|
|
(charp<-string (the (pointer uint8) (&-> data-ptr 15)) (symbol->string (-> lev nickname)))
|
|
)
|
|
(&+! (-> dma-buf base) (* 16 16))
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;
|
|
;; TFRAG Stats
|
|
;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define t-stat (new 'global 'tfrag-stats))
|
|
|
|
(defun tfrag-print-stats ((arg0 symbol))
|
|
(when (and *tfrag-display-stats* (!= *master-mode* 'menu))
|
|
(format arg0 "~%")
|
|
(format arg0 "tris: ~8d~%" (-> t-stat tris))
|
|
(format
|
|
arg0
|
|
"verts: ~8d~%"
|
|
(+ (-> t-stat base-verts) (-> t-stat level0-verts) (-> t-stat level1-verts))
|
|
)
|
|
(format arg0 " base: ~8d~%" (-> t-stat base-verts))
|
|
(format arg0 " lev0: ~8d~%" (-> t-stat level0-verts))
|
|
(format arg0 " lev1: ~8d~%" (-> t-stat level1-verts))
|
|
(format arg0 "tfaces: ~8d~%" (-> t-stat tfaces))
|
|
(format arg0 "tfrags: ~8d~%" (-> t-stat tfrags))
|
|
(format arg0 "dtris: ~8d~%" (-> t-stat dtris))
|
|
(format arg0 "dps: ~8d~%" (-> t-stat drawpoints))
|
|
(format arg0 "strips: ~8d~%" (-> t-stat strips))
|
|
(format arg0 "shaders:~8d~%" (-> t-stat dma-tex))
|
|
(format arg0 "tri/str:~8f~%" (/ (the float (-> t-stat dtris)) (the float (-> t-stat strips))))
|
|
(format arg0 "dma-cnt:~8d (~8d)~%" (-> t-stat dma-cnt) (* (-> t-stat dma-cnt) 32))
|
|
(format arg0 "dma-dta:~8d (~8d)~%" (-> t-stat dma-dta) (/ (* 33 (-> t-stat dma-dta)) 10))
|
|
(let ((f0-4 (* 32.0 (the float (-> t-stat dma-cnt))))
|
|
(f1-5 (* 3.3 (the float (-> t-stat dma-dta))))
|
|
(f2-3 (* 30.0 (the float (-> t-stat tfrags))))
|
|
)
|
|
(+ f0-4 f1-5 f2-3)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(set! (-> t-stat from) 0)
|
|
(set! (-> t-stat to) 0)
|
|
(set! (-> t-stat cnt) 0)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; buffer
|
|
;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun tfrag-init-buffer ((arg0 dma-buffer) (arg1 gs-test) (arg2 int) (lev level))
|
|
(dma-buffer-add-vu-function arg0 tfrag-vu1-block 1)
|
|
(let* ((v1-0 arg0)
|
|
(a0-2 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-2) dma) (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet a0-2) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet a0-2) vif1) (new 'static 'vif-tag :imm #x2 :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a0-2) 16))
|
|
)
|
|
(let* ((v1-1 arg0)
|
|
(a0-4 (the-as object (-> v1-1 base)))
|
|
)
|
|
(set! (-> (the-as gs-gif-tag a0-4) tag) (new 'static 'gif-tag64 :nloop #x1 :eop #x1 :nreg #x1))
|
|
(set! (-> (the-as gs-gif-tag a0-4) regs)
|
|
(new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id a+d)
|
|
:regs1 (gif-reg-id a+d)
|
|
:regs2 (gif-reg-id a+d)
|
|
:regs3 (gif-reg-id a+d)
|
|
:regs4 (gif-reg-id a+d)
|
|
:regs5 (gif-reg-id a+d)
|
|
:regs6 (gif-reg-id a+d)
|
|
:regs7 (gif-reg-id a+d)
|
|
:regs8 (gif-reg-id a+d)
|
|
:regs9 (gif-reg-id a+d)
|
|
:regs10 (gif-reg-id a+d)
|
|
:regs11 (gif-reg-id a+d)
|
|
:regs12 (gif-reg-id a+d)
|
|
:regs13 (gif-reg-id a+d)
|
|
:regs14 (gif-reg-id a+d)
|
|
:regs15 (gif-reg-id a+d)
|
|
)
|
|
)
|
|
(set! (-> v1-1 base) (&+ (the-as pointer a0-4) 16))
|
|
)
|
|
(let* ((v1-2 arg0)
|
|
(a0-6 (-> v1-2 base))
|
|
)
|
|
(set! (-> (the-as (pointer gs-test) a0-6)) arg1)
|
|
(set! (-> (the-as (pointer gs-reg64) a0-6) 1) (gs-reg64 test-1))
|
|
(set! (-> v1-2 base) (&+ a0-6 16))
|
|
)
|
|
(add-tfrag-mtx-0 arg0)
|
|
(add-tfrag-mtx-1 arg0)
|
|
(add-tfrag-data arg0 arg2)
|
|
(#when PC_PORT
|
|
(add-pc-tfrag3-data arg0 lev)
|
|
)
|
|
(let ((v1-3 (the-as object (-> arg0 base))))
|
|
(set! (-> (the-as dma-packet v1-3) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet v1-3) vif0) (new 'static 'vif-tag :cmd (vif-cmd base)))
|
|
(set! (-> (the-as dma-packet v1-3) vif1) (new 'static 'vif-tag :imm #x148 :cmd (vif-cmd offset)))
|
|
(set! (-> arg0 base) (&+ (the-as pointer v1-3) 16))
|
|
)
|
|
(set! (-> *tfrag-work* last-call) (the-as uint 0))
|
|
(set! (-> t-stat cnt) 0)
|
|
(set! (-> t-stat tris) 0)
|
|
(set! (-> t-stat tfaces) 0)
|
|
(set! (-> t-stat tfrags) 0)
|
|
(set! (-> t-stat dtris) 0)
|
|
(set! (-> t-stat dma-cnt) 0)
|
|
(set! (-> t-stat dma-dta) 0)
|
|
(set! (-> t-stat dma-tex) 0)
|
|
(set! (-> t-stat strips) 0)
|
|
(set! (-> t-stat drawpoints) 0)
|
|
(set! (-> t-stat base-verts) 0)
|
|
(set! (-> t-stat level0-verts) 0)
|
|
(set! (-> t-stat level1-verts) 0)
|
|
(none)
|
|
)
|
|
|
|
(defun tfrag-end-buffer ((arg0 dma-buffer))
|
|
(let* ((v1-0 arg0)
|
|
(a1-0 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a1-0) dma) (new 'static 'dma-tag :qwc #x3 :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet a1-0) vif0) (new 'static 'vif-tag :cmd (vif-cmd stmask)))
|
|
(set! (-> (the-as dma-packet a1-0) vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a1-0) 16))
|
|
)
|
|
(let* ((v1-1 arg0)
|
|
(a0-1 (-> v1-1 base))
|
|
)
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 0) (the-as vif-tag (-> *tfrag-work* last-call)))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 1) (new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 2) (new 'static 'vif-tag :cmd (vif-cmd stmod)))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 3) (new 'static 'vif-tag :cmd (vif-cmd strow) :msk #x1))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 4) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 5) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 6) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 7) (the-as uint 0))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 8) (new 'static 'vif-tag :cmd (vif-cmd base)))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 9) (new 'static 'vif-tag :cmd (vif-cmd offset)))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 10) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 11) (new 'static 'vif-tag))
|
|
(set! (-> v1-1 base) (&+ a0-1 48))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;;(define-extern draw-inline-array-tfrag (function pointer drawable-inline-array int dma-buffer none))
|
|
(def-mips2c draw-inline-array-tfrag (function pointer drawable-inline-array int dma-buffer none))
|
|
|
|
|
|
(defun tfrag-near-init-buffer ((arg0 dma-buffer) (arg1 gs-test) (arg2 int))
|
|
(dma-buffer-add-vu-function arg0 tnear-vu1-block 1)
|
|
(let* ((v1-0 arg0)
|
|
(a0-2 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set!
|
|
(-> (the-as dma-packet a0-2) dma)
|
|
(new 'static 'dma-tag :qwc #x2 :id (dma-tag-id cnt))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-2) vif0) (new 'static 'vif-tag))
|
|
(set!
|
|
(-> (the-as dma-packet a0-2) vif1)
|
|
(new 'static 'vif-tag :imm #x2 :cmd (vif-cmd direct) :msk #x1)
|
|
)
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a0-2) 16))
|
|
)
|
|
(let* ((v1-1 arg0)
|
|
(a0-4 (the-as object (-> v1-1 base)))
|
|
)
|
|
(set!
|
|
(-> (the-as gs-gif-tag a0-4) tag)
|
|
(new 'static 'gif-tag64 :nloop #x1 :eop #x1 :nreg #x1)
|
|
)
|
|
(set!
|
|
(-> (the-as gs-gif-tag a0-4) regs)
|
|
(new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id a+d)
|
|
:regs1 (gif-reg-id a+d)
|
|
:regs2 (gif-reg-id a+d)
|
|
:regs3 (gif-reg-id a+d)
|
|
:regs4 (gif-reg-id a+d)
|
|
:regs5 (gif-reg-id a+d)
|
|
:regs6 (gif-reg-id a+d)
|
|
:regs7 (gif-reg-id a+d)
|
|
:regs8 (gif-reg-id a+d)
|
|
:regs9 (gif-reg-id a+d)
|
|
:regs10 (gif-reg-id a+d)
|
|
:regs11 (gif-reg-id a+d)
|
|
:regs12 (gif-reg-id a+d)
|
|
:regs13 (gif-reg-id a+d)
|
|
:regs14 (gif-reg-id a+d)
|
|
:regs15 (gif-reg-id a+d)
|
|
)
|
|
)
|
|
(set! (-> v1-1 base) (&+ (the-as pointer a0-4) 16))
|
|
)
|
|
(let* ((v1-2 arg0)
|
|
(a0-6 (-> v1-2 base))
|
|
)
|
|
(set! (-> (the-as (pointer gs-test) a0-6)) arg1)
|
|
(set! (-> (the-as (pointer gs-reg64) a0-6) 1) (gs-reg64 test-1))
|
|
(set! (-> v1-2 base) (&+ a0-6 16))
|
|
)
|
|
(add-tfrag-mtx-0 arg0)
|
|
(add-tfrag-mtx-1 arg0)
|
|
(add-tfrag-data arg0 arg2)
|
|
(let ((v1-3 (the-as object (-> arg0 base))))
|
|
(set!
|
|
(-> (the-as dma-packet v1-3) dma)
|
|
(new 'static 'dma-tag :id (dma-tag-id cnt))
|
|
)
|
|
(set!
|
|
(-> (the-as dma-packet v1-3) vif0)
|
|
(new 'static 'vif-tag :cmd (vif-cmd base))
|
|
)
|
|
(set!
|
|
(-> (the-as dma-packet v1-3) vif1)
|
|
(new 'static 'vif-tag :imm #x148 :cmd (vif-cmd offset))
|
|
)
|
|
(set! (-> arg0 base) (&+ (the-as pointer v1-3) 16))
|
|
)
|
|
(set! (-> *tfrag-work* last-call) (the-as uint 0))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function tfrag-near-end-buffer
|
|
;; INFO: Return type mismatch symbol vs none.
|
|
(defun tfrag-near-end-buffer ((arg0 dma-buffer))
|
|
(let* ((v1-0 arg0)
|
|
(a1-0 (the-as object (-> v1-0 base)))
|
|
)
|
|
(set!
|
|
(-> (the-as dma-packet a1-0) dma)
|
|
(new 'static 'dma-tag :qwc #x3 :id (dma-tag-id cnt))
|
|
)
|
|
(set!
|
|
(-> (the-as dma-packet a1-0) vif0)
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmask))
|
|
)
|
|
(set! (-> (the-as dma-packet a1-0) vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-0 base) (&+ (the-as pointer a1-0) 16))
|
|
)
|
|
(let* ((v1-1 arg0)
|
|
(a0-1 (-> v1-1 base))
|
|
)
|
|
(set! (-> (the-as (pointer uint32) a0-1)) (-> *tfrag-work* last-call))
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 1)
|
|
(new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1)
|
|
)
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 2)
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
)
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 3)
|
|
(new 'static 'vif-tag :cmd (vif-cmd strow) :msk #x1)
|
|
)
|
|
(set! (-> (the-as (pointer uint32) a0-1) 4) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 5) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 6) (the-as uint 0))
|
|
(set! (-> (the-as (pointer uint32) a0-1) 7) (the-as uint 0))
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 8)
|
|
(new 'static 'vif-tag :cmd (vif-cmd base))
|
|
)
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 9)
|
|
(new 'static 'vif-tag :cmd (vif-cmd offset))
|
|
)
|
|
(set!
|
|
(-> (the-as (pointer vif-tag) a0-1) 10)
|
|
(new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
|
)
|
|
(set! (-> (the-as (pointer vif-tag) a0-1) 11) (new 'static 'vif-tag))
|
|
(set! (-> v1-1 base) (&+ a0-1 48))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(define-extern draw-inline-array-tfrag-near (function pointer drawable-inline-array int dma-buffer none))
|
|
|
|
(def-mips2c stats-tfrag-asm (function tfragment none))
|