jak-project/goal_src/engine/anim/aligner-h.gc

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

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

;; The align control is responsible for aligning an animation to a moving character.
(deftype align-control (basic)
  ((flags       uint32                     :offset-assert   4)
   (process     process-drawable           :offset-assert   8)
   (frame-group art-joint-anim             :offset-assert  12)
   (frame-num   float                      :offset-assert  16)
   (matrix      matrix           2 :inline :offset-assert  32)
   (transform   transform        2 :inline :offset-assert 160)
   (delta       transformq       :inline   :offset-assert 256)
   (last-speed  meters                     :offset-assert 304)
   (align       transformq       :inline   :offset        160)
   )
  :method-count-assert 14
  :size-assert         #x134
  :flag-assert         #xe00000134
  (:methods
    (new (symbol type process) _type_ :behavior process-drawable 0)
    (TODO-RENAME-9 (_type_) transformq 9)
    (TODO-RENAME-10 (_type_ int float float float) trsqv 10)
    (TODO-RENAME-11 (_type_ int vector int float float) none 11) ;; 3rd arg is unused
    (first-transform (_type_) transform 12)
    (snd-transform (_type_) transform 13)
    )
  )


(defmethod new align-control ((allocation symbol) (type-to-make type) (proc process))
  "Create a new align-control."
  (let ((obj (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
    (when (zero? obj)
      (go process-drawable-art-error "memory")
      (return (the align-control 0))
      )
    
    (set! (-> obj process) (the-as process-drawable proc))
    obj
    )
  )