- /
-
Shredding Stained Glass
on 21 Nov 2023
- 15
- 10
- 0
- 0
- 318
drawframe(30);
function drawframe(f)
k = interp1([0 30 48],[1 1.9 1],f);
span = -10:10;
[a,b] = meshgrid(span,span);
w = a+1i*b;
w = -1i*(w+w.^k);
x = real(w);
y = imag(w);
cla
dt=delaunayTriangulation(x(:),y(:));
[v,c]=voronoiDiagram(dt);
for i=1:length(c)
if ~any(c{i}==1)
patch(v(c{i},1),v(c{i},2),i);
end
end
set(gcf,Color=0.6*[1 1 1])
axis(30*[-1 1 -1 1])
axis off
colormap(jet)
end