mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
79 lines
2.3 KiB
Common Lisp
79 lines
2.3 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: eye-h.gc
|
|
;; name in dgo: eye-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
(define-extern get-eye-block (function int int int))
|
|
(define-extern merc-eye-anim (function process-drawable none))
|
|
(define-extern update-eyes (function none))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype eye (structure)
|
|
((data vector 2 :inline :offset-assert 0)
|
|
(x float :offset 0)
|
|
(y float :offset 4)
|
|
(lid float :offset 8)
|
|
(iris-scale float :offset 16)
|
|
(pupil-scale float :offset 20)
|
|
(lid-scale float :offset 24)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
|
|
(deftype eye-control (structure)
|
|
((process handle :offset-assert 0)
|
|
(random-time uint16 :offset-assert 8)
|
|
(level uint16 :offset-assert 10)
|
|
(blink float :offset-assert 12)
|
|
(shaders (inline-array adgif-shader) :offset-assert 16)
|
|
(left eye :inline :offset-assert 32)
|
|
(right eye :inline :offset-assert 64)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x60
|
|
:flag-assert #x900000060
|
|
)
|
|
|
|
|
|
(deftype eye-control-array (basic)
|
|
((data eye-control 11 :inline :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x430
|
|
:flag-assert #x900000430
|
|
)
|
|
|
|
|
|
(deftype eye-work (structure)
|
|
((sprite-tmpl dma-gif-packet :inline :offset-assert 0)
|
|
(sprite-tmpl2 dma-gif-packet :inline :offset-assert 32)
|
|
(adgif-tmpl dma-gif-packet :inline :offset-assert 64)
|
|
(blink-table float 10 :offset-assert 96)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x88
|
|
:flag-assert #x900000088
|
|
)
|
|
|
|
|
|
(define *eye-control-array* (new 'static 'eye-control-array))
|
|
|
|
(dotimes (v1-5 11)
|
|
(set! (-> *eye-control-array* data v1-5 process) (the-as handle #f))
|
|
(set! (-> *eye-control-array* data v1-5 shaders) (the-as (inline-array adgif-shader) #f))
|
|
(set! (-> *eye-control-array* data v1-5 random-time) (the-as uint 60))
|
|
(set! (-> *eye-control-array* data v1-5 blink) 0.0)
|
|
)
|
|
|
|
0
|
|
|
|
|
|
|
|
|