Misty Islands

Tim
on 22 Oct 2021
- 9
- 53
- 0
- 0
- 280
a = 900;
X=(.5:a);
B=X-a/2;
r=B.^2+B'.^2;
z=abs(ifftn(exp(9i*rand(a,a,5))./r))*6e5;
surf(X,X',max(z(:,:,4),1));
c=mean(z,3);
c(c<1.2)=nan;
hold on
surf(X,X',zeros(a)+1.8,repmat(c,[1,1,3]),faceA=.5);
shading flat
cmp=copper+summer;
cmp(1,:)=[0,.7,1];
colormap(cmp/2)
view([-30,67])
plot3(1,1,4,'w.')
axis off;