t = 0.25132741228718347 (slider from 0 to 6.283185307179586, step 0.01°)
n = 7 (slider from 2 to 50, step 1)
nEck = Polygon((1, 0), (cos((2 * π / n)), sin((2 * π / n))), n)
AlSijziKreis = Circle((0, 0), 1)
P: (cos(t), sin(t))
Figurenfolge = Sequence(Polygon[(cos(t), sin(t)), (cos(((k * 2) * π / n)), sin(((k * 2) * π / n))), n], k, 1, n)