Messing around with the golden rectangle
GIF produced
![GIF produced](https://stage.geogebra.org/resource/rzhgnggg/cJtGbU4Nv8YpYcb5/material-rzhgnggg.png)
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)