hardcode more pleasant (in my opinion) colour scheme for the moment

2024-10-09 01:23:26 +01:00
parent 1ae15e5585
commit bfc5a3914c
3 changed files with 2 additions and 2 deletions
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -178,7 +178,7 @@ struct
                , 5, 5, 5
                , windowWidth, windowHeight
                , Real32.fromInt windowWidth, Real32.fromInt windowHeight
-                , 0.0, 0.0, 0.0
+                , 0.67, 0.51, 0.83
                , rStrTl
                )
            end
--- a/shell/gl-draw.sml
+++ b/shell/gl-draw.sml
@@ -125,7 +125,7 @@ struct
        let
          val shellState = consumeDrawEvents shellState

-          val _ = Gles3.clearColor (1.0, 1.0, 1.0, 1.0)
+          val _ = Gles3.clearColor (0.087, 0.095, 0.13, 1.0)
          val _ = Gles3.clear ()

          val _ = draw shellState
--- a/BIN
+++ b/BIN