mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-09-12 20:56:09 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
cbfa65c78a08bf9f96dcd86fa3b7ece20c2adeef
jak-project/test/decompiler/reference/jak1/levels/sunken/whirlpool_REF.gc
T
ManDude cd68cb671e deftype and defmethod syntax major changes (#3094) 
Major change to how `deftype` shows up in our code:
- the decompiler will no longer emit the `offset-assert`,
`method-count-assert`, `size-assert` and `flag-assert` parameters. There
are extremely few cases where having this in the decompiled code is
helpful, as the types there come from `all-types` which already has
those parameters. This also doesn't break type consistency because:
  - the asserts aren't compared.
- the first step of the test uses `all-types`, which has the asserts,
which will throw an error if they're bad.
- the decompiler won't emit the `heap-base` parameter unless necessary
now.
- the decompiler will try its hardest to turn a fixed-offset field into
an `overlay-at` field. It falls back to the old offset if all else
fails.
- `overlay-at` now supports field "dereferencing" to specify the offset
that's within a field that's a structure, e.g.:
```lisp
(deftype foobar (structure)
  ((vec    vector  :inline)
   (flags  int32   :overlay-at (-> vec w))
   )
  )
```
in this structure, the offset of `flags` will be 12 because that is the
final offset of `vec`'s `w` field within this structure.
- **removed ID from all method declarations.** IDs are only ever
automatically assigned now. Fixes #3068.
- added an `:overlay` parameter to method declarations, in order to
declare a new method that goes on top of a previously-defined method.
Syntax is `:overlay <method-name>`. Please do not ever use this.
- added `state-methods` list parameter. This lets you quickly specify a
list of states to be put in the method table. Same syntax as the
`states` list parameter. The decompiler will try to put as many states
in this as it can without messing with the method ID order.

Also changes `defmethod` to make the first type definition (before the
arguments) optional. The type can now be inferred from the first
argument. Fixes #3093.

---------

Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
2023-10-30 03:20:02 +00:00

419 lines
18 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; definition of type whirlpool
(deftype whirlpool (process-drawable)
((root collide-shape :override)
(spin-ry float)
(spin-speed-idle float)
(spin-speed-delta float)
(sync sync-info-paused :inline)
)
(:methods
(whirlpool-method-20 (_type_ float) cshape-moving-flags)
)
(:states
whirlpool-idle
)
)
;; definition for method 3 of type whirlpool
(defmethod inspect ((this whirlpool))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 this)
)
(format #t "~T~Tspin-ry: ~f~%" (-> this spin-ry))
(format #t "~T~Tspin-speed-idle: ~f~%" (-> this spin-speed-idle))
(format #t "~T~Tspin-speed-delta: ~f~%" (-> this spin-speed-delta))
(format #t "~T~Tsync: #<sync-info-paused @ #x~X>~%" (-> this sync))
this
)
;; failed to figure out what this is:
(defskelgroup *whirlpool-sg* whirlpool whirlpool-lod0-jg whirlpool-idle-ja
((whirlpool-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0.6 0 3)
)
;; failed to figure out what this is:
(defpartgroup group-whirlpool-swirl
:id 447
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 8)
:parts ((sp-item 1739 :fade-after (meters 60) :falloff-to (meters 60) :binding 1737)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
(sp-item 1738 :flags (bit1 start-dead))
)
)
;; failed to figure out what this is:
(defpart 1739
:init-specs ((:texture (new 'static 'texture-id :index #x9 :page #x2))
(:num 1.0)
(:y (meters 6.6))
(:scale-x (meters 0.2))
(:scale-y :copy scale-x)
(:g 0.0)
(:a 128.0)
(:accel-y (meters -0.00016666666))
(:timer (seconds 1.7))
(:flags (bit2 bit3))
)
)
;; failed to figure out what this is:
(defpart 1737
:init-specs ((:texture (new 'static 'texture-id :page #x2))
(:num 1.0)
(:x (meters 0))
(:y (meters 0))
(:z (meters 4) (meters 1))
(:scale-x (meters 3.2))
(:scale-y (meters 1))
(:r 150.0)
(:g 150.0)
(:b 255.0)
(:a 0.0)
(:omega 0.0 65536.0)
(:vel-x (meters 0.053333335))
(:vel-y (meters 0))
(:vel-z (meters -0.01))
(:scalevel-x (meters -0.004888889))
(:fade-a 0.42666668)
(:timer (seconds 1.5))
(:flags (bit2 bit3 bit7))
(:next-time (seconds 0.125) (seconds 0.12))
(:next-launcher 1740)
)
)
;; failed to figure out what this is:
(defpart 1740
:init-specs ((:fade-a 0.0))
)
;; failed to figure out what this is:
(defpart 1738
:init-specs ((:texture (new 'static 'texture-id :index #x9 :page #x2))
(:num 1.0)
(:scale-x (meters 0.3) (meters 0.1))
(:scale-y :copy scale-x)
(:r 255.0)
(:g 255.0)
(:b 255.0)
(:a 32.0 32.0)
(:fade-a -1.8285716)
(:timer (seconds 0.1))
(:flags (bit2 bit3))
)
)
;; definition for method 20 of type whirlpool
(defmethod whirlpool-method-20 ((this whirlpool) (arg0 float))
(let* ((gp-0 (target-pos 0))
(f28-0 (vector-vector-xz-distance (-> this root trans) gp-0))
)
(when (< f28-0 40960.0)
(let* ((f0-2 (* 0.000024414063 (- 40960.0 f28-0)))
(f26-0 (* f0-2 f0-2))
(f0-7 (atan (- (-> gp-0 x) (-> this root trans x)) (- (-> gp-0 z) (-> this root trans z))))
(f30-0 (* 0.5 f26-0 arg0 (seconds-per-frame)))
(f24-0 (+ f0-7 f30-0))
(f28-1 (- f28-0 (fmin f28-0 (* 0.16874999 f26-0 (fabs arg0) (seconds-per-frame)))))
(s4-1 (new 'stack-no-clear 'vector))
)
(set-vector! s4-1 (* (sin f24-0) f28-1) 0.0 (* (cos f24-0) f28-1) 1.0)
(vector+! s4-1 s4-1 (-> this root trans))
(set! (-> s4-1 x) (* (- (-> s4-1 x) (-> gp-0 x)) (-> *display* frames-per-second)))
(set! (-> s4-1 y) 0.0)
(set! (-> s4-1 z) (* (- (-> s4-1 z) (-> gp-0 z)) (-> *display* frames-per-second)))
(let ((gp-1 (-> *target* control)))
(send-event (-> gp-1 process) 'rotate-y-angle f30-0)
(fill-cache-for-shape! gp-1 8192.0 (-> gp-1 root-prim collide-with))
(let ((s3-0 (-> gp-1 status)))
(integrate-and-collide! gp-1 s4-1)
(set! (-> gp-1 status) s3-0)
s3-0
)
)
)
)
)
)
;; failed to figure out what this is:
(defstate whirlpool-idle (whirlpool)
:trans (behavior ()
(let ((f30-0
(+ (* (get-current-phase-with-mirror (-> self sync)) (-> self spin-speed-delta)) (-> self spin-speed-idle))
)
)
(when (>= (fabs f30-0) 45511.11)
(let ((a1-0 (new 'stack-no-clear 'vector)))
(set! (-> a1-0 quad) (-> self root trans quad))
(+! (-> a1-0 y) -8192.0)
(spawn (-> self part) a1-0)
)
)
(+! (-> self spin-ry) (* f30-0 (seconds-per-frame)))
(quaternion-axis-angle! (-> self root quat) 0.0 1.0 0.0 (-> self spin-ry))
(if (and *target* (logtest? (-> *target* water flags) (water-flags wt09)))
(whirlpool-method-20 self f30-0)
)
(update! (-> self sound))
(let ((f0-9 (fmin 1.0 (* 0.000007608261 (fmax 0.0 (+ -28580.979 (fabs f30-0)))))))
(update-vol! (-> self sound) (the int (* 100.0 f0-9)))
)
)
)
:code anim-loop
:post ja-post
)
;; definition for method 10 of type whirlpool
(defmethod deactivate ((this whirlpool))
(if (nonzero? (-> this sound))
(stop! (-> this sound))
)
((method-of-type process-drawable deactivate) this)
(none)
)
;; definition for method 11 of type whirlpool
;; INFO: Used lq/sq
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! ((this whirlpool) (arg0 entity-actor))
(local-vars (sv-16 res-tag))
(set! (-> this spin-ry) (rand-vu-float-range 0.0 65536.0))
(let ((s4-0 (new 'process 'collide-shape this (collide-list-enum hit-by-player))))
(let ((s3-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
(set! (-> s3-0 prim-core collide-as) (collide-kind wall-object))
(set! (-> s3-0 collide-with) (collide-kind target))
(set! (-> s3-0 prim-core action) (collide-action solid))
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
(set-vector! (-> s3-0 local-sphere) 0.0 -819.2 0.0 11468.8)
(set-root-prim! s4-0 s3-0)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(backup-collide-with-as s4-0)
(set! (-> this root) s4-0)
)
(process-drawable-from-entity! this arg0)
(initialize-skeleton this *whirlpool-sg* '())
(load-params! (-> this sync) this (the-as uint 1500) 0.0 0.15 0.15)
(let ((f30-0 32768.0)
(f28-0 145635.56)
)
(set! sv-16 (new 'static 'res-tag))
(let ((v1-17 (res-lump-data arg0 'speed (pointer float) :tag-ptr (& sv-16))))
(when v1-17
(set! f30-0 (-> v1-17 0))
(set! f28-0 (-> v1-17 1))
)
)
(set! (-> this spin-speed-idle) f30-0)
(set! (-> this spin-speed-delta) (- f28-0 f30-0))
)
(set! (-> this part) (create-launch-control (-> *part-group-id-table* 447) this))
(set! (-> this sound)
(new 'process 'ambient-sound (static-sound-spec "whirlpool" :fo-max 55) (-> this root trans))
)
(ja-channel-set! 1)
(let ((s5-1 (-> this skel root-channel 0)))
(joint-control-channel-group-eval!
s5-1
(the-as art-joint-anim (-> this draw art-group data 2))
num-func-identity
)
(set! (-> s5-1 frame-num) 0.0)
)
(ja-post)
(update-transforms! (-> this root))
(go whirlpool-idle)
(none)
)
Reference in New Issue View Git Blame Copy Permalink