rot = 0.10471975511965977 rad (slider from ° to 30°, step °)
r = 7.2 (slider from 1 to 10, step 0.1)
S: (r, 0)
O = (0, 0)
PuntiRuotati = Sequence(Rotate[S, (rot * i)], i, 0, (360 * ° / rot) - 1)
c = Circle(O, r)
Assi = Sequence(Ray[O, Element[PuntiRuotati, i]], i, 1, (360 * ° / rot))
Simmetrici = Sequence(Mirror[S, Element[Assi, i]], i, 1, (360 * ° / rot))
SegmentiRiflessi = Sequence(Segment[Element[PuntiRuotati, i], Element[Simmetrici, i]], i, 1, (360 * ° / rot))