Back to Gallery
  • Remix
  • Share
  • New Entry

  • Tim

  • /

  • Eclipse

on 30 Oct 2021
  • 2
  • 49
  • 1
  • 0
  • 275
% Trying to make a random 3D surface for a planet
% Starscape
set(gca,Po=[0
0
1
1],Color='k')
axes(colorm=gray);
N=126;
a=-pi:0.05:pi;
[x,y,z]=sph2cart(a,a',abs(ifft2(randn(N)./abs(a+i*a').^2)*9));
hold
Current plot held
[t,u,v]=sphere(N);
a=ones(N);
surf(x,y,z,a.*cat(3,0,0,0));
axis equal off
for n = 1:30
s=1+n/10;
surf(t*s,u*s,v*s,a,FaceA=n.^-1.3);
end
shading flat
view([45 9])
Image
Remix Tree