*


: px x 5 * ;
: py y 5 * t - ;
: fract dup floor - ;
: mix dup push * swap 1 pop - * + ;
: f fract dup dup 2 * 3 swap - * * ;
: r -3 exp * sin 5 exp * fract ;
: v px floor py floor 3 exp * + ;
: c y * y pop mix ;
v r v 1 + r px f mix
v 3 exp + dup push r pop 1 + r px f mix
py f mix
y 0.7 * 0.1 + > dup dup push push push
1.2 c 0.5 c 0.2 c

comments powered by Disqus