mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 09:48:00 -04:00
2cb00f4a02
* blocked: `puffer` has state decomp issues * blocked: decomp crash when adding process-drawble cast in `helix-water` * blocked: `green-eco-lurker` no nice way to cast value out of EMB * decomp: started on `citadel-sages` * decomp: `seagull` blocked state decomp * blocked: `sunken-pipegame` runs into handle related issues * blocked: `snow-ram` and `snow-ram-boss` state decomp * decomp: `rolling-race-ring` blocked, handle casts * blocked: state decomp in `part-tester` * decomp: started `joint-exploder` * blocked: `anim-tester` has rare cmove-#f-zero usage * decomp: I lied! `anim-tester` finished * config: update banned list
58 lines
1.9 KiB
Common Lisp
58 lines
1.9 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: process-drawable.gc
|
|
;; name in dgo: process-drawable
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; TODO - for water-anim | sunken-elevator
|
|
(define-extern ja-post (function none :behavior process-drawable))
|
|
;; TODO - for rigid-body
|
|
(define-extern rider-post (function int))
|
|
(define-extern transform-post (function int))
|
|
;; TODO - for misty-teetertotter
|
|
(define-extern transform-post (function int))
|
|
(define-extern ja-done? (function int symbol))
|
|
;; TODO - for misty-warehouse
|
|
(define-extern rider-trans (function int))
|
|
;; TODO - for nav-enemy
|
|
(define-extern ja-blend-eval (function int))
|
|
(define-extern process-drawable-fuel-cell-handler (function process int symbol event-message-block none))
|
|
(define-extern ja-aframe-num (function int float))
|
|
(define-extern ja-aframe (function float int float))
|
|
;; TODO - for sculptor
|
|
(define-extern ja-eval (function int))
|
|
;; TODO - for basebutton
|
|
(define-extern anim-loop (function symbol))
|
|
;; TODO - for bouncer
|
|
(define-extern ja-min? (function int symbol))
|
|
;; TODO - for process-drawable
|
|
(define-extern ja-num-frames (function int int))
|
|
;; TODO - for flutflut
|
|
(define-extern ja-group-size (function int))
|
|
;; TODO - for yakow
|
|
(define-extern ja-frame-num (function int float))
|
|
;; TODO - for anim-tester
|
|
(define-extern draw-joint-spheres (function process-drawable symbol))
|
|
(define-extern *default-skel-template* pair)
|
|
(define-extern make-nodes-from-jg (function object pair symbol int))
|
|
(define-extern fill-skeleton-cache (function process-drawable int))
|
|
|
|
(defun vector<-cspace! ((arg0 vector) (arg1 cspace))
|
|
(rlet ((Q :class vf)
|
|
(vf0 :class vf)
|
|
(vf2 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(.lvf vf2 (&-> (-> arg1 bone) transform vector 3 quad))
|
|
(.div.vf Q vf0 vf2 :fsf #b11 :ftf #b11)
|
|
(.wait.vf)
|
|
(.mul.vf vf2 vf2 Q :mask #b111)
|
|
(.nop.vf)
|
|
(.nop.vf)
|
|
(.mov.vf vf2 vf0 :mask #b1000)
|
|
(.svf (&-> arg0 quad) vf2)
|
|
arg0
|
|
)
|
|
)
|