Dance of the Cantor Set

Script

speed = 0.3 a = Slider(0, 18 pi, 0.01, speed, 180, false, true, false, false) 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))) Execute(Sequence("SetLineThickness(L"+k+", 11-"+k+")", k, 1, 10))