mirror of
https://github.com/open-goal/jak-project
synced 2026-06-03 10:32:08 -04:00
water111
37 lines
1.2 KiB
Common Lisp
Vendored
37 lines
1.2 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for symbol *external-cam-options*, type int
|
|
(define *external-cam-options* 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
|