O = (0, 0)
r = 7.1 (slider from 1 to 10, step 0.1)
S: (r, 0)
c = Circle(O, r)
PuntiRuotati = Sequence(Rotate[S, (10° * i)], i, 0, 35)
Assi = Sequence(Ray[O, Element[PuntiRuotati, i]], i, 1, 36)
Simmetrici = Sequence(Mirror[S, Element[Assi, i]], i, 1, 36)
SegmentiRiflessi = Sequence(Segment[Element[PuntiRuotati, i], Element[Simmetrici, i]], i, 1, 36)