- /
-
Blue Moon
on 7 Oct 2021
- 41
- 46
- 0
- 0
- 279
U=@(p)p+.5i*diff(p)*[0;4;4-i+i^cos(500*norm(p))^.5];
f=@(P,c,C)[P(1),c;C{~c+1}(U(P(2:3)),c-1,C);C{~c+1}(U(P([3,5])),c-1,C);P(4),c];
E=f(U(0:1),16,{f,@(P,c,C)[]});
e=E(:,1);
R=real(e);
I=imag(e);
figure('color','k')
plot(7,12,'.b','MarkerSize',350);
hold on;
fill(R,I,'w');
fill(-R+14,I,'w');
axis off;