Based on : [url=https://www.geogebra.org/m/zjp7wnkm][b][color=#0000ff]Square pursuit and symmetries[/color][/b][/url][br]News Feed : [url=https://www.geogebra.org/p/bWXQp3CSgj][b][color=#0000ff]Square pursuit : ItérationListe()[/color][/b][/url][br][br]Nice trick. Now we can construct the original design in five steps.[br][br] T = Slider(0.01, 0.3, 0.01, 1, 100, false, true)[br] [br] LP = IterationList( P + (T^2; arg(P)+135°) , P , {(0.5, 0.5)} ,12)[br] LP4 = Zip(Zip(Rotate(P, k*90°), k, 0..3), P, LP)[br] L0 = Zip(Polygon(P4), P4, LP4)[br] L1 = Zip(Reflect(sqr, yAxis), sqr, L0)[br] L44 = Zip(Zip(Translate( If(Mod(u+v,2)==0, L0, L1) , (u,v) ), u,0..3), v,0..3)[br][br][b]Complete Setup script[br]Remark : [/b]After using the Delete button you will lose the breakpoints[br] of the navigation bar. I can't reset them in the setup script.[br][br]#============================================[br]# View Settings[br]#============================================[br]SetActiveView(1)[br]CenterView((0, 0.1))[br]ZoomOut(1.4/x(Corner(1,3)-Corner(1,1)))[br]ShowAxes(false)[br]ShowGrid(false)[br]SetBackgroundColor("#F4F5F7")[br][br]SetActiveView(2)[br]CenterView((1.5, 1.5))[br]ZoomOut(4.5/y(Corner(2,3)-Corner(2,1)))[br]ShowAxes(false)[br]ShowGrid(false)[br]SetBackgroundColor("#F4F5F7")[br][br]#============================================[br]# Graphics Objects[br]#============================================[br]Delete(T)[br][br]SetActiveView(1)[br]T = Slider(0.01, 0.3, 0.01, 1, 100, false, true)[br]LP = IterationList( P + (T^2; arg(P)+135°) , P , {(0.5, 0.5)} ,12)[br]LP4 = Zip(Zip(Rotate(P, k*90°), k, 0..3), P, LP)[br]L0 = Zip(Polygon(P4), P4, LP4)[br]L1 = Zip(Reflect(sqr, yAxis), sqr, L0)[br][br]SetActiveView(2)[br]L44 = Zip(Zip(Translate( If(Mod(u+v,2)==0, L0, L1), (u,v)), u,0..3), v,0..3)[br][br]#============================================[br]# Object properties[br]#============================================[br]Setvalue(T, 0.21)[br][br]SetPointSize(LP, 3)[br][br]SetPointSize(LP4,1)[br][br]SetFilling(L0, 0)[br]SetLineThickness(L0, 1)[br][br]Setcolor(L1, "Red")[br]SetFilling(L1, 0)[br]SetLineThickness(L1, 1)[br][br]Setcolor(L44, "Black")[br]SetFilling(L44, 0)[br]SetLineThickness(L44, 1)