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

;; name: camera-defs-h.gc
;; name in dgo: camera-defs-h
;; dgos: GAME

;; DECOMP BEGINS

(deftype camera-bank (basic)
  ((collide-move-rad         float)
   (joypad                   uint32)
   (min-detectable-velocity  float)
   (attack-timeout           time-frame)
   (default-string-max-y     meters)
   (default-string-min-y     meters)
   (default-string-max-z     meters)
   (default-string-min-z     meters)
   (default-string-push-z    meters)
   (default-tilt-adjust      degrees)
   )
  )


(define *CAMERA-bank* (new 'static 'camera-bank
                        :collide-move-rad 1638.4
                        :min-detectable-velocity 40.96
                        :attack-timeout (seconds 0.25)
                        :default-string-max-y (meters 3)
                        :default-string-min-y (meters 1)
                        :default-string-max-z (meters 12.5)
                        :default-string-min-z (meters 5)
                        :default-string-push-z (meters 10)
                        :default-tilt-adjust (degrees -6.5000005)
                        )
        )

(deftype camera-master-bank (basic)
  ((onscreen-head-height             meters)
   (onscreen-foot-height             meters)
   (target-height                    meters)
   (up-move-to-pitch-ratio-in-air    float)
   (down-move-to-pitch-ratio-in-air  float)
   (up-move-to-pitch-on-ground       float)
   (down-move-to-pitch-on-ground     float)
   (pitch-off-blend                  float)
   )
  )


(define *CAMERA_MASTER-bank* (new 'static 'camera-master-bank
                               :onscreen-head-height (meters 2.65)
                               :onscreen-foot-height (meters -0.5)
                               :target-height (meters 2.15)
                               :up-move-to-pitch-ratio-in-air 1.0
                               :down-move-to-pitch-ratio-in-air 0.5
                               :up-move-to-pitch-on-ground 0.9
                               :down-move-to-pitch-on-ground 0.9
                               :pitch-off-blend 0.5
                               )
        )
