Sorry your browser is not supported!

grid = CreateObjectPlane(1.0, 1.0)
SetObjectTransparency(grid, 1)
SetObjectImage(grid, grid_img, 0)
SetObjectRotation(grid, 90.0, 0.0, 0.0)
SetObjectScale(grid, 5.0, 5.0, 1.0)
grid_shader = LoadShader("grid.vs", "grid.ps")
SetObjectShader(grid, grid_shader)
SetObjectShaderConstantByName(grid, "Scale", 5.0, 5.0, 0.0, 0.0)

attribute highp vec3 position;
attribute mediump vec3 normal;

varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;

mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );

uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;

attribute highp vec2 uv;
varying highp vec2 uvVarying;
uniform highp vec4 uvBounds0;

void main()
{ 

	uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
	highp vec4 pos = agk_World * vec4(position,1.0);
	gl_Position = agk_ViewProj * pos;
	mediump vec3 norm = normalize(agk_WorldNormal * normal);
	posVarying = pos.xyz;
	normalVarying = norm;
	lightVarying = GetVSLighting( norm, posVarying );

}

bool onGridline(int distFrom, int spacing);
bool onSplitline(int distFrom, int spacing, int interval);
varying mediump vec2 uvVarying;
uniform highp vec2 Scale;
 
uniform sampler2D texture0;
  
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
 
varying mediump vec3 lightVarying;
  
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
  
 
 
 
void main( )
{
 
 
    mediump vec3 norm = normalize(normalVarying);
    mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying ); 
     
    mediump vec3 color = texture2D(texture0, uvVarying).rgb * light;
    color = ApplyFog( color, posVarying );
     
    gl_FragColor = vec4(color,1.0);
 
    // Colours , used to return to fragColor depending on criteria.
    const vec4 cBackground = vec4(0.0,0.0,0.0,0.0);         // Background colour.
    const vec4 cOrigin = vec4(0.0,0.392,0.392,1.0);         // Frag is directly in line with mouse's X or Y.
    const vec4 cLargeSplit = vec4(0.392,0.18,0.004,1.0);    // Frag is on a large split line.
    const vec4 cMedSplit = vec4(0.449,0.449,0.449,1.0);     // Frag is on a medium split line.
    const vec4 cGridline = vec4(0.293,0.293,0.293,1.0);     // Frag is on a grid line.
     
    // Grid lines
    const int spacingStd = 10;          // Spacing of normal grid lines
    const int intervalLargeSplit = 10;  // On how many gridlines a large split occurs.
    const int intervalMedSplit = 5;     // On how many gridlines a medium split occurs.
    const float zoom = 1.0;         // Zoom level of the grid.
     
    // Effective spacing
    // This is the standard grid spacing, as an integer, once zoom has been applied.
    // We do this here and use this value later to avoid float rounding errors.
    int effGrid = int(floor((float(spacingStd) * zoom) + 0.2));
     
    // Convenience integer values for resolution and frag position.
    int fragX = int((uvVarying.x-0.5)*Scale.x*10.0+(uvVarying.x-0.5));
    int fragY = int((uvVarying.y-0.5)*Scale.y*10.0+(uvVarying.y-0.5));
 
     
    // The offsets to the original mouse position were found by trial and error.
    int mouseX = 0;
    int mouseY = 0;
     
    // Distance this frag is from the mouse position, in each axis.
    int xDistFrom = int(abs(float(mouseX - fragX)));
    int yDistFrom = int(abs(float(mouseY - fragY)));
     
    // ============================================================
     
    // If on same X or Y as mouse, paint with origin colour.
    if ( fragX == mouseX || fragY == mouseY )
    {
        gl_FragColor = gl_FragColor*cOrigin;
        return;
    }
     
    // If on grid line, decide which colour to paint.
    else if ( onGridline(xDistFrom, effGrid) || onGridline(yDistFrom, effGrid) )
    {
        // If on large split line, choose this first.
        if ( onSplitline(xDistFrom, effGrid, intervalLargeSplit) ||
             onSplitline(yDistFrom, effGrid, intervalLargeSplit))
        {
            gl_FragColor = gl_FragColor*cLargeSplit;
            return;
        }
         
        // Then check medium split line.
        else if ( onSplitline(xDistFrom, effGrid, intervalMedSplit) ||
             onSplitline(yDistFrom, effGrid, intervalMedSplit))
        {
            gl_FragColor = gl_FragColor*cMedSplit;
            return;
        }
         
        // Otherwise, return normal grid line colour.
        else
        {
            gl_FragColor = gl_FragColor*cGridline;
            return;
        }
    }
     
    // Fragment is not in line with any grid line - paint as background.
    gl_FragColor = gl_FragColor*vec4(0.0, 0.0, 0.0, 0.0);
}
 
 
bool onGridline(int distFrom, int spacing)
{
    return mod(float(distFrom), float(spacing)) == 0.0;
}
 
 
bool onSplitline(int distFrom, int spacing, int interval)
{
    int newSpacing = spacing * interval;
     
    return mod(float(distFrom), float(newSpacing)) == 0.0;
}

