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

)