- /
-
Earth Drop
on 30 Oct 2021
- 1
- 57
- 7
- 0
- 272
% Drop of Earth
%
% I enjoyed Joel Lynch's earth models a bunch, so here is
% a version on an upside-down water droplet.
% Starscape
r=@()rand(1,1e3);
scatter(r(),r(),r()*30,'.w');
set(gca,Po=[0
0
1
1],Color='k')
axes;
% Fcns
s=@sin;
c=@cos;
% Water Droplet
t=(-1:.01:1)*pi/2;
S=1-s(t);
p=@(f)f((0:.01:2)*pi)'.*1*S.*c(t);
% Texture with the earth.
earthmap;
% Draw
surf(p(c),p(s),repmat(3*S,201,1),flip(topo)',FaceC='t',EdgeC='n')
axis equal off
colormap(topomap1)
camlight
material dull