shf/shell/gl-shaders.sml

structure GlShaders =
struct
  val xyzRgbVertexShaderString =
    "#version 300 es\n\
    \layout (location = 0) in vec3 apos;\n\
    \layout (location = 1) in vec3 col;\n\
    \out vec3 frag_col;\n\
    \void main()\n\
    \{\n\
    \   frag_col = col;\n\
    \   gl_Position = vec4(apos.x, apos.y, apos.z, 1.0f);\n\
    \}"

  val rgbFragmentShaderString =
    "#version 300 es\n\
    \precision mediump float;\n\
    \in vec3 frag_col;\n\
    \out vec4 FragColor;\n\
    \void main()\n\
    \{\n\
    \   FragColor = vec4(frag_col.x, frag_col.y, frag_col.z, 1.0f);\n\
    \}"
end
add shader strings for open gl 2024-09-30 15:46:19 +01:00			`structure GlShaders =`
			`struct`
adjust imperative shell to use xyz coordinates for position, instead of simply xy; need to ensure the functional core code outputs a vector in this format too 2025-09-11 01:43:23 +01:00			`val xyzRgbVertexShaderString =`
add shader strings for open gl 2024-09-30 15:46:19 +01:00			`"#version 300 es\n\`
begin refactoring code to use a single vertex buffer for all shapes 2025-09-11 01:31:19 +01:00			`\layout (location = 0) in vec3 apos;\n\`
add shader strings for open gl 2024-09-30 15:46:19 +01:00			`\layout (location = 1) in vec3 col;\n\`
			`\out vec3 frag_col;\n\`
			`\void main()\n\`
			`\{\n\`
			`\ frag_col = col;\n\`
begin refactoring code to use a single vertex buffer for all shapes 2025-09-11 01:31:19 +01:00			`\ gl_Position = vec4(apos.x, apos.y, apos.z, 1.0f);\n\`
add shader strings for open gl 2024-09-30 15:46:19 +01:00			`\}"`

			`val rgbFragmentShaderString =`
			`"#version 300 es\n\`
			`\precision mediump float;\n\`
			`\in vec3 frag_col;\n\`
			`\out vec4 FragColor;\n\`
			`\void main()\n\`
			`\{\n\`
			`\ FragColor = vec4(frag_col.x, frag_col.y, frag_col.z, 1.0f);\n\`
			`\}"`
			`end`