mirror of
https://github.com/open-goal/jak-project
synced 2026-05-31 01:16:12 -04:00
water111
53 lines
1.5 KiB
Common Lisp
53 lines
1.5 KiB
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)
|
|
)
|
|
|
|
(defun debug-set-camera-pos-rot! ((arg0 vector) (arg1 matrix))
|
|
(when (and *camera* *camera-combiner*)
|
|
(send-event *camera* 'change-state cam-free-floating 0)
|
|
(set! (-> *camera-combiner* trans quad) (-> arg0 quad))
|
|
(let ((a2-0 (-> *camera-combiner* inv-camera-rot))
|
|
(v1-10 (-> arg1 vector 0 quad))
|
|
(a0-4 (-> arg1 vector 1 quad))
|
|
(a1-2 (-> arg1 vector 2 quad))
|
|
(a3-0 (-> arg1 vector 3 quad))
|
|
)
|
|
(set! (-> a2-0 vector 0 quad) v1-10)
|
|
(set! (-> a2-0 vector 1 quad) a0-4)
|
|
(set! (-> a2-0 vector 2 quad) a1-2)
|
|
(set! (-> a2-0 vector 3 quad) a3-0)
|
|
)
|
|
(send-event *camera* 'change-state cam-fixed 0)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
)
|