- /
-
Sandstone
on 28 Oct 2022
- 7
- 115
- 0
- 0
- 229
% Via domain warping: https://iquilezles.org/articles/warp/
x=-1:.005:1;
b=length(x);
r=sqrt(x.^2+x'.^2);
f=@(x)abs(ifft2(exp(6i*rand(x))./max(r.^2,1e-4)));
g=f(b);
h=f(b);
[x,y]=meshgrid(1:b);
g2=interp2(x,y,g,x+h*100,y,'linear',0);
imagesc(diff(g2(1:300,1:300)')*15)
caxis([-1,1])
colormap(copper)
axis off