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

;; definition of type chain-physics-setup
(deftype chain-physics-setup (structure)
  ((joint-index  int32)
   )
  )

;; definition for method 3 of type chain-physics-setup
(defmethod inspect ((this chain-physics-setup))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'chain-physics-setup)
  (format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
  (label cfg-4)
  this
  )

;; definition of type chain-physics-joint
(deftype chain-physics-joint (structure)
  ((position   vector  :inline)
   (velocity   vector  :inline)
   (old-x      vector  :inline)
   (joint-mod  joint-mod)
   )
  )

;; definition for method 3 of type chain-physics-joint
(defmethod inspect ((this chain-physics-joint))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'chain-physics-joint)
  (format #t "~1Tposition: #<vector @ #x~X>~%" (-> this position))
  (format #t "~1Tvelocity: #<vector @ #x~X>~%" (-> this velocity))
  (format #t "~1Told-x: #<vector @ #x~X>~%" (-> this old-x))
  (format #t "~1Tjoint-mod: ~A~%" (-> this joint-mod))
  (label cfg-4)
  this
  )

;; definition of type chain-physics
(deftype chain-physics (basic)
  ((chain-joints           chain-physics-joint  20 :inline)
   (num-joints             uint8)
   (root-joint-index       uint8)
   (joint-length           float)
   (gravity                vector               :inline)
   (gravity-target         vector               :inline)
   (stretch-vel            float)
   (stretch-vel-parallel   float)
   (compress-vel           float)
   (compress-vel-parallel  float)
   (negate-y               symbol)
   (axial-slop             float)
   (maximum-stretch        float)
   (turn-off-start         time-frame)
   (turn-off-duration      time-frame)
   )
  (:methods
    (initialize-chain-joints (_type_) symbol)
    (turn-off (_type_ time-frame) none :behavior process)
    (update (_type_ process-drawable) none :behavior process)
    (gravity-update (_type_ process-drawable) none)
    (apply-gravity (_type_ vector int process-drawable) none :behavior process)
    (chain-physics-method-14 (_type_ vector int) none)
    (clamp-length (_type_ vector vector object process-drawable) vector)
    (chain-physics-method-16 (_type_ int) float)
    (chain-physics-method-17 (_type_ vector int) none)
    )
  )

;; definition for method 3 of type chain-physics
(defmethod inspect ((this chain-physics))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Tchain-joints[20] @ #x~X~%" (-> this chain-joints))
  (format #t "~1Tnum-joints: ~D~%" (-> this num-joints))
  (format #t "~1Troot-joint-index: ~D~%" (-> this root-joint-index))
  (format #t "~1Tjoint-length: ~f~%" (-> this joint-length))
  (format #t "~1Tgravity: #<vector @ #x~X>~%" (-> this gravity))
  (format #t "~1Tgravity-target: #<vector @ #x~X>~%" (-> this gravity-target))
  (format #t "~1Tstretch-vel: ~f~%" (-> this stretch-vel))
  (format #t "~1Tstretch-vel-parallel: ~f~%" (-> this stretch-vel-parallel))
  (format #t "~1Tcompress-vel: ~f~%" (-> this compress-vel))
  (format #t "~1Tcompress-vel-parallel: ~f~%" (-> this compress-vel-parallel))
  (format #t "~1Tnegate-y: ~A~%" (-> this negate-y))
  (format #t "~1Taxial-slop: ~f~%" (-> this axial-slop))
  (format #t "~1Tmaximum-stretch: ~f~%" (-> this maximum-stretch))
  (format #t "~1Tturn-off-start: ~D~%" (-> this turn-off-start))
  (format #t "~1Tturn-off-duration: ~D~%" (-> this turn-off-duration))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0