Lesage Flower (a little modified)

Hiroshi Iwamura
/
Lesage Flower (a little modified)

on 25 Nov 2023

drawframe(1);

Write your drawframe function below

function drawframe(f)
N = 400;
N2 = 4;
maxAz = 2*pi/N * 10;
dAz = maxAz*4/46;
w = 30 * 1.5;
edth = 2/4*pi;
offs = [0:dAz:maxAz*2 maxAz*2:-dAz:0];
% if f==1; f=24; end
if f==48; f=47; end
off = offs(f);
if off <= maxAz
    dAz = off/maxAz;
    z = dAz;
else
    dAz = 1-max((off-maxAz*1.5),0)/maxAz;
    z = 1;
end
thickness = floor(1.2^(abs(24-f)));
for n=1:N2
    alpha = ((N2-n+1)/N2) ^ 2;
    for l=1:thickness:N
        th = off + l*2*pi/N;
        r = 3^(n/N2*3);
        x1 = 1 * cos(th);
        y1 = 1 * sin(th);
        x2 = r * off*dAz*N/100*5*cos(th+edth*dAz);
        y2 = r * off*dAz*N/100*6*sin(th+edth*dAz);
        hewcolor = hsv2rgb([l/N n/N2*0.5+0.5 z*0.8+0.2]);
        plot3([x1 x2],[y1 y2],[0 z],color=[hewcolor alpha],LineWidth=thickness);
        if (n==1 && l==1)
            hold on
        end
    end
end
hold off
axis off
xlim([-w w])
ylim([-w w])
zlim([0 1])
end