Added our first ShaderToy.com conversion

Author: pkivolowitz

per-fragment-phong.fs.glsl

@@ -31,6 +31,9 @@ uniform vec3 light_position = vec3(0.0, 0.0, 1000.0);
 
 uniform sampler2D base_texture;
 
+// A global time value as needed by many of the shader toy shaders.
+uniform float global_time;
+
 subroutine(color_t)
 vec4 Constant()
 {
@@ -76,6 +79,30 @@ vec4 PPLWithTexture()
 	vec3 specular = pow(max(dot(r, v), 0.0), specular_power) * specular_albedo;
 
 	return vec4(ambient + diffuse + specular, 1.0);
+		//vec4(fs_in.T.t, fs_in.T.t, fs_in.T.t, 0); // 
+}
+
+subroutine(color_t)
+vec4 ShaderToy1()
+{
+	// http://www.pouet.net/prod.php?which=57245
+
+	vec3 c;
+	float l;
+	float z= global_time;
+
+	for(int i=0;i<3;i++)
+	{
+		vec2 uv;
+		vec2 p = fs_in.T;
+		uv = p;
+		p -= 0.5;
+		z +=.07;
+		l = length(p);
+		uv += p / l * (sin(z)+1.0) * abs(sin(l * 9.0 - z * 2.0));
+		c[i] = 0.01/length(abs(mod(uv, 1.0) - 0.5));
+	}
+	return vec4(c / l, 1.0);
 }
 
 void main(void)

per-fragment-phong.vs.glsl

@@ -1,7 +1,5 @@
 #version 410 core
 
-// Lifted largely from OpenGL Superbible 7th Edition
-
 // Per-vertex attributes. The location here corresponds
 // to the attribute number in the calling CPU-based program.
 layout (location = 0) in vec3 position;