Fireworks

on 26 Oct 2021

% Remix of Ned's "Monsieur Moiré"

figure(Color='k')

h=500;

X=-h:1:h;

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

t=t+pi;

a=zeros(size(r));

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

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

e=.9*h;

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

end

colormap hsv

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

axis equal off

t=hgtransform;

set(copyobj(h,gca),Parent=t);

% Try changing the translation parameters...

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