mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-07-28 23:28:09 -04:00
Code Issues Packages Projects Releases Wiki Activity

[decompiler] detect seek! and seekl! macros (#1317)

Browse Source 
* detect `seek!` and `seekl!`

* fancy struct instead of pair mess

* fixes

* i think this was wrong?

* update refs

* update source

* More logical branching

* even better branching
This commit is contained in:
ManDude
2022-04-18 20:01:44 +01:00
committed by GitHub
parent cbc6987351
commit 66e395d547
109 changed files with 952 additions and 1398 deletions
Download Patch File Download Diff File Expand all files Collapse all files
goal_src/levels/maincave/gnawer.gc
+1 -1
View File
@@ -369,7 +369,7 @@
(deg-seek (-> self facing-rot z) 16384.0 (* (-> self facing-rotv z) (-> *display* seconds-per-frame)))
)
(quaternion-zxy! (-> self root quat) (-> self facing-rot))
(set! (-> self root scale x) (seek (-> self root scale x) 0.0 (* 0.5 (-> *display* seconds-per-frame))))
(seek! (-> self root scale x) 0.0 (* 0.5 (-> *display* seconds-per-frame)))
(set! (-> self root scale y) (-> self root scale x))
(set! (-> self root scale z) (-> self root scale x))
(none)
goal_src/levels/maincave/mother-spider.gc
+2 -2
View File
@@ -141,7 +141,7 @@
(deg-seek (-> self facing-rot z) 16384.0 (* (-> self facing-rotv z) (-> *display* seconds-per-frame)))
)
(quaternion-zxy! (-> self root quat) (-> self facing-rot))
(set! (-> self root scale x) (seek (-> self root scale x) 0.0 (* 0.5 (-> *display* seconds-per-frame))))
(seek! (-> self root scale x) 0.0 (* 0.5 (-> *display* seconds-per-frame)))
(set! (-> self root scale y) (-> self root scale x))
(set! (-> self root scale z) (-> self root scale x))
(none)
@@ -808,7 +808,7 @@
(let ((f0-44 (+ (-> obj orient-rot y) (* (-> obj spin-vel) (-> *display* seconds-per-frame)))))
(set! (-> obj orient-rot y) (- f0-44 (* (the float (the int (/ f0-44 65536.0))) 65536.0)))
)
(set! (-> obj spin-vel) (seek (-> obj spin-vel) 0.0 (* 91022.22 (-> *display* seconds-per-frame))))
(seek! (-> obj spin-vel) 0.0 (* 91022.22 (-> *display* seconds-per-frame)))
(when (< (fabs (-> obj spin-vel)) 69176.89)
(if (>= (-> obj spin-vel) 0.0)
(set! (-> obj spin-vel) 69176.89)