uniform sampler2D texture0;
 
void main()
{
    vec4 basecolor = texture2D(texture0, uvVarying);
     
    //-- alpha blend
	if (overcolor.r > 0.0) {
		basecolor.r--;
	}

	if (overcolor.g > 0.0) {
		basecolor.g--;
	}

	if (overcolor.b > 0.0) {
		basecolor.b--;
	}
	
    //-- minus to erase
    gl_FragColor = basecolor;
      
     
}

uniform sampler2D texture0;

varying mediump vec2 uvVarying;

void main()
{
    vec4 color = texture2D(texture0, uvVarying).rgb;
    color -= vec4(1.0/255.0); // (no branching) make 255 steps as the color in shaders go from 0 to 1
    color = clamp(color,0.0,1.0);
    gl_FragColor = color; 
}

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"texture1.jpg") 

createShader()
CreateSprite(1,1)
LoadSpriteShader(1, "dissolve.ps")
SetSpriteShader( 1,1 )
resetTimer()
time#=Timer() 
do
	if Timer()>time#+1.5 
		resetTimer():time#=Timer()
	endif
	print (timer())
	sync()	

loop
 
function createShader()

file = OpenToWrite("dissolve.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"if (agk_time>1.0){")
WriteLine(file,"color=color-vec4(100.0/255.0);") // (no branching) make 255 steps as the color in shaders go from 0 to 1
WriteLine(file,"color = clamp(color,0.0,1.0);")
WriteLine(file,"}")
WriteLine(file,"gl_FragColor = color;")
WriteLine(file,"}")
CloseFile(file)
endfunction

// Eraser shader from MATTY_H -AGK forum
// texture

uniform sampler2D texture0;
varying vec2 uvVarying;
uniform float agk_time;
 
void main()
{
    vec4 color = texture2D(texture0, uvVarying);
    // color.r -= (1.0/255.0); // (no branching) make 255 steps as the color in shaders go from 0 to 1
    color.r -= agk_time;
    color.g -= agk_time;
	color.b -= agk_time;
    color = clamp(color,0.0,1.0);
    gl_FragColor = color; 
}

sprite = CreateSprite(LoadImage("image.jpg"))

SetSpriteShader(sprite, LoadSpriteShader("fade.ps" ) )

do
	if Timer() > 1.0
		ResetTimer()
	endif
	
    Print( ScreenFPS() )
    Sync()
loop

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"texture1.jpg") 

createShader()
CreateSprite(1,1)
LoadSpriteShader(1, "dissolve.ps")
SetSpriteShader( 1,1 )
resetTimer()
do
	time#=Timer()
        //SetShaderConstantByName(1,"myColor",-time#-,time#,-time#,0.2) //this will make the channels brighter
	SetShaderConstantByName(1,"myColor",time#,time#,time#,0.2) //red green blue factor
	if Timer()>7.0 
		resetTimer()
	endif
	print (time#)
	sync()	

loop
 
function createShader()

file = OpenToWrite("dissolve.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"//color=color-vec4(100.0/255.0);") // (no branching) make 255 steps as the color in shaders go from 0 to 1
WriteLine(file,"color.r-=(myColor.x*myColor.w);")
WriteLine(file,"color.g-=(myColor.y*myColor.w);")
WriteLine(file,"color.b-=(myColor.z*myColor.w);")
WriteLine(file,"color = clamp(color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = color;")
WriteLine(file,"}")
CloseFile(file)
endfunction

time#=Timer()
	r#=time#*(255/255) //red (colors you want divided by 255) 
	g#=time#*(255/255) //green
	b#=time#*(0/255) //Blue        makes yellow    rgb (255,255,0)
	SetShaderConstantByName(1,"myColor",-r#,-g#,-b#,0.2) //red green blue factor

time#=7-Timer()
	r#=time#
	g#=time#
	b#=time#  
	if timer()<7.0
		SetShaderConstantByName(1,"myColor",r#,g#,b#,0.2) //red green blue factor
	endif
	

attribute highp vec3 position;
attribute mediump vec3 normal;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );

uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
varying mediump vec3 tangentVarying;
varying mediump vec3 binormalVarying;
attribute highp vec2 uv;
attribute highp vec2 uv1;
varying highp vec2 uvVarying0;
varying highp vec2 uvVarying1;
uniform highp vec4 uvBounds0;
uniform highp vec4 uvBounds1;

void main()
{ 
    uvVarying0 = uv * uvBounds0.xy + uvBounds0.zw;
    uvVarying1 = uv1 * uvBounds1.xy + uvBounds1.zw;
    mediump vec3 tangent;
    if ( abs(normal.y) > 0.999 ) tangent = vec3( normal.y,0.0,0.0 );
    else tangent = normalize( vec3(-normal.z, 0.0, normal.x) );
    mediump vec3 binormal = normalize( vec3(normal.y*tangent.z, normal.z*tangent.x-normal.x*tangent.z, -normal.y*tangent.x) );
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
    tangentVarying = normalize(agk_WorldNormal * tangent);
    binormalVarying = normalize(agk_WorldNormal * binormal);
}

varying highp vec2 uvVarying0;
varying highp vec2 uvVarying1;
uniform sampler2D texture0;
uniform sampler2D texture1;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
varying highp vec3 posVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
uniform sampler2D texture2;
varying mediump vec3 tangentVarying;
varying mediump vec3 binormalVarying;
uniform mediump vec2 agk_NormalScale;
uniform mediump vec4 agk_MeshDiffuse;
uniform mediump vec4 agk_MeshEmissive;
void main()
{ 
    mediump vec4 blendTex = vec4(1.0,1.0,1.0,1.0);
    mediump vec3 norm = normalize(normalVarying);
    mediump vec2 texture2UV = uvVarying1;
    mediump vec3 normalmap = texture2D(texture2, texture2UV*agk_NormalScale).xyz;
    normalmap = normalmap * 2.0 - 1.0;
    mediump vec3 tangent = normalize(tangentVarying);
    mediump vec3 binormal = normalize(binormalVarying);
    mediump mat3 TBN = mat3( tangent, binormal, norm );
    norm = TBN * normalmap;
    mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying ); 
    mediump vec4 tex1 = texture2D(texture1, uvVarying0); // lightmap
    light += tex1.rgb;
    light *= tex1.rgb;
    mediump vec4 texColor = texture2D(texture0, uvVarying1); // diffuse
    gl_FragColor = texColor * blendTex * vec4(light,1.0) * agk_MeshDiffuse + agk_MeshEmissive;
}

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
#constant fadeShader =1

SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)

createTexture()
createShader()
LoadShader(fadeShader,"fade.vs", "fade.ps")
num=1
for y = 1 to 20	
for x = y to 20-y
for z = y to 20-y
	CreateObjectBox(num,1,1,1)
	SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,x-10,y,-z)
	SetObjectShader( num, fadeShader)
	inc num
next z
next x
next y
mask=CreateObjectBox(1.1,1.1,1.1)
SetObjectColor(mask,255,255,255,180)
SetObjectTransparency(mask,1)
SetObjectFogMode(mask,0)

fadeIn()
do
    
	selectedObj=mouseOver()
	if GetObjectExists(selectedObj) 
		SetObjectVisible( mask, 1 ) 
		SetObjectPosition (mask,GetObjectX(selectedObj),GetObjectY(selectedObj),GetObjectZ(selectedObj))
		lastObj=selectedObj
	endif
	if GetObjectExists(lastObj) and lastObj<>selectedObj 
		SetObjectVisible( mask, 0 ) 
		lastObj=selectedObj
	endif
    if getpointerpressed()=1
		fadeOut()
		end
	endif
	SetShaderConstantByName(fadeShader,"pointPos",1,1,1,1)
	sync()	

loop

function createTexture ()

	for num = 1 to 20
		r=random(50,255): g=random(50,255):b=random(50,255)
		DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
		render()
		GetImage(num,0,0,32,32)
	next num	
endfunction

function fadeIn()
resetTimer()
time#=Timer()
repeat
	time#=Timer()
	r#=7-time#
	g#=7-time#
	b#=7-time#
	SetShaderConstantByName(fadeShader,"myColor",r#,g#,b#,0.2) //red green blue factor
	sync()	
until timer()>7.0
endfunction	

function fadeOut()
resetTimer()
time#=Timer()
repeat
	time#=Timer()
	r#=time#
	g#=time#
	b#=time#
	SetShaderConstantByName(fadeShader,"myColor",r#,g#,b#,0.2) //red green blue factor
	sync()	
until timer()>7.0
endfunction	


function mouseOver()
        
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float 
        
    myX=GetPointerX()
    myY=GetPointerY()
        
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
        
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
        
    rayEndX=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
        
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
endfunction theObjectHit

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}")	
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light;")
WriteLine(file,"colorA.r-=(myColor.x*myColor.w);")
WriteLine(file,"colorA.g-=(myColor.y*myColor.w);")
WriteLine(file,"colorA.b-=(myColor.z*myColor.w);")
WriteLine(file,"colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"}")
CloseFile(file)
endfunction

vec3 colorA = texture2D(texture0, uvVarying).rgb*light;

vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;

#include "../agklib/device.agc"
#include "../agklib/pointer.agc"
#include "../agklib/camera.agc"

img_grass as integer
img_dirt as integer
img_mask as integer
plane as integer
shader as integer

cam as _Camera

// set window properties
SetWindowTitle("probe")

device_Init(1024, 768, 0)
pointer_Init()

img_grass = LoadImage("grass.png")
img_dirt = LoadImage("dirt.png")
img_mask = LoadImage("mask.png")

plane = CreateObjectPlane(10.0, 10.0)
SetObjectRotation(plane, 90.0, 0.0, 0.0)
SetObjectImage(plane, img_grass, 0)
SetObjectImage(plane, img_dirt, 1)
SetObjectImage(plane, img_mask, 2)

shader = LoadShader("alpha.vs", "alpha.ps")
SetObjectShader(plane, shader)

camera_Create(cam, 0.0, 2.5, 0.0, 20.0, 0.0, 0.0, 0)
camera_SetActive(cam, 1)
cam.pitch_max = 80.0

do
	pointer_Update()
	camera_Update(cam)
    Sync()
loop

DeleteImage(img_grass)
DeleteImage(img_dirt)
DeleteImage(img_mask)

// terrain with 2 textures  for ground and an alpha for the road
attribute highp vec3 position;
attribute vec2 uv;
attribute mediump vec3 normal;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );

varying vec2 uv0Varying;
varying vec2 uv1Varying;
varying vec2 uv2Varying;
uniform vec4 uvBounds0;
uniform vec4 uvBounds1;
uniform vec4 uvBounds2;
  
uniform highp mat4 agk_WorldViewProj;
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
 
void main()
{

	highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
	
	// TEXTURES COORDS	
    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;
    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;
    uv2Varying = uv * uvBounds2.xy + uvBounds2.zw;
}

// constant values sent through from AGK code.
uniform sampler2D texture0; // ground
uniform sampler2D texture1; // road
uniform sampler2D texture2; // mask 
 
varying vec2 uv0Varying; // uv for ground
varying vec2 uv1Varying; // uv for road
varying vec2 uv2Varying; // uv for the "alpha mask"

varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
varying highp vec3 posVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform mediump vec4 agk_MeshDiffuse;
uniform mediump vec4 agk_MeshEmissive;
 
void main()
{
	// the textures coords
	vec4 colorResult0  = texture2D(texture0, uv0Varying);
	vec4 colorResult1  = texture2D(texture1, uv1Varying);
	vec4 colorResult2  = texture2D(texture2, uv2Varying);
   
    mediump vec4 blendTex = vec4(1.0,1.0,1.0,1.0);
    mediump vec3 norm = normalize(normalVarying);
    mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying ); 

	// mix with the R color of the 3rd texture. You can use the G and b channel for another road
	gl_FragColor = mix(colorResult0, colorResult1, colorResult2.r); 
	
	// add light
	gl_FragColor = gl_FragColor * blendTex * vec4(light,1.0) * agk_MeshDiffuse + agk_MeshEmissive;
	
	// add fog
	gl_FragColor.rgb = ApplyFog( gl_FragColor.rgb, posVarying );

}

attribute highp vec3 position;
attribute mediump vec3 normal;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );

