n = 27 (slider from 1 to 30, step 1)
ancho: x(Corner[3.0] - Corner[4.0])
alto: y(Corner[4.0] - Corner[1.0])
A: (Corner[2.0] + Corner[4.0]) / 2.0
radio: 0.45 * Min[alto, ancho]
lista1 = Sequence(Rotate[A + (radio, 0.0), s * 2.0 * 3.141592653589793 / n, A], s, 0.0, n - 1.0)
lista2 = Sequence(Sequence[Segment[Element[lista1, s], Element[lista1, t]], t, 1.0, n], s, 1.0, n)