#ifdef GL_ES
	#ifdef GL_FRAGMENT_PRECISION_HIGH   
		precision highp float;
	#else
		precision mediump float;
	#endif
#endif

uniform sampler2D texture0;
varying vec2 uvVarying;

uniform vec2 screenSize;
uniform float noise;

float rand(vec2 n)
{
  return 0.5 + 0.5 * 
     fract(sin(dot(n.xy, vec2(12.9898, 78.233)))* 43758.5453);
}

void main()
{
	float y = floor(uvVarying.y * screenSize.y);
	float ran = (rand(uvVarying.xy) - 1.0) * 0.5;
	if (noise < 0.1)
	{
		ran = 0.0;
	}
	float delta = mod(y, 4.0) * 0.5;
	gl_FragColor = texture2D(texture0, uvVarying.xy) * (delta + ran);
}

// Project: scanline 
// Created: 2016-10-04

// show all errors
SetErrorMode(2)

// set display properties
SetWindowTitle( "scanline" )
SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
SetSyncRate( 60, 0 )
SetPrintSize(16)

// load media
img = LoadImage("scanline.png")

// load shader
shader = LoadFullScreenShader("scanline.ps")
SetShaderConstantByName(shader, "screenSize", 1024, 768, 0, 0)
// set 1 to 0 to remove noise
SetShaderConstantByName(shader, "noise", 1, 0, 0, 0)

// create quad object
renderImage = CreateRenderImage(1024, 768, 0, 0)
quad = CreateObjectQuad()
SetObjectShader(quad, shader)

// create sprite
SetImageMagFilter(img, 0)
spr = CreateSprite(img)
SetSpriteScale(spr, 2, 2)
SetSpritePositionByOffset(spr, 512, 384)

do
    
    // do actions on mouse button pressed
    // reset state
	MODE = 0
	change = 0
	
	// set state based on mouse pressed
    if GetPointerState()>0
		if MODE=0 then change = 1
		MODE = 1
	else
		if MODE=1 then change = 2
		MODE = 0
	endif
	
	// set shader visible as needed
	select change
		case 1
			SetObjectShader(quad, shader)
		endcase
		case 2
			SetObjectShader(quad, 0)
		endcase
	endselect
	
	select MODE
		case 0
			Print("Press mouse button to see shader")
			Sync()
		endcase
		case 1
			// render to the render image
			SetRenderToImage(renderImage, -1)
			ClearScreen()
			Update(GetFrameTime())
			print("Showing shader")
			Render2DBack()
			Render2DFront()
			SetObjectImage(quad, renderImage, 0)
			
			// render to the screen
			SetRenderToScreen()
			ClearScreen()
			DrawObject(quad)
			Swap()
		endcase
	endselect
loop

function Norm2D_Init(AmbientRed#,AmbientGreen#,AmbientBlue#)
	global Norm2D_Light as NORM2D_LIGHTDATA[]
	
	global Norm2D_ShaderID
	Norm2D_ShaderID=LoadSpriteShader("Normalmapping2DAlpha.ps")
	SetShaderConstantByName(Norm2D_ShaderID,"AmbientColor",AmbientRed#/255, AmbientGreen#/255, AmbientBlue#/255, 0)
	SetShaderConstantByName(Norm2D_ShaderID,"Falloff", 0.1,0.01,0.001,0.0)
endfunction

uniform sampler2D texture0;
uniform sampler2D texture1;
varying vec2 uvVarying;

uniform vec2 agk_resolution;
uniform vec4 AmbientColor;
uniform vec3 Falloff;

uniform float LightCount;
uniform vec3 LightPosition[8];
uniform vec4 LightColor[8];

vec3 light(vec3 LightPos, vec4 LightColor)
{
	LightPos.y = agk_resolution.y - LightPos.y;
	
	vec3 normal = texture2D(texture1, uvVarying.xy).rgb;
	
    vec3 LightDir = vec3(LightPos.xy - gl_FragCoord.xy, LightPos.z);
	
    vec3 LDIR=normalize(LightDir);
	
	normal = normal * 2.0 - 1.0;
	vec3 NDIR=normalize(normal);
	
	float dist = length(LightDir);
	float Attenuation = clamp((1.0 / (Falloff.x +(Falloff.y * dist) +(Falloff.z * dist * dist))) * LightColor.w,0.0,1.0);
	
	return LightColor.rgb * max(dot(NDIR, LDIR), 0.0) * Attenuation;
}

void main()
{
	
    vec4 diffuse = texture2D(texture0, uvVarying.xy);
	vec3 Light;
	for(int i=0; i < int(LightCount); i++)
	{
		Light = Light + light(LightPosition[i], LightColor[i]);
	}

	//gl_FragColor = diffuse * (AmbientColor + vec4(Light,0.0));  // previous fragcolor - no alpha
	gl_FragColor = (AmbientColor + diffuse) * vec4(diffuse.rgb * AmbientColor, diffuse.a) + vec4(Light,0.0) * diffuse.rgb; // new fragcolor with alpha. SetSpriteTransparency(SpriteID, 1) in your agk code
}

//update elements
	Update(0)
	
	//Create HUDs texture
	SetHUDsVisible( 1 )
	//SetMapVisible( 0 )
	//SetSpriteVisible( SptBackground, 0 )
	SetRenderToImage( ImgHUD, 0 )
	ClearScreen()
	Render()

	//Create MAP texture
	SetHUDsVisible( 0 )
	SetMapVisible( 1 )
	SetSpriteVisible( SptBackground, 1 )
	
	SetRenderToImage( ImgNoBlur, 0 )
	ClearScreen()
	Render()
	
	//apply blur
	SetMapVisible( 0 )
	SetSpriteVisible( SptBackground, 0 )
	
	SetObjectShader( ObjScreen, ShdVertBlur )
	SetRenderToImage( ImgVBlur, 0 )
	SetObjectImage( ObjScreen, ImgNoBlur, 0 )
	ClearScreen()
	DrawObject( ObjScreen )
	//Render()
	
	SetObjectShader( ObjScreen, ShdHorzBlur )
	SetRenderToImage( ImgTiltShift, 0 )
	SetObjectImage( ObjScreen, ImgVBlur, 0 )
	ClearScreen()
	DrawObject( ObjScreen )
	//Render()
	
	SetObjectShader( ObjScreen, ShdCombine )
	SetObjectImage( ObjScreen, ImgTiltShift, 0 )
	SetObjectImage( ObjScreen, ImgHUD, 1 )
	//SetHUDsVisible( 1 )
	SetRenderToScreen()
	ClearScreen()
	DrawObject( ObjScreen )
	//Render()
	
	//ClearScreen()
	
	//remend
	
	Swap()