Messing around with the golden rectangle
GIF produced
It's almost a oneliner. A square, a point, a couple sliders and this sequence :
Dilate(Sequence(Rotate(Dilate(poly1, (1 / phi)^k, E), k 90°, E), k, 0, 14), b^a, E)