From c426cc03270fc73b27ccd04305e588f86fa1d61b Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 1 May 2021 15:49:48 -0700
Subject: .

Clean up trace colors.
---
 shell/global.mu | 2 +-
 shell/trace.mu  | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/shell/global.mu b/shell/global.mu
index 1a068408..c8babbff 100644
--- a/shell/global.mu
+++ b/shell/global.mu
@@ -208,7 +208,7 @@ fn render-primitives screen: (addr screen), xmin: int, xmax: int, ymax: int {
   var tmpx/eax: int <- copy xmin
   tmpx <- draw-text-rightward screen, "  cr", tmpx, xmax, y, 0x2a/fg=orange, 0xdc/bg=green-bg
   tmpx <- draw-text-rightward screen, ": screen   ", tmpx, xmax, y, 7/fg=grey, 0xdc/bg=green-bg
-  tmpx <- draw-text-rightward screen, "# move cursor down and to left margin", tmpx, xmax, y, 9/fg=blue, 0xdc/bg=green-bg
+  tmpx <- draw-text-rightward screen, "# move cursor down and to left margin", tmpx, xmax, y, 0x38/fg=trace, 0xdc/bg=green-bg
   y <- increment
   var tmpx/eax: int <- copy xmin
   tmpx <- draw-text-rightward screen, "pixel graphics", tmpx, xmax, y, 7/fg=grey, 0xdc/bg=green-bg
diff --git a/shell/trace.mu b/shell/trace.mu
index cfa6b97f..5284c512 100644
--- a/shell/trace.mu
+++ b/shell/trace.mu
@@ -347,7 +347,7 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
       var curr/ebx: (addr trace-line) <- index trace, offset
       var curr-label-ah/eax: (addr handle array byte) <- get curr, label
       var curr-label/eax: (addr array byte) <- lookup *curr-label-ah
-      var bg/edi: int <- copy 0/black
+      var bg/edi: int <- copy 0xc5/bg=blue-bg
       compare show-cursor?, 0/false
       {
         break-if-=
@@ -372,7 +372,7 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
       {
         compare display?, 0/false
         break-if-=
-        y <- render-trace-line screen, curr, xmin, y, xmax, ymax, 9/fg=blue, bg
+        y <- render-trace-line screen, curr, xmin, y, xmax, ymax, 0x38/fg=trace, bg
         copy-to already-hiding-lines?, 0/false
         break $render-trace:iter
       }
@@ -506,7 +506,7 @@ fn clamp-cursor-to-bottom _self: (addr trace), _y: int, screen: (addr screen), x
   {
     compare display?, 0/false
     break-if-=
-    var dummy/ecx: int <- render-trace-line screen, cursor-line, xmin, y, xmax, ymax, 9/fg=blue, 7/cursor-line-bg
+    var dummy/ecx: int <- render-trace-line screen, cursor-line, xmin, y, xmax, ymax, 0x38/fg=trace, 7/cursor-line-bg
     return
   }
   var dummy1/eax: int <- copy 0
-- 
cgit 1.4.1-2-gfad0