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

;; definition of type camera-bank
(deftype camera-bank (basic)
  ((collide-move-rad        float       :offset-assert   4)
   (joypad                  uint32      :offset-assert   8)
   (min-detectable-velocity float       :offset-assert  12)
   (attack-timeout          time-frame  :offset-assert  16)
   (default-string-max-y    meters      :offset-assert  24)
   (default-string-min-y    meters      :offset-assert  28)
   (default-string-max-z    meters      :offset-assert  32)
   (default-string-min-z    meters      :offset-assert  36)
   (default-string-push-z   meters      :offset-assert  40)
   (default-tilt-adjust     degrees     :offset-assert  44)
   )
  :method-count-assert 9
  :size-assert         #x30
  :flag-assert         #x900000030
  )

;; definition for method 3 of type camera-bank
(defmethod inspect camera-bank ((this camera-bank))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Tcollide-move-rad: ~f~%" (-> this collide-move-rad))
  (format #t "~1Tjoypad: ~D~%" (-> this joypad))
  (format #t "~1Tmin-detectable-velocity: ~f~%" (-> this min-detectable-velocity))
  (format #t "~1Tattack-timeout: ~D~%" (-> this attack-timeout))
  (format #t "~1Tdefault-string-max-y: (meters ~m)~%" (-> this default-string-max-y))
  (format #t "~1Tdefault-string-min-y: (meters ~m)~%" (-> this default-string-min-y))
  (format #t "~1Tdefault-string-max-z: (meters ~m)~%" (-> this default-string-max-z))
  (format #t "~1Tdefault-string-min-z: (meters ~m)~%" (-> this default-string-min-z))
  (format #t "~1Tdefault-string-push-z: (meters ~m)~%" (-> this default-string-push-z))
  (format #t "~1Tdefault-tilt-adjust: (deg ~r)~%" (-> this default-tilt-adjust))
  (label cfg-4)
  this
  )

;; definition for symbol *CAMERA-bank*, type camera-bank
(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)
                        )
        )

;; definition of type camera-master-bank
(deftype camera-master-bank (basic)
  ((onscreen-head-height            meters  :offset-assert   4)
   (onscreen-foot-height            meters  :offset-assert   8)
   (target-height                   meters  :offset-assert  12)
   (up-move-to-pitch-ratio-in-air   float   :offset-assert  16)
   (down-move-to-pitch-ratio-in-air float   :offset-assert  20)
   (up-move-to-pitch-on-ground      float   :offset-assert  24)
   (down-move-to-pitch-on-ground    float   :offset-assert  28)
   (pitch-off-blend                 float   :offset-assert  32)
   )
  :method-count-assert 9
  :size-assert         #x24
  :flag-assert         #x900000024
  )

;; definition for method 3 of type camera-master-bank
(defmethod inspect camera-master-bank ((this camera-master-bank))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Tonscreen-head-height: (meters ~m)~%" (-> this onscreen-head-height))
  (format #t "~1Tonscreen-foot-height: (meters ~m)~%" (-> this onscreen-foot-height))
  (format #t "~1Ttarget-height: (meters ~m)~%" (-> this target-height))
  (format #t "~1Tup-move-to-pitch-ratio-in-air: ~f~%" (-> this up-move-to-pitch-ratio-in-air))
  (format #t "~1Tdown-move-to-pitch-ratio-in-air: ~f~%" (-> this down-move-to-pitch-ratio-in-air))
  (format #t "~1Tup-move-to-pitch-on-ground: ~f~%" (-> this up-move-to-pitch-on-ground))
  (format #t "~1Tdown-move-to-pitch-on-ground: ~f~%" (-> this down-move-to-pitch-on-ground))
  (format #t "~1Tpitch-off-blend: ~f~%" (-> this pitch-off-blend))
  (label cfg-4)
  this
  )

;; definition for symbol *CAMERA_MASTER-bank*, type camera-master-bank
(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
                               )
        )

;; failed to figure out what this is:
0