- /
-
Green Emitter
on 7 Oct 2021
- 25
- 150
- 1
- 0
- 230
c=@(n)(mod(n,2)*(2*n+1)+n)/2;
s=@cumsum;
figure('Color','#02021b','Renderer','painters')
hold on
for a=1:5:20216
while a(1)>1
a=[c(a(1)) a];
end
t=s(rescale(mod(a,3.5),-.09,.08));
plot(s(sin(t)),s(cos(t)),'Color',[.5 1 .5 .1]);
end
axis equal off