humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use different colours for program

Browse Source
This commit is contained in:
Humza Shahid
2025-09-27 08:00:21 +01:00
parent cd31bdd0d5
commit 2c388899ca
2 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
fcore/text-builder/text-builder-utils.sml
View File

@@ -66,25 +66,25 @@ struct
end end
in in
if TC.textLineWidth > width then if TC.textLineWidth > width then
{ charR = 0.67 { charR = 0.01
, charG = 0.51 , charG = 0.01
, charB = 0.83 , charB = 0.01
, highlightR = 0.211 , highlightR = 0.76
, highlightG = 0.219 , highlightG = 0.73
, highlightB = 0.25 , highlightB = 0.71
, cursorR = 1.0 , cursorR = 0.65
, cursorG = 1.0 , cursorG = 0.01
, cursorB = 1.0 , cursorB = 0.01
, highlightOnCharR = 0.0 , highlightOnCharR = 0.0
, highlightOnCharG = 0.0 , highlightOnCharG = 0.0
, highlightOnCharB = 0.0 , highlightOnCharB = 0.0
, cursorOnCharR = 0.67 , cursorOnCharR = 1.0
, cursorOnCharG = 0.51 , cursorOnCharG = 1.0
, cursorOnCharB = 0.83 , cursorOnCharB = 1.0
, charZ = 0.01 , charZ = 0.01
, cursorZ = 0.03 , cursorZ = 0.03
@@ -107,25 +107,25 @@ struct
let let
val startX = (width - TC.textLineWidth) div 2 val startX = (width - TC.textLineWidth) div 2
in in
{ charR = 0.67 { charR = 0.01
, charG = 0.51 , charG = 0.01
, charB = 0.83 , charB = 0.01
, highlightR = 0.211 , highlightR = 0.76
, highlightG = 0.219 , highlightG = 0.73
, highlightB = 0.25 , highlightB = 0.71
, cursorR = 1.0 , cursorR = 0.65
, cursorG = 1.0 , cursorG = 0.01
, cursorB = 1.0 , cursorB = 0.01
, highlightOnCharR = 0.0 , highlightOnCharR = 0.0
, highlightOnCharG = 0.0 , highlightOnCharG = 0.0
, highlightOnCharB = 0.0 , highlightOnCharB = 0.0
, cursorOnCharR = 0.67 , cursorOnCharR = 1.0
, cursorOnCharG = 0.51 , cursorOnCharG = 1.0
, cursorOnCharB = 0.83 , cursorOnCharB = 1.0
, charZ = 0.01 , charZ = 0.01
, cursorZ = 0.03 , cursorZ = 0.03

2
shell/gl-draw.sml
View File

@@ -152,7 +152,7 @@ struct
let let
val shellState = consumeDrawEvents shellState 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 _ = Gles3.clear ()
val app = update app val app = update app