uniform highp mat4 agk_WorldViewProj;
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
attribute highp vec2 uv;
varying highp vec2 uvVarying;
uniform highp vec4 uvBounds0;

void main()
{ 
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
	
}

uniform sampler2D texture0;
varying highp vec2 uvVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
varying highp vec3 posVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform mediump vec4 agk_MeshDiffuse;
uniform mediump vec4 agk_MeshEmissive;
 
void main()
{
	mediump vec4 color = texture2D(texture0, uvVarying);
	mediump vec4 blendTex = vec4(1.0,1.0,1.0,1.0);
    mediump vec3 norm = normalize(normalVarying);
    mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying ); 

	float intensity;
	vec4 color1;
	intensity = dot(GetPSLighting( norm, posVarying ), norm);
	
	
	
	if (intensity > 0.60)
		color1 = vec4(1.0,1.0,1.0,1.0);
	else if (intensity > 0.5)
		color1 = vec4(0.8,0.8,0.8,1.0);
	else if (intensity > 0.25)
		color1 = vec4(0.6,0.6,0.6,1.0);
	else
		color1 = vec4(0.5,0.5,0.5,1.0);
	
	
    gl_FragColor = color1 * color * blendTex * vec4(light,1.0) * agk_MeshDiffuse + agk_MeshEmissive;
	gl_FragColor.rgb = ApplyFog( gl_FragColor.rgb, posVarying );
}

