#ifdef GL_ES
precision mediump float;
#endif

// Tweaked from  http://glsl.heroku.com/e#5941.2

//
// Description : Array and textureless GLSL 2D/3D/4D 
//               noise functions with wrapping
//      Author : People
//  Maintainer : Anyone
//     Lastmod : 20130111 (davidwparker)
//     License : No Copyright No rights reserved.
//               Freely distributed
//


uniform mat3  outputToWorld;

uniform vec4  color1;
uniform vec4  color2;
uniform float detail;
uniform float time;

const float pi_twice = 6.283185307;


float snoise(vec3 uv, float res)
{
	const vec3 s = vec3(1e0, 1e2, 1e4);
	
	uv *= res;
	
	vec3 uv0 = floor(mod(uv, res))*s;
	vec3 uv1 = floor(mod(uv+vec3(1.), res))*s;
	
	vec3 f = fract(uv);
	f = f*f*(3.0-2.0*f);

	vec4 v = vec4(uv0.x+uv0.y+uv0.z, uv1.x+uv0.y+uv0.z,
		      uv0.x+uv1.y+uv0.z, uv1.x+uv1.y+uv0.z);

	vec4 r = fract(sin(v*1e-3)*1e5);
	float r0 = mix(mix(r.x, r.y, f.x), mix(r.z, r.w, f.x), f.y);
	
	r = fract(sin((v + uv1.z - uv0.z)*1e-3)*1e5);
	float r1 = mix(mix(r.x, r.y, f.x), mix(r.z, r.w, f.x), f.y);
	
	return  2.0 * mix(r0, r1, f.z) - 1.0;               // Range in [-1, 1]
}

void main(void) 
{
  vec2 p = .002 * (outputToWorld * vec3(gl_FragCoord.xy, 1.0)).xy;
  
  float color   = 3.0 * (1.0 - 2.0 * length(p));
	vec3  coord   = vec3(atan(p.y, p.x) / pi_twice, length(p) * 0.4, 0.0);
	
	for(int i = 1; i <= 7; i++)
	{
		float power   = pow(2.0, float(i));
		vec3  timed   = vec3(0.0, - time*.02, time*.01);
    
		color        += 1.5 * snoise(coord + timed, power * detail) / power;
	}
  
  color = max(color, 0.);


  // ORIGINAL:
	//gl_FragColor = vec4( color, pow(max(color,0.),2.)*0.4, pow(max(color,0.),3.)*0.15 , 1.0);
  
  vec4 col1 = color1 * color1.a, col2 = color2 * color2.a;
  
  gl_FragColor    = mix(col1, col2, color / 3.0);
  gl_FragColor.a *= smoothstep(0.0, 1.0, color);

  gl_FragColor.rgb *= gl_FragColor.a;                 // Premultiplication
}