Back to Gallery
  • Remix
  • Share
  • New Entry
on 29 Oct 2021
  • 28
  • 62
  • 2
  • 0
  • 197
% Let's make a hot air ballon!
figure('color','k')
% Define grid:
a=101;
b=0:.01:1;
% Taper function
t=sin(b'.^2*pi);
% Basic sphere
[x,y,z]=sphere(a-1);
% Ripples
v=(abs(sin(20*b'))+3)/4;
% Opening
t(1:30)=nan;
% Color
A=v'.^6.*cat(3,1,0,1).*t;
u=v'.*t;
surf(x.*u,y.*u,z,A,'SpecularStrength',.2,'AmbientStrength',1);
hold
Current plot held
Remix Tree