mirror of
https://github.com/open-goal/jak-project
synced 2026-06-29 19:42:41 -04:00
water111
8846968963
* Update assert.h * stuff for `process-drawable` to work * add windows code for debugger * debugger attaches * something works * remove bad ideas * `(:break)` works * connection fixes * fixes + update docs * crates & `defskelgroup` macro * clang * update tests and a few types * temp * temp * fix files * game builds * reverse TypeConsistency operation * add eye stuff for merc art login * add `(:sym-name)` * oops * add `--auto-dbg` option to gc args * codacy * improve robustness of dgo unpacker and objectfiledb reading * `cavegeyserrock` * hopefully fix linux * windows FormatMessage weirdness? * mutex fixes * fix merge conflicts Co-authored-by: ManDude <7569514+ManDude@users.noreply.github.com>
60 lines
1.3 KiB
Common Lisp
60 lines
1.3 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)
|
|
)
|
|
) |