Copper Trumpet Flower

on 21 Oct 2022

% Trumpet flower

R=0:.01:1;

T=linspace(0,2,151);

% Compute a petals curve

W=R'*((abs((1-mod(T*5,2))))/2+.3);

% Compute the disk with the petals built-in

X=W.*cospi(T);

Y=W.*sinpi(T);

% Convert Z to have an S curve to it to make it fluted

z=@(a)(-cospi(W*a)+1).^.2;

Z=z(1.2);

% Draw the stamen

g=@(i)i(:,1:30:151)/2;

plot3(g(X),g(Y),g(z(1)*2.3),'k');

% Draw flower body

surface(X,Y,Z);

shading interp

% Perfect the Axes, etc

axis equal off

light

material shiny

colormap copper