uniform sampler2D texture0;
varying highp vec2 uvVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
varying highp vec3 posVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform mediump vec4 agk_MeshDiffuse;
uniform mediump vec4 agk_MeshEmissive;
 
void main()
{
	mediump vec4 color = texture2D(texture0, uvVarying);
	mediump vec4 blendTex = vec4(1.0,1.0,1.0,1.0);
    mediump vec3 norm = normalize(normalVarying);
    mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying ); 

	float intensity;
	vec4 color1;
	intensity = dot(GetPSLighting( norm, posVarying ), norm);

	if (intensity > 0.95)
		color1 = vec4(0.6,0.6,0.6,1.0);
	else if (intensity > 0.5)
		color1 = vec4(0.5,0.5,0.5,1.0);
	else if (intensity > 0.25)
		color1 = vec4(0.3,0.3,0.3,1.0);
	else
		color1 = vec4(0.1,0.1,0.1,1.0);
	
	// add a little multiply to not get a result with too much lighting
    gl_FragColor = color1 + (0.6+color1*0.4) * color * blendTex * vec4(light,1.0) * agk_MeshDiffuse + agk_MeshEmissive;
	gl_FragColor.rgb = ApplyFog( gl_FragColor.rgb, posVarying );
}

if (intensity > 0.60)
		color1 = vec4(1.0,1.0,1.0,1.0);
	else if (intensity > 0.5)
		color1 = vec4(0.8,0.8,0.8,1.0);
	else if (intensity > 0.25)
		color1 = vec4(0.6,0.6,0.6,1.0);
	else
		color1 = vec4(0.5,0.5,0.5,1.0);

