- /
-
Lissajous Encore
on 9 Nov 2023
- 9
- 25
- 1
- 1
- 289
drawframe(1);
function drawframe(f)
t = linspace(0,2*pi);
t1 = interp1([0 48],[0 2*pi],f);
n = 4;
tiledlayout(n,n);
for c = 1:n
for r = 1:n
nexttile
plot(cos(r*t),sin(c*t),LineWidth=2)
line(cos(r*t1),sin(c*t1), ...
Color="red",Marker=".",MarkerSize=18)
set(gca,XTick=[],YTick=[])
axis(1.2*[-1 1 -1 1])
axis off
end
end
set(gcf,Color=[1 1 0.85])
end