α = %β%

n1 = 5 (slider from 3 to 30, step 1)
n: round(n1)
A: (Corner[2.0] + Corner[4.0]) / 2.0
alto: y(Corner[4.0] - Corner[1.0])
ancho: x(Corner[3.0] - Corner[4.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)
α = 3.141592653589793 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
lista2 = Sequence(Rotate[A + (radio / 2.0, 0.0), α / n + s * 2.0 * 3.141592653589793 / n, A], s, 0.0, n - 1.0)
lista4 = Sequence(Segment[Element[lista1, t], Element[lista1, t + 1.0]], t, 1.0, n - 1.0)
lista5 = Sequence(Segment[Element[lista2, t], Element[lista2, t + 1.0]], t, 1.0, n - 1.0)
b = Segment(Element[lista2, n], Element[lista2, 1.0])
texto1: "α = " + (α / n)
texto2: "n = " + n
a = Segment(Element[lista1, n], Element[lista1, 1.0])
lista3 = Sequence(Sequence[Segment[Element[lista1, s], Element[lista2, t]], t, 1.0, n], s, 1.0, n)