Back to Gallery
  • Remix
  • Share
  • New Entry
on 21 Oct 2022
  • 19
  • 111
  • 0
  • 2
  • 249
% 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
Image
Remix Tree