;;-*-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
  )

)