mirror of
https://github.com/open-goal/jak-project
synced 2026-05-24 07:11:15 -04:00
water111
6227c6d6a8
also make jak 1 and jak 2 behave the same way, to reduce confusion. It wasn't too bad to update jak 1.
101 lines
4.3 KiB
Common Lisp
Vendored
Generated
101 lines
4.3 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function make-debug-sphere-table
|
|
;; INFO: Used lq/sq
|
|
(defun make-debug-sphere-table ((points vector-array) (h-lines float) (v-lines float))
|
|
(local-vars (next-hz vector) (next-vt vector) (h-line int))
|
|
(let ((offset (new-stack-vector0))
|
|
(scale 1.0)
|
|
(num-points 0)
|
|
)
|
|
(set-vector! offset 0.0 0.0 0.0 1.0)
|
|
(dotimes (v-line (the int v-lines))
|
|
(let ((f28-0 (* scale (sin (* (the float v-line) (/ 32768.0 v-lines)))))
|
|
(f26-0 (* scale (sin (* (the float (+ v-line 1)) (/ 32768.0 v-lines)))))
|
|
(current (new-stack-vector0))
|
|
)
|
|
(set! next-hz (new 'stack-no-clear 'vector))
|
|
(set! (-> next-hz quad) (the-as uint128 0))
|
|
(set! next-vt (new 'stack-no-clear 'vector))
|
|
(set! (-> next-vt quad) (the-as uint128 0))
|
|
(set! (-> current y) (+ (-> offset y) (* (cos (* (the float v-line) (/ 32768.0 v-lines))) scale)))
|
|
(set! (-> next-hz y) (-> current y))
|
|
(set! (-> next-vt y) (+ (-> offset y) (* (cos (* (the float (+ v-line 1)) (/ 32768.0 v-lines))) scale)))
|
|
(set! h-line 0)
|
|
(while (< h-line (the int h-lines))
|
|
(set! (-> current x) (+ (-> offset x) (* (cos (* (the float h-line) (/ 65536.0 h-lines))) f28-0)))
|
|
(set! (-> current z) (+ (-> offset z) (* (sin (* (the float h-line) (/ 65536.0 h-lines))) f28-0)))
|
|
(set! (-> next-hz x) (+ (-> offset x) (* (cos (* (the float (+ h-line 1)) (/ 65536.0 h-lines))) f28-0)))
|
|
(set! (-> next-hz z) (+ (-> offset z) (* (sin (* (the float (+ h-line 1)) (/ 65536.0 h-lines))) f28-0)))
|
|
(set! (-> next-vt x) (+ (-> offset x) (* (cos (* (the float h-line) (/ 65536.0 h-lines))) f26-0)))
|
|
(set! (-> next-vt z) (+ (-> offset z) (* (sin (* (the float h-line) (/ 65536.0 h-lines))) f26-0)))
|
|
(set! (-> points data num-points quad) (-> current quad))
|
|
(set! (-> points data (+ num-points 1) quad) (-> next-hz quad))
|
|
(set! (-> points data (+ num-points 2) quad) (-> next-vt quad))
|
|
(+! num-points 3)
|
|
(set! h-line (+ h-line 1))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> points length) num-points)
|
|
)
|
|
points
|
|
)
|
|
|
|
;; this part is debug only
|
|
(when *debug-segment*
|
|
;; definition for symbol *debug-sphere-table*, type (array vector-array)
|
|
(define *debug-sphere-table* (new 'debug 'boxed-array vector-array 10))
|
|
|
|
)
|
|
;; definition for function add-debug-sphere-from-table
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun add-debug-sphere-from-table ((bucket bucket-id) (position vector) (radius meters) (color rgba) (table-idx int))
|
|
(local-vars (sphere-points vector-array) (point-3 vector))
|
|
(rlet ((vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
)
|
|
(if (zero? (-> *debug-sphere-table* table-idx))
|
|
(set! (-> *debug-sphere-table* table-idx) (make-debug-sphere-table
|
|
(new 'debug 'vector-array (* (* 3 table-idx) table-idx))
|
|
(the float table-idx)
|
|
(the float table-idx)
|
|
)
|
|
)
|
|
)
|
|
(set! sphere-points (-> *debug-sphere-table* table-idx))
|
|
(set! point-3 (the-as vector (new-stack-vector0)))
|
|
(let ((point-1 (new-stack-vector0))
|
|
(point-2 (new-stack-vector0))
|
|
(points (-> sphere-points data))
|
|
)
|
|
(.lvf vf1 (&-> position quad))
|
|
(.mov vf2 radius)
|
|
(countdown (s4-1 (/ (-> sphere-points length) 3))
|
|
(.lvf vf3 (&-> points 0 quad))
|
|
(.lvf vf4 (&-> points 1 quad))
|
|
(.lvf vf5 (&-> points 2 quad))
|
|
(set! points (the-as (inline-array vector) (-> points 3)))
|
|
(.mul.x.vf vf3 vf3 vf2)
|
|
(.mul.x.vf vf4 vf4 vf2)
|
|
(.mul.x.vf vf5 vf5 vf2)
|
|
(.add.vf vf3 vf3 vf1)
|
|
(.add.vf vf4 vf4 vf1)
|
|
(.add.vf vf5 vf5 vf1)
|
|
(.svf (&-> point-1 quad) vf3)
|
|
(.svf (&-> point-2 quad) vf4)
|
|
(.svf (&-> point-3 quad) vf5)
|
|
(add-debug-line #t bucket point-1 point-2 color #f (the-as rgba -1))
|
|
(add-debug-line #t bucket point-1 point-3 color #f (the-as rgba -1))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|