mirror of
https://github.com/open-goal/jak-project
synced 2026-06-08 20:29:54 -04:00
ManDude
8ca67a5c21
* add (most) PAL changes to `main` * fix examplecam movement * fix up camera code * Use `score` system when decompiling structures * typo * restore asserts
32 lines
826 B
Common Lisp
32 lines
826 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: cam-debug.gc
|
|
;; name in dgo: cam-debug
|
|
;; dgos: GAME, ENGINE
|
|
|
|
(when *debug-segment*
|
|
|
|
(defun external-cam-reset! ()
|
|
(vector-reset! (-> *math-camera* trans))
|
|
(matrix-identity! (-> *math-camera* inv-camera-rot))
|
|
(when *camera-combiner*
|
|
(let* ((v1-6 (-> *math-camera* inv-camera-rot))
|
|
(a3-0 (-> *camera-combiner* inv-camera-rot))
|
|
(a0-2 (-> a3-0 vector 0 quad))
|
|
(a1-0 (-> a3-0 vector 1 quad))
|
|
(a2-0 (-> a3-0 vector 2 quad))
|
|
(a3-1 (-> a3-0 vector 3 quad))
|
|
)
|
|
(set! (-> v1-6 vector 0 quad) a0-2)
|
|
(set! (-> v1-6 vector 1 quad) a1-0)
|
|
(set! (-> v1-6 vector 2 quad) a2-0)
|
|
(set! (-> v1-6 vector 3 quad) a3-1)
|
|
)
|
|
(set! (-> *math-camera* trans quad) (-> *camera-combiner* trans quad))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
) |