mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
63 lines
1.4 KiB
Common Lisp
63 lines
1.4 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: eye.gc
|
|
;; name in dgo: eye
|
|
;; dgos: GAME, ENGINE
|
|
|
|
|
|
(define
|
|
*eye-work*
|
|
(new 'static 'eye-work
|
|
:sprite-tmpl
|
|
(new 'static 'dma-gif-packet
|
|
:dma-vif
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
|
|
)
|
|
:gif
|
|
(new 'static 'array uint64 2 #x508b400000008001 #x53531)
|
|
)
|
|
:sprite-tmpl2
|
|
(new 'static 'dma-gif-packet
|
|
:dma-vif
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
|
|
)
|
|
:gif
|
|
(new 'static 'array uint64 2 #x50ab400000008001 #x53531)
|
|
)
|
|
:adgif-tmpl
|
|
(new 'static 'dma-gif-packet
|
|
:dma-vif
|
|
(new 'static 'dma-packet
|
|
:dma
|
|
(new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
|
:vif1
|
|
(new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
|
|
)
|
|
:gif
|
|
(new 'static 'array uint64 2 #x1000000000008005 #xe)
|
|
)
|
|
:blink-table
|
|
(new 'static 'array float 10 0.0 0.667 0.9 1.0 1.0 1.0 1.0 0.333 0.1 0.0)
|
|
)
|
|
)
|
|
|
|
|
|
(defun get-eye-block ((arg0 int) (arg1 int))
|
|
(let ((v1-0 arg0)
|
|
(a0-4 (-> ct32-24-block-table (* arg1 4)))
|
|
)
|
|
(+ *eyes-base-block* (* v1-0 32) a0-4)
|
|
)
|
|
)
|
|
|
|
(defun merc-eye-anim ((arg0 process-drawable))
|
|
(none)) |