mirror of
https://github.com/open-goal/jak-project
synced 2026-09-06 19:21:00 -04:00
clean up font color
This commit is contained in:
water
@@ -57,6 +57,7 @@
|
||||
)
|
||||
|
||||
;; definition for method 3 of type debug-vertex-stats
|
||||
;; INFO: this function exists in multiple non-identical object files
|
||||
(defmethod inspect debug-vertex-stats ((obj debug-vertex-stats))
|
||||
(format #t "[~8x] ~A~%" obj (-> obj type))
|
||||
(format #t "~Tlength: ~D~%" (-> obj length))
|
||||
|
||||
+84
-67
@@ -51,7 +51,16 @@
|
||||
(set! (-> gp-0 joypad-item) #f)
|
||||
(set!
|
||||
(-> gp-0 font)
|
||||
(new 'debug 'font-context *font-default-matrix* 0 0 0.0 0 (the-as uint 3))
|
||||
(new
|
||||
'debug
|
||||
'font-context
|
||||
*font-default-matrix*
|
||||
0
|
||||
0
|
||||
0.0
|
||||
(font-color default)
|
||||
(the-as uint 3)
|
||||
)
|
||||
)
|
||||
gp-0
|
||||
)
|
||||
@@ -773,8 +782,11 @@
|
||||
)
|
||||
(cond
|
||||
((= s4-0 'menu)
|
||||
(let ((s4-1 (new 'debug 'debug-menu arg0 s5-1)))
|
||||
(set! s5-0 (new 'debug 'debug-menu-item-submenu s5-1 s4-1))
|
||||
(let ((s4-1 (new 'debug 'debug-menu arg0 (the-as string s5-1))))
|
||||
(set!
|
||||
s5-0
|
||||
(new 'debug 'debug-menu-item-submenu (the-as string s5-1) s4-1)
|
||||
)
|
||||
(let* ((gp-1 (cdr (cdr arg1)))
|
||||
(a1-3 (car gp-1))
|
||||
)
|
||||
@@ -791,7 +803,7 @@
|
||||
)
|
||||
)
|
||||
((= s4-0 'main-menu)
|
||||
(set! s5-0 (new 'debug 'debug-menu arg0 s5-1))
|
||||
(set! s5-0 (new 'debug 'debug-menu arg0 (the-as string s5-1)))
|
||||
(let* ((gp-2 (cdr (cdr arg1)))
|
||||
(a1-6 (car gp-2))
|
||||
)
|
||||
@@ -816,7 +828,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-flag
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as symbol (car (cdr (cdr arg1))))
|
||||
(debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))
|
||||
)
|
||||
@@ -825,7 +837,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-function
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as int (car (cdr (cdr arg1))))
|
||||
(debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))
|
||||
)
|
||||
@@ -834,7 +846,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-var
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as int (car (cdr (cdr arg1))))
|
||||
(the-as int (car (cdr (cdr (cdr arg1)))))
|
||||
)
|
||||
@@ -849,7 +861,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-var
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as int (car (cdr (cdr arg1))))
|
||||
(the-as int (ref arg1 4))
|
||||
)
|
||||
@@ -886,7 +898,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-var
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as int (car (cdr (cdr arg1))))
|
||||
(the-as int (ref arg1 4))
|
||||
)
|
||||
@@ -921,7 +933,7 @@
|
||||
(new
|
||||
'debug
|
||||
'debug-menu-item-var
|
||||
s5-1
|
||||
(the-as string s5-1)
|
||||
(the-as int (car (cdr (cdr arg1))))
|
||||
(the-as int (ref arg1 4))
|
||||
)
|
||||
@@ -1025,16 +1037,17 @@
|
||||
(set! (-> v1-2 origin x) (the float arg1))
|
||||
(set! (-> v1-2 origin y) (the float a0-1))
|
||||
)
|
||||
(set! (-> s5-0 color) (cond
|
||||
((zero? arg3)
|
||||
12
|
||||
)
|
||||
(arg4
|
||||
11
|
||||
)
|
||||
(else
|
||||
13
|
||||
)
|
||||
(set! (-> s5-0 color) (the-as font-color (cond
|
||||
((zero? arg3)
|
||||
12
|
||||
)
|
||||
(arg4
|
||||
11
|
||||
)
|
||||
(else
|
||||
13
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
@@ -1080,21 +1093,22 @@
|
||||
(set! (-> a0-1 origin x) (the float arg1))
|
||||
(set! (-> a0-1 origin y) (the float a1-1))
|
||||
)
|
||||
(set! (-> v1-2 color) (cond
|
||||
((> (-> arg0 hilite-timer) 0)
|
||||
(+! (-> arg0 hilite-timer) -1)
|
||||
10
|
||||
)
|
||||
((< (-> arg0 hilite-timer) 0)
|
||||
(+! (-> arg0 hilite-timer) 1)
|
||||
14
|
||||
)
|
||||
((nonzero? arg3)
|
||||
13
|
||||
)
|
||||
(else
|
||||
12
|
||||
)
|
||||
(set! (-> v1-2 color) (the-as font-color (cond
|
||||
((> (-> arg0 hilite-timer) 0)
|
||||
(+! (-> arg0 hilite-timer) -1)
|
||||
10
|
||||
)
|
||||
((< (-> arg0 hilite-timer) 0)
|
||||
(+! (-> arg0 hilite-timer) 1)
|
||||
14
|
||||
)
|
||||
((nonzero? arg3)
|
||||
13
|
||||
)
|
||||
(else
|
||||
12
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let* ((s4-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
@@ -1134,22 +1148,23 @@
|
||||
(set! (-> a0-1 origin x) (the float arg1))
|
||||
(set! (-> a0-1 origin y) (the float a1-1))
|
||||
)
|
||||
(set! (-> v1-2 color) (cond
|
||||
((= (-> arg0 is-on) 'invalid)
|
||||
19
|
||||
)
|
||||
((-> arg0 is-on)
|
||||
(if (zero? arg3)
|
||||
15
|
||||
16
|
||||
)
|
||||
)
|
||||
((zero? arg3)
|
||||
17
|
||||
)
|
||||
(else
|
||||
18
|
||||
)
|
||||
(set! (-> v1-2 color) (the-as font-color (cond
|
||||
((= (-> arg0 is-on) 'invalid)
|
||||
19
|
||||
)
|
||||
((-> arg0 is-on)
|
||||
(if (zero? arg3)
|
||||
15
|
||||
16
|
||||
)
|
||||
)
|
||||
((zero? arg3)
|
||||
17
|
||||
)
|
||||
(else
|
||||
18
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let* ((s4-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
@@ -1189,19 +1204,20 @@
|
||||
(set! (-> v1-2 origin x) (the float arg1))
|
||||
(set! (-> v1-2 origin y) (the float a0-1))
|
||||
)
|
||||
(set! (-> s5-0 color) (cond
|
||||
((zero? arg3)
|
||||
(if (-> arg0 grabbed-joypad-p)
|
||||
10
|
||||
12
|
||||
)
|
||||
)
|
||||
(arg4
|
||||
11
|
||||
)
|
||||
(else
|
||||
13
|
||||
)
|
||||
(set! (-> s5-0 color) (the-as font-color (cond
|
||||
((zero? arg3)
|
||||
(if (-> arg0 grabbed-joypad-p)
|
||||
10
|
||||
12
|
||||
)
|
||||
)
|
||||
(arg4
|
||||
11
|
||||
)
|
||||
(else
|
||||
13
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let* ((s1-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
||||
@@ -1364,9 +1380,10 @@
|
||||
)
|
||||
(while (not (null? s1-1))
|
||||
(when (= s0-1 arg3)
|
||||
(set! (-> arg0 context font color) (if (nonzero? arg4)
|
||||
13
|
||||
12
|
||||
(set! (-> arg0 context font color) (the-as font-color (if (nonzero? arg4)
|
||||
13
|
||||
12
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v1-16 (-> arg0 context font))
|
||||
|
||||
Reference in New Issue
Block a user