- /
-
Ten-pedal Flower
on 8 Oct 2021
- 1
- 12
- 0
- 0
- 279
p=.3*pi:.8*pi:9*pi;
r=@(x)8*sin(5*x/4+5*pi/8);
hold on;
set(gcf,'Color','k');
axis off
e=-.1*pi:.001:0;
f=0:.001:.101*pi;
g=[7 1 5 9 3 7];
h=[6 10 4 8 2 6];
for k=1:5
b=[p(g(k))+f,p(g(k+1))+e;p(h(k))+f,p(h(k+1))+e];
[x,y]=pol2cart(b,r(b));
fill(x(1,:),y(1,:),[.7,.4,1]);
fill(x(2,:),y(2,:),[.6,.2,1]);
end