- /
-
The Gate
on 7 Oct 2021
- 60
- 106
- 2
- 0
- 274
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);
plot(7.5,12,'.y','MarkerSize',350);
hold on;
fill(R,I,[1,1,1]/6);
fill(-R+15,I,[1,1,1]/6);
axis off;