From 2c388899ca6d6f5775d39eb36d5cb647f8df726e Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Sat, 27 Sep 2025 08:00:21 +0100 Subject: [PATCH] use different colours for program --- fcore/text-builder/text-builder-utils.sml | 48 +++++++++++------------ shell/gl-draw.sml | 2 +- 2 files changed, 25 insertions(+), 25 deletions(-) diff --git a/fcore/text-builder/text-builder-utils.sml b/fcore/text-builder/text-builder-utils.sml index f2d5bd0..5479e8f 100644 --- a/fcore/text-builder/text-builder-utils.sml +++ b/fcore/text-builder/text-builder-utils.sml @@ -66,25 +66,25 @@ struct end in if TC.textLineWidth > width then - { charR = 0.67 - , charG = 0.51 - , charB = 0.83 + { charR = 0.01 + , charG = 0.01 + , charB = 0.01 - , highlightR = 0.211 - , highlightG = 0.219 - , highlightB = 0.25 + , highlightR = 0.76 + , highlightG = 0.73 + , highlightB = 0.71 - , cursorR = 1.0 - , cursorG = 1.0 - , cursorB = 1.0 + , cursorR = 0.65 + , cursorG = 0.01 + , cursorB = 0.01 , highlightOnCharR = 0.0 , highlightOnCharG = 0.0 , highlightOnCharB = 0.0 - , cursorOnCharR = 0.67 - , cursorOnCharG = 0.51 - , cursorOnCharB = 0.83 + , cursorOnCharR = 1.0 + , cursorOnCharG = 1.0 + , cursorOnCharB = 1.0 , charZ = 0.01 , cursorZ = 0.03 @@ -107,25 +107,25 @@ struct let val startX = (width - TC.textLineWidth) div 2 in - { charR = 0.67 - , charG = 0.51 - , charB = 0.83 + { charR = 0.01 + , charG = 0.01 + , charB = 0.01 - , highlightR = 0.211 - , highlightG = 0.219 - , highlightB = 0.25 + , highlightR = 0.76 + , highlightG = 0.73 + , highlightB = 0.71 - , cursorR = 1.0 - , cursorG = 1.0 - , cursorB = 1.0 + , cursorR = 0.65 + , cursorG = 0.01 + , cursorB = 0.01 , highlightOnCharR = 0.0 , highlightOnCharG = 0.0 , highlightOnCharB = 0.0 - , cursorOnCharR = 0.67 - , cursorOnCharG = 0.51 - , cursorOnCharB = 0.83 + , cursorOnCharR = 1.0 + , cursorOnCharG = 1.0 + , cursorOnCharB = 1.0 , charZ = 0.01 , cursorZ = 0.03 diff --git a/shell/gl-draw.sml b/shell/gl-draw.sml index 3915fc8..72bd141 100644 --- a/shell/gl-draw.sml +++ b/shell/gl-draw.sml @@ -152,7 +152,7 @@ struct let val shellState = consumeDrawEvents shellState - val _ = Gles3.clearColor (0.3, 0.3, 0.3, 1.0) + val _ = Gles3.clearColor (0.97, 0.95, 0.937, 1.0) val _ = Gles3.clear () val app = update app