ShaderToy demos

SHADER


  • このデモのプログラムが下になります. 行数の少なさにびっくりです.
// [2TC 15] Mystery Mountains.
// Fractal mountains in 280 chars.
// Dave Hoskins.

#define F t+=texture2D(iChannel0,.3+p.xw*s/6e3,-99.)/s;s+=s;
void main()
{
    vec4 p=gl_FragCoord/iResolution.xyzz-.5,d=p*.5,t;
    p.w += iGlobalTime*20.;d.y-=.2;
    for(float i=1.7;i>=0.;i-=.002)
    {
        float s=1.;t=d-d; F F F F F F
		gl_FragColor = vec4(1,.9,.8,1)+d.x-t*i;
        if(t.x>p.y*.01+1.3)break;
        p += d;
    }
}