mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 13:53:01 -04:00
Tyler Wilding
d1ece445d4
Relates to #1353 This adds no new functionality or overhead to the compiler, yet. This is the preliminary work that has: - added code to the compiler in several spots to flag when something is used without being properly required/imported/whatever (disabled by default) - that was used to generate project wide file dependencies (some circulars were manually fixed) - then that graph underwent a transitive reduction and the result was written to all `jak1` source files. The next step will be making this actually produce and use a dependency graph. Some of the reasons why I'm working on this: - eliminates more `game.gp` boilerplate. This includes the `.gd` files to some extent (`*-ag` files and `tpage` files will still need to be handled) this is the point of the new `bundles` form. This should make it even easier to add a new file into the source tree. - a build order that is actually informed from something real and compiler warnings that tell you when you are using something that won't be available at build time. - narrows the search space for doing LSP actions -- like searching for references. Since it would be way too much work to store in the compiler every location where every symbol/function/etc is used, I have to do ad-hoc searches. By having a dependency graph i can significantly reduce that search space. - opens the doors for common shared code with a legitimate pattern. Right now jak 2 shares code from the jak 1 folder. This is basically a hack -- but by having an explicit require syntax, it would be possible to reference arbitrary file paths, such as a `common` folder. Some stats: - Jak 1 has about 2500 edges between files, including transitives - With transitives reduced at the source code level, each file seems to have a modest amount of explicit requirements. Known issues: - Tracking the location for where `defmacro`s and virtual state definitions were defined (and therefore the file) is still problematic. Because those forms are in a macro environment, the reader does not track them. I'm wondering if a workaround could be to search the reader's text_db by not just the `goos::Object` but by the text position. But for the purposes of finishing this work, I just statically analyzed and searched the code with throwaway python code.
263 lines
9.7 KiB
Common Lisp
263 lines
9.7 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
|
|
(require "engine/common-obs/process-drawable.gc")
|
|
(require "engine/target/target-util.gc")
|
|
|
|
;; name: sidekick.gc
|
|
;; name in dgo: sidekick
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(define *sidekick-remap* '(("run-to-stance-left" "run-to-stance")
|
|
("run-to-stance-loop-left" "run-to-stance-loop")
|
|
("stance-loop-left" "stance-loop")
|
|
("run-to-stance-right" "run-to-stance")
|
|
("run-to-stance-loop-right" "run-to-stance-loop")
|
|
("stance-loop-right" "stance-loop")
|
|
("run-to-stance-up" "run-to-stance")
|
|
("run-to-stance-loop-up" "run-to-stance-loop")
|
|
("stance-loop-up" "stance-loop")
|
|
("run-to-stance-down" "run-to-stance")
|
|
("run-to-stance-loop-down" "run-to-stance-loop")
|
|
("stance-loop-down" "stance-loop")
|
|
("run-right" "run")
|
|
("run-left" "run")
|
|
("walk-right" "walk")
|
|
("walk-left" "walk")
|
|
("edge-grab-stance1" "edge-grab-stance1" "edge-grab-stance1-alt")
|
|
("pole-cycle" "pole-cycle" "pole-cycle2")
|
|
)
|
|
)
|
|
|
|
(defun cspace<-cspace+quaternion! ((arg0 cspace) (arg1 cspace) (arg2 quaternion))
|
|
(rlet ((Q :class vf)
|
|
(vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(let ((s5-0 (-> arg0 bone transform)))
|
|
(quaternion->matrix s5-0 arg2)
|
|
(.lvf vf1 (&-> (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0) quad))
|
|
(.lvf vf2 (&-> (-> arg1 bone) transform vector 3 quad))
|
|
(.lvf vf3 (&-> s5-0 vector 0 quad))
|
|
(.lvf vf4 (&-> s5-0 vector 1 quad))
|
|
(.lvf vf5 (&-> s5-0 vector 2 quad))
|
|
(.div.vf Q vf0 vf2 :fsf #b11 :ftf #b11)
|
|
(.wait.vf)
|
|
(.mul.vf vf2 vf2 Q :mask #b111)
|
|
(.mov.vf vf2 vf0 :mask #b1000)
|
|
(.mul.x.vf vf3 vf3 vf1)
|
|
(.mul.y.vf vf4 vf4 vf1)
|
|
(.mul.z.vf vf5 vf5 vf1)
|
|
(.svf (&-> s5-0 vector 3 quad) vf2)
|
|
(.svf (&-> s5-0 vector 0 quad) vf3)
|
|
(.svf (&-> s5-0 vector 1 quad) vf4)
|
|
(.svf (&-> s5-0 vector 2 quad) vf5)
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate sidekick-clone (sidekick)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case message
|
|
(('matrix)
|
|
(case (-> block param 0)
|
|
(('play-anim)
|
|
(set! v0-0 (-> self node-list data))
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param0) cspace<-cspace+quaternion!)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param1)
|
|
(the-as basic (-> self parent-override 0 node-list data))
|
|
)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param2)
|
|
(the-as basic (-> self parent-override 0 control quat))
|
|
)
|
|
)
|
|
(('copy-parent)
|
|
(set! v0-0 (-> self node-list data))
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param0) cspace<-cspace!)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param1)
|
|
(the-as basic (-> self parent-override 0 node-list data))
|
|
)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param2) #f)
|
|
)
|
|
(else
|
|
(set! v0-0 (-> self node-list data))
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param0) cspace<-cspace+quaternion!)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param1)
|
|
(the-as basic (-> self parent-override 0 control unknown-cspace10 parent))
|
|
)
|
|
(set! (-> (the-as (inline-array cspace) v0-0) 0 param2)
|
|
(the-as basic (-> self parent-override 0 control quat))
|
|
)
|
|
)
|
|
)
|
|
v0-0
|
|
)
|
|
(('shadow)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self shadow-in-movie?) (the-as symbol v0-0))
|
|
v0-0
|
|
)
|
|
(('blend-shape)
|
|
(cond
|
|
((-> block param 0)
|
|
(set! v0-0 (logior (-> self skel status) (janim-status blerc)))
|
|
(set! (-> self skel status) (the-as janim-status v0-0))
|
|
)
|
|
(else
|
|
(set! v0-0 (logclear (-> self skel status) (janim-status blerc)))
|
|
(set! (-> self skel status) (the-as janim-status v0-0))
|
|
)
|
|
)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:code looping-code
|
|
:post (behavior ()
|
|
(let ((v1-0 'process-drawable-art-error)
|
|
(a0-0 (-> self parent-override))
|
|
)
|
|
(when (!= (-> (if a0-0
|
|
(-> a0-0 0 self-override)
|
|
)
|
|
next-state
|
|
name
|
|
)
|
|
v1-0
|
|
)
|
|
(quaternion-copy! (-> self root quat) (-> self parent-override 0 control quat))
|
|
(set! (-> self anim-seed) (-> self parent-override 0 anim-seed))
|
|
(set! (-> self draw status) (-> self parent-override 0 draw status))
|
|
(joint-control-copy! (-> self skel) (-> self parent-override 0 skel))
|
|
(joint-control-remap!
|
|
(-> self skel)
|
|
(-> self draw art-group)
|
|
(-> self parent-override 0 draw art-group)
|
|
*sidekick-remap*
|
|
(the-as int (-> self anim-seed))
|
|
""
|
|
)
|
|
(let ((v1-22 (-> self parent-override 0 draw color-mult quad)))
|
|
(set! (-> self draw color-mult quad) v1-22)
|
|
)
|
|
(with-pc ;; duh!
|
|
(when (pc-cheats? (-> *pc-settings* cheats) sidekick-blue)
|
|
(set! (-> self draw color-mult x) (set! (-> self draw color-mult y) 0.1)))
|
|
)
|
|
(let ((v1-26 (-> self parent-override 0 draw color-emissive quad)))
|
|
(set! (-> self draw color-emissive quad) v1-26)
|
|
)
|
|
(set! (-> self draw secondary-interp) (-> self parent-override 0 draw secondary-interp))
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
|
)
|
|
)
|
|
(do-joint-math! self)
|
|
(if *debug-segment*
|
|
(add-frame
|
|
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
|
'draw
|
|
(new 'static 'rgba :r #x80 :a #x80)
|
|
)
|
|
)
|
|
(vector<-cspace! (-> self draw origin) (-> self node-list data (-> self draw origin-joint-index)))
|
|
)
|
|
)
|
|
(when *display-sidekick-stats*
|
|
(format *stdcon* "~%")
|
|
(debug-print-channels (-> self skel) (the-as symbol *stdcon*))
|
|
(add-debug-sphere
|
|
*display-sidekick-stats*
|
|
(bucket-id debug-no-zbuf)
|
|
(-> self parent-override 0 control unknown-cspace10 parent bone transform vector 3)
|
|
409.6
|
|
(new 'static 'rgba :g #xff :a #x80)
|
|
)
|
|
(add-debug-sphere
|
|
*display-sidekick-stats*
|
|
(bucket-id debug-no-zbuf)
|
|
(-> self node-list data 3 bone transform vector 3)
|
|
409.6
|
|
(new 'static 'rgba :r #xff :g #xff :a #x80)
|
|
)
|
|
(add-debug-sphere
|
|
*display-sidekick-stats*
|
|
(bucket-id debug-no-zbuf)
|
|
(-> self draw origin)
|
|
409.6
|
|
(new 'static 'rgba :r #xff :g #x80 :a #x80)
|
|
)
|
|
)
|
|
(set! (-> self draw shadow) (the-as shadow-geo (if (and (movie?) (-> self shadow-in-movie?))
|
|
sidekick-shadow-mg
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-26 (-> self skel effect)))
|
|
(if a0-26
|
|
(effect-control-method-9 a0-26)
|
|
)
|
|
)
|
|
(if (logtest? (-> self skel status) (janim-status blerc blerc-done))
|
|
(merc-blend-shape self)
|
|
)
|
|
(if (logtest? (-> self skel status) (janim-status eye-done eye))
|
|
(merc-eye-anim self)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defskelgroup *sidekick-sg* sidekick sidekick-lod0-jg -1
|
|
((sidekick-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 3)
|
|
:longest-edge (meters 1)
|
|
:shadow sidekick-shadow-mg
|
|
:texture-level 2
|
|
:sort 1
|
|
)
|
|
|
|
(defbehavior init-sidekick sidekick ()
|
|
(logior! (-> self mask) (process-mask sidekick))
|
|
(set! (-> self root) (new 'process 'trsqv))
|
|
(vector-identity! (-> self root scale))
|
|
(quaternion-identity! (-> self root quat))
|
|
(initialize-skeleton self *sidekick-sg* '())
|
|
(set! (-> self draw origin-joint-index) (the-as uint 6))
|
|
(set! (-> self draw shadow-joint-index) (the-as uint 6))
|
|
(set! (-> self draw shadow-ctrl) *target-shadow-control*)
|
|
(logior! (-> self skel status) (janim-status eye))
|
|
|
|
(#when PC_PORT
|
|
;; daxter can be killed mid-blerc, leaving blerc modifications in the merc data.
|
|
;; once sidekick is restarted, the blerc-done flag will be lost, so the modifications will
|
|
;; to work around this, just set blerc-done on spawn. it will run blerc with 0's on the
|
|
;; first frame when daxter is drawn, clearing blerc data.
|
|
(logior! (-> self skel status) (janim-status blerc-done))
|
|
)
|
|
(let ((v1-14 (-> self node-list data)))
|
|
(set! (-> v1-14 0 param0) cspace<-cspace+quaternion!)
|
|
(set! (-> v1-14 0 param1) (the-as basic (-> self parent-override 0 control unknown-cspace10 parent)))
|
|
(set! (-> v1-14 0 param2) (the-as basic (-> self parent-override 0 control quat)))
|
|
)
|
|
(set! (-> self shadow-in-movie?) #t)
|
|
(go sidekick-clone)
|
|
(none)
|
|
)
|
|
|
|
(defun starts ()
|
|
(send-event *target* 'sidekick #t)
|
|
)
|