sampler pat : register(s0);

float4 main_ps(float2 iTexCoord : TEXCOORD0, uniform float time) : COLOR
{
float xc = 25+iTexCoord.x*10;
float yc = 25+iTexCoord.y*10;
float t = time/10;
float c1 = sin(t*0.61655617);
float c2 = sin(t*-0.6352262);
float s1 = 0.5+0.5*sin(xc*c1);
float s2 = 0.5+0.5*sin(yc*c2);
float s3 = 0.5+0.5*sin((xc+yc+t)/2);
float c = (s1+s2+s3)/3;

float4 color1=tex2D(pat,float2(c+time/10,0.5));
return color1;
}