From 6d5ce4cbf6ba1d223e7c5f81c8e42353d60d6ce1 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Mon, 29 Jul 2024 22:54:40 +0100
Subject: [PATCH] remove unused constant values from constants.sml

---
 imperative-shell/constants.sml | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/imperative-shell/constants.sml b/imperative-shell/constants.sml
index 264b471..0ea1c43 100644
--- a/imperative-shell/constants.sml
+++ b/imperative-shell/constants.sml
@@ -1,6 +1,6 @@
 structure Constants =
 struct
-  val boxVertexShaderString =
+  val graphVertexShaderString =
     "#version 300 es\n\
     \layout (location = 0) in vec2 apos;\n\
     \void main()\n\
@@ -8,21 +8,12 @@ struct
     \   gl_Position = vec4(apos.x, apos.y, 0.0f, 1.0f);\n\
     \}"
 
-  val boxFragmentShaderString =
+  val graphFragmentShaderString =
     "#version 300 es\n\
     \precision mediump float;\n\
     \out vec4 FragColor;\n\
-    \uniform vec4 col;\n\
     \void main()\n\
     \{\n\
-    \   FragColor = col;\n\
+    \   FragColor = vec4(0.0f, 0.0f, 0.0f, 1.0f);\n\
     \}";
-
-  val initialDr: Real32.real = 217.0 / 255.0
-  val initialDg: Real32.real = 233.0 / 255.0
-  val initialDb: Real32.real = 227.0 / 255.0
-
-  val initialNr: Real32.real = 17.0 / 255.0
-  val initialNg: Real32.real = 77.0 / 255.0
-  val initialNb: Real32.real = 91.0 / 255.0
 end