- /
-
Monsieur Moiré
on 21 Oct 2021
- 1
- 30
- 1
- 0
- 278
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]))