// Project: Anaglyph 
// Created: 2014-12-19

// set window properties
SetWindowSize( 0, 0, -1 )

// set display properties
DevW = GetDeviceWidth()
DevH = GetDeviceHeight()
SetVirtualResolution( DevW, DevH )
SetOrientationAllowed( 0, 0, 1, 1 )

// set event buttons
SetPrintSize( 16 )
AddVirtualButton( 1, 56, 24, 16 )
SetVirtualButtonColor( 1, 64, 255, 64 )
AddVirtualButton( 2, 74, 24, 16 )
SetVirtualButtonColor( 2, 64, 255, 64 )
AddVirtualButton( 3, 56, 40, 16 )
SetVirtualButtonColor( 3, 64, 255, 64 )
AddVirtualButton( 4, 74, 40, 16 )
SetVirtualButtonColor( 4, 64, 255, 64 )
AddVirtualButton( 5, 56, 56, 16 )
SetVirtualButtonColor( 5, 64, 255, 64 )
AddVirtualButton( 6, 74, 56, 16 )
SetVirtualButtonColor( 6, 64, 255, 64 )
AddVirtualButton( 7, DevW - 8, 8, 16 )
SetVirtualButtonColor( 7, 255, 32, 32 )

// allocation global
type ktype
	sx#, sy#, sz#, ex#, ey#, ez#
