mirror of
https://github.com/open-goal/jak-project
synced 2026-07-11 15:28:58 -04:00
[goos] fix pretty printer bugs, update ref after pretty printer changes (#1063)
* update ref after pretty printer changes * another try
This commit is contained in:
+14
-19
@@ -192,10 +192,9 @@
|
||||
)
|
||||
(set! (-> arg1 w) 1.0)
|
||||
(set! (-> sv-80 w) 1.0)
|
||||
(when (and
|
||||
(transform-point-qword! (the-as vector4w (-> s4-0 quad)) arg1)
|
||||
(transform-point-qword! (the-as vector4w (&-> s4-0 quad 1)) sv-80)
|
||||
)
|
||||
(when (and (transform-point-qword! (the-as vector4w (-> s4-0 quad)) arg1)
|
||||
(transform-point-qword! (the-as vector4w (&-> s4-0 quad 1)) sv-80)
|
||||
)
|
||||
(let* ((v1-28 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
(a2-1 (-> v1-28 base))
|
||||
)
|
||||
@@ -396,11 +395,10 @@
|
||||
(set! (-> arg2 w) 1.0)
|
||||
(set! (-> arg3 w) 1.0)
|
||||
(set! (-> arg4 w) 1.0)
|
||||
(when (and
|
||||
(transform-point-qword! (the-as vector4w (-> s5-0 quad)) arg2)
|
||||
(transform-point-qword! (the-as vector4w (&-> s5-0 quad 1)) arg3)
|
||||
(transform-point-qword! (the-as vector4w (&-> s5-0 quad 2)) arg4)
|
||||
)
|
||||
(when (and (transform-point-qword! (the-as vector4w (-> s5-0 quad)) arg2)
|
||||
(transform-point-qword! (the-as vector4w (&-> s5-0 quad 1)) arg3)
|
||||
(transform-point-qword! (the-as vector4w (&-> s5-0 quad 2)) arg4)
|
||||
)
|
||||
(let* ((v1-9 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
(a2-1 (-> v1-9 base))
|
||||
)
|
||||
@@ -1298,16 +1296,13 @@
|
||||
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
|
||||
)
|
||||
(let ((s2-1 (vector+*! (new-stack-vector0) arg3 (-> arg2 direction) (* 12288.0 (-> arg2 levels x))))
|
||||
(s1-0 (logior
|
||||
(logior
|
||||
(logior
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color w))) 56) 32)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color z))) 56) 40)
|
||||
)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color y))) 56) 48)
|
||||
)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color x))) 56) 56)
|
||||
)
|
||||
(s1-0 (logior (logior (logior (shr (shl (the int (* 128.0 (-> arg2 color w))) 56) 32)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color z))) 56) 40)
|
||||
)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color y))) 56) 48)
|
||||
)
|
||||
(shr (shl (the int (* 128.0 (-> arg2 color x))) 56) 56)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format (clear *temp-string*) "~S ~,,2f" arg4 (-> arg2 levels x))
|
||||
|
||||
Reference in New Issue
Block a user