Adapted from [url=https://www.geogebra.org/m/sv4wmr7q]Script Cantor Set 130 Char[/url] by [url=https://www.geogebra.org/u/thijs]Thijs[/url]
speed = 0.3[br]a = Slider(0, 18 pi, 0.01, speed, 180, false, true, false, false)[br][br]Execute(Join({"L1={Segment((0,0),(20,0))}"},Zip("L"+(k+1)+"=Rotate(Dilate(Join(L"+k+",Reflect(L"+k+",x=30)),1/3,(0,-"+k+"-.5)), a "+k+"/9,(10,-"+k+"-.5))",k,1..9)))[br][br]Execute(Sequence("SetLineThickness(L"+k+", 11-"+k+")", k, 1, 10))