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

remove unused constant values from constants.sml

Browse Source
This commit is contained in:
Humza Shahid
2024-07-29 22:54:40 +01:00
parent 438f6458a0
commit 6d5ce4cbf6
1 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
imperative-shell/constants.sml
View File

@@ -1,6 +1,6 @@
structure Constants = structure Constants =
struct struct
val boxVertexShaderString = val graphVertexShaderString =
"#version 300 es\n\ "#version 300 es\n\
\layout (location = 0) in vec2 apos;\n\ \layout (location = 0) in vec2 apos;\n\
\void main()\n\ \void main()\n\
@@ -8,21 +8,12 @@ struct
\ gl_Position = vec4(apos.x, apos.y, 0.0f, 1.0f);\n\ \ gl_Position = vec4(apos.x, apos.y, 0.0f, 1.0f);\n\
\}" \}"
val boxFragmentShaderString = val graphFragmentShaderString =
"#version 300 es\n\ "#version 300 es\n\
\precision mediump float;\n\ \precision mediump float;\n\
\out vec4 FragColor;\n\ \out vec4 FragColor;\n\
\uniform vec4 col;\n\
\void main()\n\ \void main()\n\
\{\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 end