mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 23:47:57 -04:00
Tyler Wilding
340 lines
7.9 KiB
Common Lisp
Vendored
340 lines
7.9 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function add-fake-shadow-to-buffer
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun
|
|
add-fake-shadow-to-buffer
|
|
((arg0 vector) (arg1 vector) (arg2 float) (arg3 int))
|
|
(let ((v1-0 *fake-shadow-buffer*))
|
|
(when (< (-> v1-0 num-shadows) 32)
|
|
(let ((t0-5 (-> v1-0 data (-> v1-0 num-shadows))))
|
|
(set! (-> t0-5 px) (-> arg0 x))
|
|
(set! (-> t0-5 py) (-> arg0 y))
|
|
(set! (-> t0-5 pz) (-> arg0 z))
|
|
(set! (-> t0-5 scale) arg2)
|
|
(set! (-> t0-5 qx) (-> arg1 x))
|
|
(set! (-> t0-5 qy) (-> arg1 y))
|
|
(set! (-> t0-5 qz) (-> arg1 z))
|
|
(set! (-> t0-5 flags) arg3)
|
|
)
|
|
(+! (-> v1-0 num-shadows) 1)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function swap-fake-shadow-buffers
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun swap-fake-shadow-buffers ()
|
|
(set! *fake-shadow-buffer* (if (= *fake-shadow-buffer* *fake-shadow-buffer-1*)
|
|
*fake-shadow-buffer-2*
|
|
*fake-shadow-buffer-1*
|
|
)
|
|
)
|
|
(set! (-> *fake-shadow-buffer* num-shadows) 0)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function draw-shadow
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun
|
|
draw-shadow
|
|
((arg0 vector)
|
|
(arg1 vector)
|
|
(arg2 vector)
|
|
(arg3 float)
|
|
(arg4 float)
|
|
(arg5 float)
|
|
)
|
|
(let ((f0-1 (- (-> arg0 y) (-> arg1 y))))
|
|
(if (< f0-1 arg4)
|
|
(add-fake-shadow-to-buffer
|
|
arg1
|
|
arg2
|
|
(* (- 1.0 (/ f0-1 arg4)) arg3)
|
|
(the-as int arg5)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function compute-and-draw-shadow
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun
|
|
compute-and-draw-shadow
|
|
((arg0 vector)
|
|
(arg1 vector)
|
|
(arg2 vector)
|
|
(arg3 vector)
|
|
(arg4 float)
|
|
(arg5 float)
|
|
)
|
|
(local-vars
|
|
(v1-10 float)
|
|
(v1-11 float)
|
|
(sv-96 vector)
|
|
(sv-112 (function quaternion vector float quaternion))
|
|
(sv-128 vector)
|
|
(sv-144 vector)
|
|
)
|
|
(rlet ((vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(set! sv-96 arg2)
|
|
(let ((s4-0 arg3)
|
|
(s3-0 arg4)
|
|
(s2-0 arg5)
|
|
)
|
|
(when (< (- (-> arg0 y) (-> arg1 y)) s3-0)
|
|
(set! sv-144 (new 'stack-no-clear 'vector))
|
|
(let ((s0-0 (new 'stack-no-clear 'vector))
|
|
(s1-0 (new 'stack-no-clear 'sparticle-cpuinfo))
|
|
)
|
|
(set! (-> arg1 y) (+ 40.96 (-> arg1 y)))
|
|
(set! (-> sv-144 x) (-> sv-96 z))
|
|
(set! (-> sv-144 y) 0.0)
|
|
(set! (-> sv-144 z) (- (-> sv-96 x)))
|
|
(vector-normalize! sv-144 1.0)
|
|
(set! sv-112 quaternion-vector-angle!)
|
|
(set! sv-128 s0-0)
|
|
(let ((a2-1 (acos (-> sv-96 y))))
|
|
(sv-112 (the-as quaternion sv-128) sv-144 a2-1)
|
|
)
|
|
(let ((v1-9 s1-0))
|
|
(cond
|
|
((< (-> s0-0 w) 0.0)
|
|
(.lvf vf1 (&-> v1-9 vel-sxvel quad))
|
|
(.lvf vf2 (&-> s0-0 quad))
|
|
(.sub.vf vf1 vf0 vf2 :mask #b111)
|
|
(.svf (&-> v1-9 vel-sxvel quad) vf1)
|
|
(.mov v1-10 vf1)
|
|
)
|
|
(else
|
|
(.lvf vf1 (&-> v1-9 vel-sxvel quad))
|
|
(.lvf vf2 (&-> s0-0 quad))
|
|
(.add.vf vf1 vf0 vf2 :mask #b111)
|
|
(.svf (&-> v1-9 vel-sxvel quad) vf1)
|
|
(.mov v1-11 vf1)
|
|
)
|
|
)
|
|
)
|
|
(draw-shadow arg0 arg1 (-> s1-0 vel-sxvel) (the-as float s4-0) s3-0 s2-0)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for function find-ground-and-draw-shadow
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun
|
|
find-ground-and-draw-shadow
|
|
((arg0 vector)
|
|
(arg1 vector)
|
|
(arg2 float)
|
|
(arg3 uint)
|
|
(arg4 process)
|
|
(arg5 float)
|
|
(arg6 float)
|
|
)
|
|
(let ((s2-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s2-0 quad) (-> arg0 quad))
|
|
(new 'stack-no-clear 'vector)
|
|
(+! (-> s2-0 y) arg5)
|
|
(let ((s4-0 (new 'stack-no-clear 'bone)))
|
|
(cond
|
|
((>=
|
|
(dummy-12 *collide-cache* s2-0 arg6 arg3 arg4 s4-0 (the-as uint 1))
|
|
0.0
|
|
)
|
|
(if (!= arg2 0.0)
|
|
(compute-and-draw-shadow
|
|
s2-0
|
|
(-> s4-0 transform vector 3)
|
|
(-> s4-0 scale)
|
|
(the-as vector arg2)
|
|
arg6
|
|
(the-as float 0)
|
|
)
|
|
)
|
|
(if (and arg1 (!= (shr (shl (-> s4-0 cache bone-matrix) 52) 58) 3))
|
|
(set! (-> arg1 quad) (-> s4-0 transform vector 3 quad))
|
|
)
|
|
)
|
|
(else
|
|
(if arg1
|
|
(vector+float*!
|
|
arg1
|
|
arg0
|
|
(-> *standard-dynamics* gravity-normal)
|
|
(- arg6)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function do-target-shadow
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defbehavior do-target-shadow target ()
|
|
(if
|
|
(and
|
|
(logtest? (-> self control status) 1)
|
|
(!= (-> self control unknown-surface mode) 'swim)
|
|
(!= (-> self control unknown-surface mode) 'dive)
|
|
(!= (-> self next-state name) 'target-flop)
|
|
(zero? (logand (-> self draw status) 38))
|
|
)
|
|
(set! (-> self control shadow-pos quad) (-> self control trans quad))
|
|
(find-ground-and-draw-shadow
|
|
(-> self control trans)
|
|
(-> self control shadow-pos)
|
|
0.0
|
|
(-> (the-as collide-shape-prim (-> self control root-prim)) collide-with)
|
|
self
|
|
0.0
|
|
81920.0
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set!
|
|
(-> *part-id-table* 362)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 20
|
|
(new 'static 'sp-field-init-spec :field #x1 :initial-value #x200000)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x6
|
|
:flags #x1
|
|
:initial-value #x41000000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #xd
|
|
:flags #x1
|
|
:initial-value #x4499999a
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x10
|
|
:flags #x1
|
|
:initial-value -956301312
|
|
:random-range #x47800000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x11
|
|
:flags #x3
|
|
:initial-value -4
|
|
:random-mult 1
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x12
|
|
:flags #x1
|
|
:initial-value #x42b40000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x13
|
|
:flags #x1
|
|
:initial-value #x42b40000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x14
|
|
:flags #x1
|
|
:initial-value #x42b40000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x15
|
|
:flags #x1
|
|
:initial-value #x41a00000
|
|
:random-range #x41a00000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x1a
|
|
:flags #x1
|
|
:initial-value #x4103126f
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x1c
|
|
:flags #x1
|
|
:initial-value #x41888889
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x20
|
|
:flags #x3
|
|
:initial-value -4
|
|
:random-mult 1
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x24
|
|
:flags #x1
|
|
:initial-value -1097229926
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x2e
|
|
:initial-value #x138c
|
|
:random-mult 1
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x2f
|
|
:initial-value 12
|
|
:random-mult 1
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x36
|
|
:flags #x1
|
|
:initial-value -983331271
|
|
:random-range #x452aaaab
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x3a
|
|
:flags #x1
|
|
:initial-value #x46800000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x3b
|
|
:flags #x1
|
|
:initial-value -956301312
|
|
:random-range #x47800000
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec
|
|
:field #x3e
|
|
:flags #x1
|
|
:initial-value #x444ccccd
|
|
:random-mult #x3f800000
|
|
)
|
|
(new 'static 'sp-field-init-spec :field #x43)
|
|
)
|
|
)
|
|
)
|