White Water Lilly

on 28 Oct 2021

% Almost the same as og Water Lilly, except I found some more char to

% remove so I could fit in a figure color.

m=0:.01:1;

[R,T]=ndgrid(m,0:.01:20);

x=1-abs(1-mod(7.6*T,2))/2;

P=pi*exp(-T/8)/2;

s=@sin;

c=@cos;

u=s(P);

v=c(P);

w=R.*u;

y=w.*(1.4*R-1).^2;

g=@(f)x.*(w+y.*v).*f(T*pi);

X=g(s);

Y=g(c);

Z=R.*v-y.*u;

surf(X,Y,x.*Z/2,hypot(hypot(X,Y),Z),EdgeC='n');

axis equal off

% Create a pinkish to white colormap.

colormap([m/2+.5;m;m/2+.5]')

set(gcf,Color='#119')

Load full remix tree