mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
65 lines
1.7 KiB
Common Lisp
65 lines
1.7 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: tfrag-work.gc
|
|
;; name in dgo: tfrag-work
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; definition for symbol *tfrag-work*, type tfrag-work
|
|
(define
|
|
*tfrag-work*
|
|
(new 'static 'tfrag-work
|
|
:base-tmpl
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
|
)
|
|
:level-0-tmpl
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
|
)
|
|
:common-tmpl
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
|
)
|
|
:level-1-tmpl
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
|
)
|
|
:color-tmpl
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id cnt))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x102 :cmd (vif-cmd stcycl))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #xc000 :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:max-dist (new 'static 'vector :z 4095996000.0)
|
|
)
|
|
)
|
|
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *tfrag-work* color-ptr x) (+ 6160 (the-as int *fake-scratchpad-data*)))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *tfrag-work* color-ptr y) (+ 6160 (the-as int *fake-scratchpad-data*)))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *tfrag-work* color-ptr z) (+ 6160 (the-as int *fake-scratchpad-data*)))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *tfrag-work* color-ptr w) (+ 6160 (the-as int *fake-scratchpad-data*)))
|