mirror of
https://github.com/open-goal/jak-project
synced 2026-08-16 21:28:00 -04:00
Tyler Wilding
25 lines
1.0 KiB
Common Lisp
25 lines
1.0 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))
|