mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
41 lines
1.2 KiB
Common Lisp
41 lines
1.2 KiB
Common Lisp
|
|
||
|
|
||
|
(defun open-progress ()
|
||
|
(if (not *target*)
|
||
|
(test-make-target))
|
||
|
(activate-progress *dproc* (the progress-screen 0)))
|
||
|
|
||
|
|
||
|
|
||
|
(defun debug-dump-hud-sprite ((count int))
|
||
|
(dotimes (i count)
|
||
|
(let ((arr (the (inline-array sprite-vec-data-2d) (&-> *sprite-array-2d* data (* 1920 3)))))
|
||
|
(format #t "----------------------~D~%" i)
|
||
|
;; first, the data
|
||
|
(inspect (-> arr i))
|
||
|
;; next, adgif
|
||
|
(let ((adg (-> *sprite-array-2d* adgif-data (+ 1920 i))))
|
||
|
(inspect (-> adg tex0))
|
||
|
(inspect (-> adg tex1))
|
||
|
)
|
||
|
;; matrix
|
||
|
(when (nonzero? (-> arr i matrix))
|
||
|
(inspect (the vector (-> *sprite-hvdf-data* data (-> arr i matrix))))
|
||
|
)
|
||
|
;; vector
|
||
|
(let ((vec (the (inline-array vector) (&+ (-> *sprite-array-2d* vec-data) (* 16 3 (+ i 1920))))))
|
||
|
(dotimes (j 3)
|
||
|
(print (-> vec j))
|
||
|
(format #t "~%")
|
||
|
)
|
||
|
)
|
||
|
(format #t "~%")
|
||
|
)
|
||
|
)
|
||
|
)
|
||
|
|
||
|
|
||
|
;; these are part-group-id-table entries for sprites that should work.
|
||
|
(define *test-sprite-ids* (new 'static 'boxed-array :type int32 :length 13
|
||
|
85 86 87 91 570 571 572 573 92 93 94 95 96)
|
||
|
)
|