Dance of the Cantor Set
Adapted from Script Cantor Set 130 Char by Thijs
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))