Monsieur Moiré

on 21 Oct 2021

h=500;

X=-h:1:h;

[t,r]=cart2pol(X,X');

t=t+pi;

a=zeros(size(r));

for k=linspace(0,2*pi,200)

% e controls length and width of trails (longer=closer)

e=.8*h;

a(r<h&r>(h-e)&t>k&t<k+e/2e4)=1;

end

colormap([1 1 1;1 0 0])

h=imagesc(X,X,a,AlphaData=a>0);

axis equal off

g=copyobj(h,gca);

t=hgtransform;

set(g,Parent=t);

% Try changing the translation parameters...

set(t,Matrix=makehgtform("translate",[80 0 0]))