- /
-
Quetzal
on 30 Oct 2021
- 50
- 98
- 0
- 0
- 229
c=@(n)(mod(n,2)*(2*n+1)+n)/2;
s=@cumsum;
figure('Color','#02021b','Renderer','painters')
hold on
for a=3:9:20216
while a(1)>1
a=[c(a(1)) a];
end
t=s(rescale(mod(a,2),-.09,.08));
plot(s(cos(t)),s(sin(t)),'Color',[0 1 0.25 .1]);
end
axis equal off