: xx x 5 * ;
: yy y 5 * t - ;
: fract dup floor - ;
: f fract dup 2 ** 3 rot 2 * - * ;
: mix 1 over - z* swap drop ;
: v xx floor yy floor 100 * + ;
: r .001 * sin 10000 * fract ;
v dup r swap 1 + r xx f mix
v 100 + dup r swap 1 + r xx f mix
yy f mix
y .7 * .1 + <
dup 0 = y * 5 / y + swap
dup 1 + 2 / y * swap y *
( original shader by Trisomie21 )