- /
-
Daniel Pereira's Strawberry with seeds
on 6 Oct 2021
- 9
- 37
- 0
- 0
- 276
y=1:-.002:-1;
x=sqrt((1-y.^2)./(1-y/2));
x=[x flip(-x)];
y=[y flip(y)];
patch(x,y,[0.75 0 0]);
hold
a=[1 1.2 0.2 0.4 0];
b=[1 1.4 1.2 1.4 1.8];
patch([a flip(-a)],[b flip(b)]-0.2,[0 0.6 0]);
axis equal off;
[c,d]=ndgrid(-1:.2:1,-.8:.2:.7);
c=c+mod(d*5,2)/10;
g=inpolygon(c,d,x,y);
plot(c(g),d(g),'k.')