Bitfellas Bitjam/bitfellasbitjamcdbitfellas2007.iso/interface/intro/distor.ps

Text File | 2007-08-07 | 526b | 18 lines

float time_0_X;
float bands_speed;
float bands_amp;
sampler2D texture1;
float4 main(float2 x:texcoord):color {
    float2 xx = x;
    float4 color;
    xx.y += sin(time_0_X + x.x * 15) * .01;
    xx.y += sin(time_0_X + x.y * 15) * .01;
    if((x.y < .11) || (x.y > .89)) return(0);
    else {
        float test = ((((sin(xx.y * bands_speed + sin(time_0_X) * 1024)) * .5) + .5) - xx.x) * bands_amp;
        color = tex2D(texture1, xx + test) - bands_amp;
        color -= test;
        return(color);
    }
}