mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-17 05:31:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

jak1 ref

Browse Source
This commit is contained in:
Hat Kid
2026-04-14 09:23:08 +02:00
parent 0da265f87b
commit 2ef5f8313a
124 changed files with 5682 additions and 6865 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/jak1/engine/debug/debug_REF.gc
Generated Vendored
+86 -109
View File
@@ -164,9 +164,8 @@
;; definition (debug) for function internal-draw-debug-line
;; INFO: Used lq/sq
(defun-debug internal-draw-debug-line ((arg0 bucket-id) (arg1 vector) (arg2 vector) (arg3 rgba) (arg4 symbol) (arg5 rgba))
(local-vars (sv-80 vector))
(set! sv-80 arg2)
(let ((s2-0 arg3)
(let ((sv-80 arg2)
(s2-0 arg3)
(s3-0 arg4)
(s5-0 arg5)
)
@@ -358,17 +357,11 @@
;; definition (debug) for function add-debug-triangle-normal
;; INFO: Used lq/sq
(defun-debug add-debug-triangle-normal ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 vector) (arg5 rgba))
(local-vars (sv-48 (function vector vector float vector)) (sv-64 vector) (sv-80 vector))
(when arg0
(let ((s4-0 (new 'stack-no-clear 'vector))
(s3-0 (vector-3pt-cross! (new 'stack-no-clear 'vector) arg2 arg3 arg4))
)
(set! sv-48 vector-float/!)
(set! sv-64 s3-0)
(set! sv-80 s3-0)
(let ((a2-2 (* 0.00024414062 (vector-length s3-0))))
(sv-48 sv-64 sv-80 a2-2)
)
(vector-float/! s3-0 s3-0 (* 0.00024414062 (vector-length s3-0)))
(vector+! s4-0 arg2 arg3)
(vector+! s4-0 s4-0 arg4)
(vector-float/! s4-0 s4-0 3.0)
@@ -930,27 +923,28 @@
;; INFO: Used lq/sq
(defun-debug add-debug-circle ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 rgba) (arg5 matrix))
"note: you may pass #f for orientation"
(local-vars (sv-48 int) (sv-64 vector) (sv-80 vector))
(if (not arg0)
(return #f)
)
(let ((f30-0 0.0)
(s1-0 (new-stack-vector0))
(s0-0 (new-stack-vector0))
(sv-48 0)
)
(set! sv-48 0)
(while (< sv-48 12)
(set! sv-64 s1-0)
(set! (-> sv-64 x) (* arg3 (cos f30-0)))
(set! (-> sv-64 y) 0.0)
(set! (-> sv-64 z) (* arg3 (sin f30-0)))
(set! (-> sv-64 w) 1.0)
(let ((sv-64 s1-0))
(set! (-> sv-64 x) (* arg3 (cos f30-0)))
(set! (-> sv-64 y) 0.0)
(set! (-> sv-64 z) (* arg3 (sin f30-0)))
(set! (-> sv-64 w) 1.0)
)
(set! f30-0 (+ 5461.3335 f30-0))
(set! sv-80 s0-0)
(set! (-> sv-80 x) (* arg3 (cos f30-0)))
(set! (-> sv-80 y) 0.0)
(set! (-> sv-80 z) (* arg3 (sin f30-0)))
(set! (-> sv-80 w) 1.0)
(let ((sv-80 s0-0))
(set! (-> sv-80 x) (* arg3 (cos f30-0)))
(set! (-> sv-80 y) 0.0)
(set! (-> sv-80 z) (* arg3 (sin f30-0)))
(set! (-> sv-80 w) 1.0)
)
(when arg5
(vector-matrix*! s1-0 s1-0 arg5)
(vector-matrix*! s0-0 s0-0 arg5)
@@ -958,7 +952,7 @@
(vector+! s1-0 s1-0 arg2)
(vector+! s0-0 s0-0 arg2)
(add-debug-line #t arg1 s1-0 s0-0 arg4 #f (the-as rgba -1))
(set! sv-48 (+ sv-48 1))
(+! sv-48 1)
)
)
#f
@@ -1021,9 +1015,8 @@
;; WARN: Stack slot offset 32 signed mismatch
;; WARN: Stack slot load at 32 mismatch: defined as size 4, got size 16
(defun-debug add-debug-yrot-vector ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 float) (arg5 rgba))
(local-vars (sv-32 float))
(set! sv-32 arg3)
(let ((s0-0 arg4)
(let ((sv-32 arg3)
(s0-0 arg4)
(s3-0 arg5)
)
(if (not arg0)
@@ -1049,44 +1042,48 @@
(arg7 matrix)
)
"note: you may pass #f for orientation"
(local-vars (sv-48 vector) (sv-64 vector) (sv-80 int) (sv-96 vector) (sv-112 vector))
(if (not arg0)
(return #f)
)
(let ((f30-0 arg3))
(set! sv-48 (new 'stack-no-clear 'vector))
(let ((f30-0 arg3)
(sv-48 (new 'stack-no-clear 'vector))
)
(set! (-> sv-48 quad) (the-as uint128 0))
(set! sv-64 (new 'stack-no-clear 'vector))
(set! (-> sv-64 quad) (the-as uint128 0))
(set! sv-80 0)
(while (< sv-80 12)
(set! sv-96 sv-48)
(set! (-> sv-96 x) (* arg5 (sin f30-0)))
(set! (-> sv-96 y) 0.0)
(set! (-> sv-96 z) (* arg5 (cos f30-0)))
(set! (-> sv-96 w) 1.0)
(+! f30-0 (the float (/ (the int (- arg4 arg3)) 12)))
(set! sv-112 sv-64)
(set! (-> sv-112 x) (* arg5 (sin f30-0)))
(set! (-> sv-112 y) 0.0)
(set! (-> sv-112 z) (* arg5 (cos f30-0)))
(set! (-> sv-112 w) 1.0)
(when arg7
(vector-matrix*! sv-48 sv-48 arg7)
(vector-matrix*! sv-64 sv-64 arg7)
(let ((sv-64 (new 'stack-no-clear 'vector)))
(set! (-> sv-64 quad) (the-as uint128 0))
(let ((sv-80 0))
(while (< sv-80 12)
(let ((sv-96 sv-48))
(set! (-> sv-96 x) (* arg5 (sin f30-0)))
(set! (-> sv-96 y) 0.0)
(set! (-> sv-96 z) (* arg5 (cos f30-0)))
(set! (-> sv-96 w) 1.0)
)
(+! f30-0 (the float (/ (the int (- arg4 arg3)) 12)))
(let ((sv-112 sv-64))
(set! (-> sv-112 x) (* arg5 (sin f30-0)))
(set! (-> sv-112 y) 0.0)
(set! (-> sv-112 z) (* arg5 (cos f30-0)))
(set! (-> sv-112 w) 1.0)
)
(when arg7
(vector-matrix*! sv-48 sv-48 arg7)
(vector-matrix*! sv-64 sv-64 arg7)
)
(vector+! sv-48 sv-48 arg2)
(vector+! sv-64 sv-64 arg2)
(add-debug-line #t arg1 sv-48 sv-64 arg6 #f (the-as rgba -1))
(cond
((zero? sv-80)
(add-debug-line #t arg1 sv-48 arg2 arg6 #f (the-as rgba -1))
)
((= sv-80 11)
(add-debug-line #t arg1 sv-64 arg2 arg6 #f (the-as rgba -1))
)
)
(+! sv-80 1)
)
)
(vector+! sv-48 sv-48 arg2)
(vector+! sv-64 sv-64 arg2)
(add-debug-line #t arg1 sv-48 sv-64 arg6 #f (the-as rgba -1))
(cond
((zero? sv-80)
(add-debug-line #t arg1 sv-48 arg2 arg6 #f (the-as rgba -1))
)
((= sv-80 11)
(add-debug-line #t arg1 sv-64 arg2 arg6 #f (the-as rgba -1))
)
)
(set! sv-80 (+ sv-80 1))
)
)
#f
@@ -1102,21 +1099,23 @@
(arg5 int)
(arg6 rgba)
)
(local-vars (sv-48 vector) (sv-64 int) (sv-80 int))
(if (not arg0)
(return #f)
)
(let ((s0-0 (new-stack-vector0)))
(set! sv-48 (new 'stack-no-clear 'vector))
(let ((s0-0 (new-stack-vector0))
(sv-48 (new 'stack-no-clear 'vector))
)
(set! (-> sv-48 quad) (the-as uint128 0))
(set! sv-64 (* arg3 4))
(curve-evaluate! sv-48 (-> arg4 0) arg2 arg3 arg4 arg5)
(set! sv-80 0)
(while (< sv-80 sv-64)
(set! (-> s0-0 quad) (-> sv-48 quad))
(curve-evaluate! sv-48 (/ (the float (+ sv-80 1)) (the float sv-64)) arg2 arg3 arg4 arg5)
(add-debug-line #t arg1 s0-0 sv-48 arg6 #f (the-as rgba -1))
(set! sv-80 (+ sv-80 1))
(let ((sv-64 (* arg3 4)))
(curve-evaluate! sv-48 (-> arg4 0) arg2 arg3 arg4 arg5)
(let ((sv-80 0))
(while (< sv-80 sv-64)
(set! (-> s0-0 quad) (-> sv-48 quad))
(curve-evaluate! sv-48 (/ (the float (+ sv-80 1)) (the float sv-64)) arg2 arg3 arg4 arg5)
(add-debug-line #t arg1 s0-0 sv-48 arg6 #f (the-as rgba -1))
(+! sv-80 1)
)
)
)
)
#f
@@ -1133,48 +1132,26 @@
;; definition (debug) for function add-debug-points
;; INFO: Used lq/sq
(defun-debug add-debug-points ((arg0 symbol) (arg1 bucket-id) (arg2 (inline-array vector)) (arg3 int) (arg4 rgba) (arg5 float) (arg6 int))
(local-vars
(sv-32 (function symbol bucket-id string vector font-color vector2h symbol))
(sv-48 symbol)
(sv-64 bucket-id)
(sv-80 (function _varargs_ object))
(sv-96 vector)
)
(when arg0
(dotimes (s0-0 arg3)
(set! sv-96 (new 'stack-no-clear 'vector))
(set! (-> sv-96 quad) (the-as uint128 0))
(set! (-> sv-96 quad) (-> arg2 s0-0 quad))
(if (!= arg5 0.0)
(set! (-> sv-96 y) arg5)
(let ((sv-96 (new 'stack-no-clear 'vector)))
(set! (-> sv-96 quad) (the-as uint128 0))
(set! (-> sv-96 quad) (-> arg2 s0-0 quad))
(if (!= arg5 0.0)
(set! (-> sv-96 y) arg5)
)
(let ((sv-32 add-debug-text-3d)
(sv-48 #t)
(sv-64 arg1)
)
(format (clear *temp-string*) "~d" s0-0)
(sv-32 sv-48 sv-64 *temp-string* sv-96 (font-color white) (the-as vector2h #f))
)
(set! sv-32 add-debug-text-3d)
(set! sv-48 #t)
(set! sv-64 arg1)
(set! sv-80 format)
(let ((a0-5 (clear *temp-string*))
(a1-1 "~d")
(a2-1 s0-0)
)
(sv-80 a0-5 a1-1 a2-1)
)
(let ((a2-2 *temp-string*)
(a3-1 sv-96)
(t0-1 1)
(t1-1 #f)
)
(sv-32 sv-48 sv-64 a2-2 a3-1 (the-as font-color t0-1) (the-as vector2h t1-1))
)
(let ((t9-3 add-debug-x)
(a0-7 #t)
(a1-3 arg1)
(a3-2 (if (= s0-0 arg6)
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
arg4
)
)
)
(t9-3 a0-7 a1-3 sv-96 a3-2)
(add-debug-x #t arg1 sv-96 (if (= s0-0 arg6)
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
arg4
)
)
)
)
)