Thanks to [url=https://www.geogebra.org/u/christian.mercat][color=#0000ff]Christian Mercat[/color][/url] [color=#0000ff][url=https://www.geogebra.org/p/EnK9h8sHd9]News Feed[/url][/color].[br]Inspired by [color=#0000ff][url=https://www.geogebra.org/m/w3xmmxhu]Something nerdy[/url][/color], [url=https://www.tiktok.com/@ayliean/video/7149255716333767941?is_from_webapp=v1&item_id=7149255716333767941][color=#0000ff]@ayliean[/color][/url].[br]See also [url=https://www.geogebra.org/m/gxak7e9s][color=#0000ff]This fractal with Basic shapes[/color][/url][br][br][b]Setup[br][/b][br]s = sqrt(2)-1[br]t = sqrt(2)[br]p = sqrt(2)+1[br][br]# Affine transformation matrices[br]#------------------------------------[br]W1= {{ 0, s, 0}, {-s, 0, 0}, {0,0,1}}[br]W2= {{ s, 0, t}, { 0, s,-t}, {0,0,1}}[br]W3= {{ s, 0,-t}, { 0, s, t}, {0,0,1}}[br]H0= {{ s,0,s-1}, { 0,-s, t}, {0,0,1}}[br]H1= {{ 0, s, 0}, { s, 0,-2}, {0,0,1}}[br]H2= {{-s, 0, 2}, { 0,-s, 0}, {0,0,1}}[br]H3= {{ 0,-s, 0}, {-s, 0, 2}, {0,0,1}}[br]H4= {{ s, 0,-2}, { 0, s, 0}, {0,0,1}}[br][br]# Shapes[br]#------------------------------------[br]w1= Polygon({(p,-p), ( 1, 1), (-p,p), (-1,-1)})[br]h1= Polygon({(p,-p), (-1,-1), ( s,p), (-1,-1)})[br][br]# Iterations[br]#------------------------------------[br]w2= Zip(ApplyMatrix(M,O), M,{W1,W2,W3,H1,H2,H3,H4}, O, {w1,w1,w1,h1,h1,h1,h1})[br]h2= Zip(ApplyMatrix(M,O), M,{W1,W2,H0,H1,H2}, O, {w1,w1,h1,h1,h1})[br]w3= Zip(ApplyMatrix(M,O), M,{W1,W2,W3,H1,H2,H3,H4}, O, {w2,w2,w2,h2,h2,h2,h2})[br]h3= Zip(ApplyMatrix(M,O), M,{W1,W2,H0,H1,H2}, O, {w2,w2,h2,h2,h2})[br]w4= Zip(ApplyMatrix(M,O), M,{W1,W2,W3,H1,H2,H3,H4}, O, {w3,w3,w3,h3,h3,h3,h3})[br]h4= Zip(ApplyMatrix(M,O), M,{W1,W2,H0,H1,H2}, O, {w3,w3,h3,h3,h3})[br]w5= Zip(ApplyMatrix(M,O), M,{W1,W2,W3,H1,H2,H3,H4}, O, {w4,w4,w4,h4,h4,h4,h4})[br][br]#------------------------------------[br]# Settings[br]#------------------------------------[br]SetActiveView(1)[br]SetBackgroundColor("Dark Gray")[br]CenterView((-0.1,0))[br][br]Execute(Zip("on"+k+"=Checkbox({w"+k+"})",k,1..5))[br]SetValue(on5,false)[br]Execute(Zip("SetConditionToShowObject(h"+k+",false)", k,1..4))[br][br]Execute(Zip("SetColor(w"+k+",1,1,0.95)", k,1..5)) [br]Execute(Zip("SetFilling(w"+k+",0.5)", k,1..5))[br]Execute(Zip("SetLineThickness(w"+k+",4)", k,1..5))[br]