Inspired by the Instituto de Matemáticas:[br][br]https://x.com/imate_unam/status/1939693657851859304

https://www.patreon.com/jcponce

#-- Initial pentagon -- #[br]poly = Polygon((-4,-4), (4,-4), 5)[br][br]#-- Initial variables & list -- #[br]n = 60[br]Ln = 0...n[br][br]#-- Apply rotation & dillations --#[br]Execute(Zip("P"+k+"=Dilate(Rotate(poly,"+k+" 6°), 0.9^"+(k)+")", k, Ln))[br]Execute(Zip("ShowLabel(P"+k+", false)", k, Ln))[br][br]#-- Color palette --#[br]A = (0.666, 0.56, 0.68)[br]B = (0.718, 0.438, 0.72)[br]C = (0.52, 0.8, 0.52)[br]D = (-0.43, -0.397, -0.083)[br][br]functionRed(x) = x(A) + x(B) * cos(2pi(x(C) * x + x(D)))[br]functionGreen(x) = y(A) + y(B) * cos(2pi(y(C) * x + y(D)))[br]functionBlue(x) = z(A) + z(B) * cos(2pi(z(C) * x + z(D)))[br][br]Execute(Zip("SetDynamicColor(P"+k+", Min(1, Max(0, functionRed("+k+"/15) )), Min(1, Max(0, functionGreen("+k+"/15) )), Min(1, Max(0, functionBlue("+k+"/15) )), 1)", k, Ln))[br]Execute(Zip("SetLayer(P"+k+", "+k+")", k, Ln))[br][br]#-- Extra settings --#[br]m = Slider(0, 60, 1, 1, 140, false, true, false, false)[br]Execute(Zip("SetConditionToShowObject(P"+k+", "+k+"<= m)", k, Ln))

Color Palette Tool & Examples: https://www.geogebra.org/m/x8evngvf