Changer d'étape à l'aide du curseur

A = (0, 0)
B = (1, 0)
étape = 1 (slider from 1 to 10, step 1)
liste1 = Sequence(Segment[(k / 2.0^(étape), 0.0), Rotate[((k + 1.0) / 2.0^(étape), 0.0), 59.99999999999999*°, (k / 2.0^(étape), 0.0)]], k, 0.0, 2.0^(étape) - 1.0)
liste2 = Sequence(Segment[Rotate[((k + 1.0) / 2.0^(étape), 0.0), 59.99999999999999*°, (k / 2.0^(étape), 0.0)], ((k + 1.0) / 2.0^(étape), 0.0)], k, 0.0, 2.0^(étape) - 1.0)
a = Segment(A, B)
liste3 = Sequence(Segment[(k / 2.0^(étape - 1.0), 0.0), Rotate[((k + 1.0) / 2.0^(étape - 1.0), 0.0), 59.99999999999999*°, (k / 2.0^(étape - 1.0), 0.0)]], k, 0.0, 2.0^(étape - 1.0) - 1.0)
liste4 = Sequence(Segment[Rotate[((k + 1.0) / 2.0^(étape - 1.0), 0.0), 59.99999999999999*°, (k / 2.0^(étape - 1.0), 0.0)], ((k + 1.0) / 2.0^(étape - 1.0), 0.0)], k, 0.0, 2.0^(étape - 1.0) - 1.0)