mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
2556284293
* decomp: finish `shrub-work` * decomp: update reference tests * decomp: update `goal_src` entries * decomp: finish `tie-work` * decomp: add to `goal_src`
206 lines
5.5 KiB
Common Lisp
206 lines
5.5 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: tie-work.gc
|
|
;; name in dgo: tie-work
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; definition for symbol *instance-tie-work*, type instance-tie-work
|
|
(define
|
|
*instance-tie-work*
|
|
(new 'static 'instance-tie-work
|
|
:wind-const
|
|
(new 'static 'vector :x 0.5 :y 100.0 :z 0.0166 :w -1.0)
|
|
:constant
|
|
(new 'static 'vector :x 4096.0 :y 128.0)
|
|
:far-morph (new 'static 'vector :x 1.0 :w 256.0)
|
|
:upload-color-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x6 :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x80c6 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
|
)
|
|
:upload-color-1
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #xc0cc :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:upload-color-2
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id next))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
)
|
|
:upload-color-ret
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ret))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
)
|
|
:generic-color-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x6 :id (dma-tag-id ref))
|
|
:vif0 (new 'static 'vif-tag :imm #x3)
|
|
)
|
|
:generic-color-1
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
|
|
:generic-color-end
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id end)))
|
|
:refl-fade-fac -0.000625
|
|
:refl-fade-end 409600.0
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *instance-tie-work* upload-color-2 vif1)
|
|
(new 'static 'vif-tag :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *instance-tie-work* upload-color-ret vif1)
|
|
(new 'static 'vif-tag :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
;; definition for symbol *prototype-tie-work*, type prototype-tie-work
|
|
(define
|
|
*prototype-tie-work*
|
|
(new 'static 'prototype-tie-work
|
|
:upload-palette-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id cnt))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1)
|
|
)
|
|
:upload-palette-1
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x20 :id (dma-tag-id cnt))
|
|
:vif0
|
|
(new 'static 'vif-tag :imm #x1 :cmd (vif-cmd stmod))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x4346 :num #x80 :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:upload-model-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
:vif1
|
|
(new 'static 'vif-tag :cmd (vif-cmd unpack-v4-32))
|
|
)
|
|
:upload-model-1
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x4000 :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:upload-model-2
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x32 :cmd (vif-cmd unpack-v4-16))
|
|
)
|
|
:upload-model-3
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id call)))
|
|
:upload-model-near-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0
|
|
(new 'static 'vif-tag :cmd (vif-cmd stmod))
|
|
:vif1
|
|
(new 'static 'vif-tag :cmd (vif-cmd unpack-v4-32))
|
|
)
|
|
:upload-model-near-1
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x4000 :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:upload-model-near-2
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x1e :cmd (vif-cmd unpack-v4-8))
|
|
)
|
|
:upload-model-near-3
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x32 :cmd (vif-cmd unpack-v4-16))
|
|
)
|
|
:upload-model-near-4
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id call)))
|
|
:generic-envmap-shader
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x5 :id (dma-tag-id ref))
|
|
:vif0 (new 'static 'vif-tag :imm #x1)
|
|
)
|
|
:generic-palette
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x20 :id (dma-tag-id cnt))
|
|
:vif0 (new 'static 'vif-tag :imm #x1)
|
|
)
|
|
:generic-model-0
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :id (dma-tag-id ref))
|
|
:vif0 (new 'static 'vif-tag :imm #x2)
|
|
)
|
|
:generic-model-1
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
|
|
:generic-model-2
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
|
|
:generic-model-next
|
|
(new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
:clamp #x8000ff00ff00ff
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *prototype-tie-work* upload-model-1 vif0)
|
|
(new 'static 'vif-tag :imm #x4 :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *prototype-tie-work* upload-model-3 vif0)
|
|
(new 'static 'vif-tag :imm #x6 :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *prototype-tie-work* upload-model-near-1 vif0)
|
|
(new 'static 'vif-tag :imm #x4 :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *prototype-tie-work* upload-model-near-4 vif0)
|
|
(new 'static 'vif-tag :imm #x6 :cmd (vif-cmd mscal) :msk #x1)
|
|
)
|
|
|
|
|
|
|
|
|