mirror of
https://github.com/open-goal/jak-project
synced 2026-09-12 04:49:19 -04:00
@@ -7,7 +7,7 @@
|
||||
|
||||
|
||||
(deftype pos-history (structure)
|
||||
((points uint32 :offset-assert 0)
|
||||
((points (inline-array vector) :offset-assert 0)
|
||||
(num-points int32 :offset-assert 4)
|
||||
(h-first int32 :offset-assert 8)
|
||||
(h-last int32 :offset-assert 12)
|
||||
@@ -28,7 +28,6 @@
|
||||
:flag-assert #x900000020
|
||||
)
|
||||
|
||||
|
||||
(deftype debug-vertex-stats (basic)
|
||||
((length int32 :offset-assert 4)
|
||||
(pos-count int32 :offset-assert 8)
|
||||
@@ -37,11 +36,12 @@
|
||||
:method-count-assert 9
|
||||
:size-assert #x4b10
|
||||
:flag-assert #x900004b10
|
||||
;; inspect method is overriden in debug.gc
|
||||
)
|
||||
|
||||
|
||||
(define-extern add-debug-matrix (function symbol bucket-id matrix none))
|
||||
(define-extern add-debug-text-sphere (function symbol bucket-id vector float string rgba none))
|
||||
(define-extern add-debug-matrix (function symbol bucket-id matrix matrix))
|
||||
(define-extern add-debug-text-sphere (function symbol bucket-id vector float string rgba symbol))
|
||||
;; TODO - for trajectory.gc
|
||||
(define-extern add-debug-line (function symbol int vector vector rgba symbol int int))
|
||||
(define-extern add-debug-line (function symbol bucket-id vector vector rgba symbol rgba symbol))
|
||||
|
||||
(defun-extern add-debug-sphere symbol bucket-id vector float rgba symbol)
|
||||
@@ -96,7 +96,7 @@
|
||||
;; Used lq/sq
|
||||
(defun
|
||||
add-debug-sphere-from-table
|
||||
((arg0 int) (arg1 vector) (arg2 vector) (arg3 rgba))
|
||||
((arg0 bucket-id) (arg1 vector) (arg2 float) (arg3 rgba))
|
||||
(rlet ((vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
(vf3 :class vf)
|
||||
@@ -124,8 +124,8 @@
|
||||
(.svf (&-> s4-0 quad) vf3)
|
||||
(.svf (&-> s3-0 quad) vf4)
|
||||
(.svf (&-> s2-0 quad) vf5)
|
||||
(add-debug-line #t arg0 s4-0 s3-0 arg3 #f -1)
|
||||
(add-debug-line #t arg0 s4-0 s2-0 arg3 #f -1)
|
||||
(add-debug-line #t arg0 s4-0 s3-0 arg3 #f (the rgba -1))
|
||||
(add-debug-line #t arg0 s4-0 s2-0 arg3 #f (the rgba -1))
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user