From 90905544d4a5b7f7ae8000a5cbadf8a10e5b2c69 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Wed, 7 Dec 2022 17:53:17 +0300
Subject: [PATCH] Upcase signal values

---
 _web_server/server/playground-server.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm
index 34983c5..fc07686 100755
--- a/_web_server/server/playground-server.scm
+++ b/_web_server/server/playground-server.scm
@@ -304,10 +304,10 @@
                                         (- x1 x0 (* data-hw 2))
                                         (- y1 y0))
                            (format-inex "<text x=\"~a\" y=\"~a\">" 0 text-position)
-                           (if (or (eq? sig-type 'real)
-                                   (< sig-width 4))
-                               value
-                               (string-upcase
+                           (string-upcase
+                            (if (or (eq? sig-type 'real)
+                                    (<= sig-width 4))
+                                value
                                 (vcd-binary->hex value #t)))
                            "</text></svg>"))))