- /
-
3D Drawing
on 29 Oct 2021
- 28
- 64
- 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