;;-*-Lisp-*-
(in-package goal)

;; definition for symbol *external-cam-options*, type external-cam-option
(define *external-cam-options* (the-as external-cam-option 0))

;; definition for symbol *external-cam-mode*, type symbol
(define *external-cam-mode* #f)

;; failed to figure out what this is:
(when (or (not *camera-look-through-other*) (zero? *camera-look-through-other*))
  (set! *camera-look-through-other* 0)
  0
  )

;; definition (perm) for symbol *camera-other-fov*, type bfloat
(define-perm *camera-other-fov* bfloat (new 'static 'bfloat :data 11650.845))

;; definition (perm) for symbol *camera-other-trans*, type vector
(define-perm *camera-other-trans* vector (vector-reset! (new 'global 'vector)))

;; definition (perm) for symbol *camera-other-matrix*, type matrix
(define-perm *camera-other-matrix* matrix (matrix-identity! (new 'global 'matrix)))

;; definition (perm) for symbol *camera-smush-control*, type smush-control
(define-perm *camera-smush-control* smush-control (set-zero! (new 'global 'smush-control)))

;; definition (perm) for symbol *camera-other-root*, type vector
(define-perm *camera-other-root* vector (vector-reset! (new 'global 'vector)))

;; failed to figure out what this is:
0
