#head


void fshader( 
  in float4 l_pos,
  uniform float4 k_exposure,
  uniform float4 k_lightDir,
  uniform float4 k_camPos,
  uniform float4 k_skyScale,
  out float4 o_color: COLOR) 
{ 
  vec3 norm=normalize(l_pos.xyz);
  float4 c=float4(0,0,0,0);  
  
    float3 camToPos=k_camPos.xyz-(norm)*k_skyScale.x;
    vec3 lightSource=k_lightDir.xyz;
    float camToPosDist=length(camToPos);
    vec3 camLoc=camToPos/camToPosDist;
  
    vec3 hVec=normalize(lightSource + camLoc); 
    float NdotL=dot(norm,lightSource);
    float NdotH=dot(norm,hVec);
    
    
  if (length(k_camPos.xyz)<k_skyScale.x){
    
 	  
	  float4 skyLight=lit(dot(normalize(norm+lightSource*3.0),norm), NdotH , 0 ).y*float4(.3,.2,1,1)*.7;
	  skyLight+=lit(dot(normalize(lightSource),norm), NdotH , 0 ).y*float4(.6,.8,1,1);
	  skyLight=skyLight/1.8;
	  
	  
	  float4 sunColor=float4(1,.9,.8,1);
	  float4 sunGlowColor=float4(1,.8,.3,1);
	  float angleFactor=max(0,dot(lightSource,normalize(camToPos*(-1))));//This is where the banding comes from.
	  float dif=length(lightSource-normalize(camToPos*(-1)));
	  c=pow(angleFactor*.9,4)*.6*sunGlowColor+pow(max(0,1.0-dif*10),12)*1.5*sunColor;
	  
	  c+=skyLight+float4(.4,.2,.9,1)*.01;
      c=c*1.0;
      
      //Fade out as camera goes to space
      c=c*pow(1-(length(k_camPos.xyz)-1)/(k_skyScale.x-1),2);

  }


c=expose(k_exposure,c);
o_color=c;
    
}