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

;; definition of type net-predictor-simple-state
(deftype net-predictor-simple-state (structure)
  ((time    int32)
   (pos     vector      :inline)
   (vel     vector      :inline)
   (rot     quaternion  :inline)
   (angvel  vector      :inline)
   )
  )

;; definition for method 3 of type net-predictor-simple-state
(defmethod inspect ((this net-predictor-simple-state))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'net-predictor-simple-state)
  (format #t "~1Ttime: ~D~%" (-> this time))
  (format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
  (format #t "~1Tvel: #<vector @ #x~X>~%" (-> this vel))
  (format #t "~1Trot: #<quaternion @ #x~X>~%" (-> this rot))
  (format #t "~1Tangvel: #<vector @ #x~X>~%" (-> this angvel))
  (label cfg-4)
  this
  )

;; definition of type net-predictor-simple
(deftype net-predictor-simple (structure)
  ((last-net           net-predictor-simple-state  :inline)
   (extrapolated       net-predictor-simple-state  :inline)
   (active             net-predictor-simple-state  :inline)
   (vel-scale          vector                      :inline)
   (angvel-scale       vector                      :inline)
   (min-delay          int32)
   (max-delay          int32)
   (pos-err-thresh     float)
   (rot-err-thresh     float)
   (pos-track-factor   float)
   (vel-track-factor   float)
   (max-extrapolation  int32)
   (error-snap         float)
   (flags              uint8)
   )
  (:methods
    (net-predictor-simple-method-9 () none)
    (net-predictor-simple-method-10 () none)
    (net-predictor-simple-method-11 () none)
    (net-predictor-simple-method-12 () none)
    (net-predictor-simple-method-13 () none)
    (net-predictor-simple-method-14 () none)
    (net-predictor-simple-method-15 () none)
    (net-predictor-simple-method-16 () none)
    (net-predictor-simple-method-17 () none)
    )
  )

;; definition for method 3 of type net-predictor-simple
(defmethod inspect ((this net-predictor-simple))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'net-predictor-simple)
  (format #t "~1Tlast-net: #<net-predictor-simple-state @ #x~X>~%" (-> this last-net))
  (format #t "~1Textrapolated: #<net-predictor-simple-state @ #x~X>~%" (-> this extrapolated))
  (format #t "~1Tactive: #<net-predictor-simple-state @ #x~X>~%" (-> this active))
  (format #t "~1Tvel-scale: #<vector @ #x~X>~%" (-> this vel-scale))
  (format #t "~1Tangvel-scale: #<vector @ #x~X>~%" (-> this angvel-scale))
  (format #t "~1Tmin-delay: ~D~%" (-> this min-delay))
  (format #t "~1Tmax-delay: ~D~%" (-> this max-delay))
  (format #t "~1Tpos-err-thresh: ~f~%" (-> this pos-err-thresh))
  (format #t "~1Trot-err-thresh: ~f~%" (-> this rot-err-thresh))
  (format #t "~1Tpos-track-factor: ~f~%" (-> this pos-track-factor))
  (format #t "~1Tvel-track-factor: ~f~%" (-> this vel-track-factor))
  (format #t "~1Tmax-extrapolation: ~D~%" (-> this max-extrapolation))
  (format #t "~1Terror-snap: ~f~%" (-> this error-snap))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (label cfg-4)
  this
  )

;; definition of type net-predictor-sphcol
(deftype net-predictor-sphcol (net-predictor-simple)
  ()
  )

;; definition for method 3 of type net-predictor-sphcol
(defmethod inspect ((this net-predictor-sphcol))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'net-predictor-sphcol)
  (format #t "~1Tlast-net: #<net-predictor-simple-state @ #x~X>~%" (-> this last-net))
  (format #t "~1Textrapolated: #<net-predictor-simple-state @ #x~X>~%" (-> this extrapolated))
  (format #t "~1Tactive: #<net-predictor-simple-state @ #x~X>~%" (-> this active))
  (format #t "~1Tvel-scale: #<vector @ #x~X>~%" (-> this vel-scale))
  (format #t "~1Tangvel-scale: #<vector @ #x~X>~%" (-> this angvel-scale))
  (format #t "~1Tmin-delay: ~D~%" (-> this min-delay))
  (format #t "~1Tmax-delay: ~D~%" (-> this max-delay))
  (format #t "~1Tpos-err-thresh: ~f~%" (-> this pos-err-thresh))
  (format #t "~1Trot-err-thresh: ~f~%" (-> this rot-err-thresh))
  (format #t "~1Tpos-track-factor: ~f~%" (-> this pos-track-factor))
  (format #t "~1Tvel-track-factor: ~f~%" (-> this vel-track-factor))
  (format #t "~1Tmax-extrapolation: ~D~%" (-> this max-extrapolation))
  (format #t "~1Terror-snap: ~f~%" (-> this error-snap))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0