endtype
dim k[250] as ktype

global CamX# = 5.00
global CamY# = 1.00
global CamZ# = 2.50 

// make 3d objects
for o = 1 to 250
    select Random( 1, 5)
		case 1:
			CreateObjectBox( o, 100, 100, 100)
		endcase
		case 2:
			CreateObjectPlane( o, 100, 100 )
		endcase
		case 3:
			CreateObjectSphere( o, 100, 32, 32 )
		endcase
		case 4:
			CreateObjectCylinder( o, 50, 50, 32)
		  endcase
		case 5:
			CreateObjectCone( o, 100, 100, 32 )
		endcase
    endselect
    SetObjectColor(o,255,255,255,180)
next o

// set cam 
SetCameraRange( 1, 1, 3000 )
SetCameraPosition( 1, 0, 0, 0 )
SetCameraRotation( 1, 0, 0, 0 )

// pre post process
CreateShader()
Quad = CreateObjectQuad()
Stereo = LoadShader( "Anaglyph.vs", "Anaglyph.ps" )
CreateRenderImage( 1, DevW, DevH, 0, 0 )
CreateRenderImage( 2, DevW, DevH, 0, 0 )

repeat
  	Update(0)

	// left render
	SetRenderToImage( 1, -1 )
	ClearScreen()
	SetCameraPosition( 1, -CamX#, -CamY#, -CamZ# )

	DrawObj3D( DevW, DevH )  	
	
	// right render
 	SetRenderToImage( 2, -1 )
	ClearScreen()
	SetCameraPosition( 1, CamX#, CamY#, CamZ# )

	Render3D()
	
	// post process
	SetRenderToScreen()
	SetObjectImage( Quad, 1, 0 )
	SetObjectImage( Quad, 2, 1 )
	SetObjectShader( Quad, Stereo)
	DrawObject( Quad )

	// 2d stuff
	PrintC( "FPS: " )
	Print( Trunc( ScreenFPS() ) )
	PrintC( "CamX < >: " )
	Print( CamX# )
	PrintC( "CamY < >: " )
	Print( CamY# )
	PrintC( "CamZ < >: " )
	Print( CamZ# )

	Render2DFront() 
	
	Esc = VButton()
	
	Swap()
until GetRawKeyPressed(32)
end

function VButton()
	for i = 1 to 7
		if GetVirtualButtonState( i )
			select i
				case 1:
					CamX# = CamX# - 0.01
				endcase
				case 2:
					CamX# = CamX# + 0.01
				endcase
				case 3:
					CamY# = CamY# - 0.01
				endcase
				case 4:
					CamY# = CamY# + 0.01
				endcase
				case 5:
					CamZ# = CamZ# - 0.01
				endcase
				case 6:
					CamZ# = CamZ# + 0.01
				endcase
				case 7:
					Esc = 1
				endcase
			endselect
		endif 
	next i
endfunction Esc

function CosInt(a#, b#, c#)
	f# = ( 1 - cos( c# * 180.0 ) ) / 2
	r# = a# * ( 1 - f# ) + b# * f#
endfunction  r#

function DrawObj3D( w, h )
	for o = 1 to 250
		if Abs( k[o].sx# - k[o].ex# ) < 5 or Abs( k[o].sy# - k[o].ey# ) < 5 or Abs( k[o].sz# - k[o].ez# ) < 5
			k[o].ex# = Random( 0, w * 2 ) - w
			k[o].ey# = Random( 0, h * 2 ) - h
			k[o].ez# = Random( 0, 3000)
		endif
		k[o].sx# = CosInt( k[o].sx#, k[o].ex#, 0.05 )
		k[o].sy# = CosInt( k[o].sy#, k[o].ey#, 0.05 )
		k[o].sz# = CosInt( k[o].sz#, k[o].ez#, 0.05 )
		SetObjectPosition( o, k[o].sx#, k[o].sy#, k[o].sz# )
		SetObjectRotation( o, k[o].sx# * 0.3, k[o].sy# * 0.3, k[o].sz# * 0.3 )  
		DrawObject( o )
	next o
endfunction
function createShader()
file = OpenToWrite("Anaglyph.vs")
WriteLine(file,"attribute vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"varying vec2 uvVarying;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec4 uvBounds0;")
WriteLine(file,"uniform float agk_invert;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"gl_Position = vec4(position.xy * vec2(1, agk_invert), 0.5, 1.0);")
WriteLine(file,"uvVarying = (position.xy * vec2(0.5, -0.5) + 0.5) * uvBounds0.xy + uvBounds0.zw;") 
WriteLine(file,"mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"posVarying = pos.xyz;")
WriteLine(file,"lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}")
CloseFile(file)


file = OpenToWrite("Anaglyph.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform mediump vec4 agk_MeshDiffuse;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 LColor = texture2D(texture0, uvVarying).xyz*light;")
WriteLine(file,"vec3 RColor = texture2D(texture1, uvVarying).xyz*light;") 
WriteLine(file,"vec3 Color;") 
WriteLine(file,"Color.r = 0.299 * LColor.r + 0.587 * LColor.g + 0.114 * LColor.b;")
WriteLine(file,"Color.g = RColor.g;")
WriteLine(file,"Color.b = RColor.b;")
WriteLine(file,"Color = clamp(Color,0.0,1.0);") //restricts color range
WriteLine(file,"Color = ApplyFog(Color, posVarying );")
WriteLine(file,"gl_FragColor = vec4(Color,1.0)* agk_MeshDiffuse;")
WriteLine(file,"}")
CloseFile(file)
endfunction