program NeuerShader_vs;

 

uses ARB_vertex_program;

 

param

 lightPos : vec4;

 camPos   : vec4;

 

varying

 texcoord : vec4;

 lightVec : vec4;

 viewVec  : vec4;

 

var

 lVec : vec4;

 vVec : vec4;

 

begin

result.position := MatrixMult4(state.matrix.mvp,vertex.position);

texcoord        := vertex.texcoord[0];

 

lVec       := lightPos - vertex.position;

lightVec.x := dot(vertex.texcoord[1], lVec);

lightVec.y := dot(vertex.texcoord[2], lVec);

lightVec.z := dot(vertex.texcoord[3], lVec);

 

vVec       := camPos - vertex.position;

viewVec.x  := dot(vertex.texcoord[1], vVec);

viewVec.y  := dot(vertex.texcoord[2], vVec);

viewVec.z  := dot(vertex.texcoord[3], vVec);

end;

program NeuerShader_fs;

 

uses ARB_fragment_program;

 

param

 invRadius : single;

 ambient   : single;

 

varying

 texcoord : vec4;

 lightVec : vec4;

 viewVec  : vec4;

 

var

 base     : vec4;

 bump     : vec4;

 distSqr  : single;

 lVec     : vec4;

 atten    : single;

 diffuse  : single;

 specular : single;

 

begin

base := Texture2D(0, texcoord);

bump := NormalMap(1, texcoord);

 

distSqr := dot(lightVec, lightVec);

lVec    := lightVec * (1/sqrt(distSqr));

 

atten   := sat(1.0 - invRadius * sqrt(distSqr));

diffuse := sat(dot(lVec, bump));

 

specular :=  power(sat(dot(reflect(normalize(-viewVec), bump), lVec)), 16);

 

result.color := ambient * base + (diffuse * base + 0.4 * specular);

end;

 

 

uniform sampler2D Base;

uniform sampler2D Bump;

 

uniform float invRadius;

uniform float ambient;

 

varying vec2 texCoord;

varying vec3 lightVec;

varying vec3 viewVec;

 

void main()

 {

 vec4 base = texture2D(Base, texCoord);

 vec3 nviewvec=normalize(viewVec);

 

 float height=dot(base.xyz,vec3(0.3,0.3,0.4))*2.0-1.0;

 vec2 newtexcoord = height *0.02*nviewvec.xy+texCoord;

 

 base = texture2D(Base, newtexcoord);

 

 vec3 bump = normalize(vec3(texture2D(Bump, newtexcoord)* 2.0 - 1.0));

 

 float distSqr = dot(lightVec, lightVec);

 vec3 lVec     = lightVec * inversesqrt(distSqr);

 

 float atten   = clamp(1.0 - invRadius * sqrt(distSqr), 0.0, 1.0);

 float diffuse = clamp(dot(lVec, bump), 0.0, 1.0);

 

 float specular = pow(clamp(dot(reflect(-nviewvec, bump), lVec), 0.0, 1.0), 8.0);

 

 gl_FragColor = ambient * base + (diffuse * base + 0.4 * specular) * atten;

 

}