- /
-
Thread leaf
on 2 Dec 2023
- 13
- 86
- 0
- 0
- 294
drawframe(34);
Write your drawframe function below
function drawframe(f)
% Butterfly Clitoria Ternatea
% Create of one big petal, and a one large stamen
[R,T]=ndgrid(0:.01:1,0:.02:40);
% Assess a petals curve
openRate = (33-abs(20-f))/34;
W=R.*((1-abs((1-mod(T,2))))*.7+.3)* openRate;
% Compute the disk with the petals
X=W.*-cospi(T);
Y=W.*sinpi(W);
Y=W.*sinpi(T);
% Convert Z to have an S model to it to make it fluted
Z=(2-cospi(W*1.4)+1).^.3;
% Graph the stamen
g=@(i)i(20:70,50)/40;
plot3(g(X),g(Y),g(Z*4),'o',Color='#FB3');
% Draw complete flower
surface(X,Y,Z);
shading interp
% Perfect the Axes, etc
axis equal off
light
material([.80
.80
.40])
colormap red
set(gcf,Color='#2a4')
end
