jak-project/goal_src/jak2/engine/physics/chain-physics-h.gc

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

;; name: chain-physics-h.gc
;; name in dgo: chain-physics-h
;; dgos: ENGINE, GAME

;; DECOMP BEGINS

(deftype chain-physics-setup (structure)
  ((joint-index  int32)
   )
  )


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


(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)
    )
  )