Thanks to [url=https://www.geogebra.org/u/christian.mercat][b][color=#0000ff]Christian Mercat[/color][/b][/url] : [url=https://www.geogebra.org/p/JtvamGcTmZ][b][color=#0000ff]News Feed[/color][/b][br][/url]See Tilings Encyclopedia : [url=https://tilings.math.uni-bielefeld.de/substitution/golden-triangle/][b][color=#0000ff]Golden Triangle Tiling[/color][br][br][/b][/url][b]Setup[br][/b][br]Fib= IterationList(a+b, a, b, {1,2}, 9)[br]S = (sqrt(5)-1)/2[br]C = sqrt(S)[br]M = {{{S,-C,1}, {-C,-S,C}, {0,0,1}}, {{-S,C,1/C}, {C,S,0}, {0,0,1}}}[br]L1 = {Polygon({(0,0), (S,S*C), (1,0)}), Polygon({(S,S*C), (1,0), (1,C)})}[br]L2 = Dilate(Join( {L1 , Zip(ApplyMatrix(M(1),p), p, First(L1 , Fib( 1 )))}),C)[br]L3 = Dilate(Join( {L2 , Zip(ApplyMatrix(M(2),p), p, First(L2 , Fib( 2 )))}),C)[br]L4 = Dilate(Join( {L3 , Zip(ApplyMatrix(M(1),p), p, First(L3 , Fib( 3 )))}),C)[br]L5 = Dilate(Join( {L4 , Zip(ApplyMatrix(M(2),p), p, First(L4 , Fib( 4 )))}),C)[br]L6 = Dilate(Join( {L5 , Zip(ApplyMatrix(M(1),p), p, First(L5 , Fib( 5 )))}),C)[br]L7 = Dilate(Join( {L6 , Zip(ApplyMatrix(M(2),p), p, First(L6 , Fib( 6 )))}),C)[br]L8 = Dilate(Join( {L7 , Zip(ApplyMatrix(M(1),p), p, First(L7 , Fib( 7 )))}),C)[br]L9 = Dilate(Join( {L8 , Zip(ApplyMatrix(M(2),p), p, First(L8 , Fib( 8 )))}),C)[br]L10= Dilate(Join({L9 , Zip(ApplyMatrix(M(1),p), p, First(L9 , Fib( 9 )))}),C)[br]L11= Dilate(Join({L10,Zip(ApplyMatrix(M(2),p), p, First(L10,Fib(10)))}),C)[br][br]L12= Join({L11, Rotate(L11, 180°, (1,C)/2)})[br]L13= RemoveUndefined(Zip(If(p>0.0015,p), p,L12))[br]L14= RemoveUndefined(Zip(If(p<0.0015,p), p,L12))[br][br]#-----------------------------------------------[br]# Settings[br]#-----------------------------------------------[br]CenterView((Corner(3)-Corner(1)+(C-y(Corner(3)-Corner(1)))(1,1))/2)[br]ZoomOut( 1.1 C / y(Corner(3)-Corner(1)) , (C/2,C/2) )[br][br]SetBackgroundColor("Black")[br]ShowAxes(False)[br]ShowGrid(False)[br][br]Execute(Zip("SetLayer(L"+k+",0)", k,1..14))[br]Execute(Zip("SetConditionToShowObject(L"+k+",false)", k,1..11))[br]Execute(Zip("SetLineThickness(L"+k+",3)", k,12..14))[br]SetLayer(L12, 1)[br]SetColor(L12, "Black")[br]Execute(Zip("SetFilling(L"+k+",1)", k,13..14))[br]SetColor(L13, "Cyan")[br]SetColor(L14, "Red")