- /
-
Tight Mosaic
on 7 Oct 2022
- 9
- 87
- 0
- 5
- 280
m=60;
a=0:2*pi/m:2*pi;
x=sin(a);
y=cos(a);
n=0.01;
b=1/6;
for t=1:36
h(t)=subplot(6,6,t);
for i=0:m
q=[x(mod(i,m)+1);y(mod(i,m)+1)];
r=mod(i*(t+84),m);
p=[x(r+1);y(r+1)];
s=[q,p];
plot(s(1,:),s(2,:),'b');hold on
end
axis([-.8 .8 -.7 .7],'off')
z{t}=[mod(t-1,6)*b,1-ceil((t)/6)*b,b-n,b-n];
end
[h.Position]=z{:};