Back to Gallery
  • Remix
  • Share
  • New Entry
on 24 Nov 2023
  • 9
  • 10
  • 0
  • 0
  • 557
drawframe(1);
Write your drawframe function below
function drawframe(f)
%Inspired from Zappo
figure('Color', [1-f/100 1-f/100 0]);
ppr=12.6;
nr=30;
pr=10;
np=140;
pf=-1.2+f/1000;
ol=[.11+f/1000 1.1+f/1000];
pt=(1/ppr)*pi*2;
theta=linspace(0,np*pt,np*pr+1);
[R, THETA]=ndgrid(linspace(0,1,nr),theta);
x=1-(abs(1-mod(ppr*THETA,2*pi)/pi).^2)*.7;
phi=(pi/2)*linspace(ol(1),ol(2),np*pr+1).^2;
y=pf*(R.^2).*(1.27689*R-1).^2.*sin(phi);
R2=x.*(R.*sin(phi)+y.*cos(phi));
X=R2.*sin(THETA);
Y=R2.*cos(THETA);
Z=x.*(R.*cos(phi)-y.*sin(phi));
C=hypot(hypot(X,Y),Z);
%Draw the flower
surf(X,Y,Z,C,'EdgeColor','interp');
colormap(gca,[linspace(.6,1,256);linspace(.1,.8,256);linspace(.7,1,256);]'); %for selected color
daspect([1 1 1])
axis off
end
Animation
Remix Tree